problemas para actulizar datos

[doris]

ya me salio, les envio el cogigo completo por si alguien lo necesito
<%
Ap_Paterno = Request.Form("txtPaterno")
Ap_Materno = Request.Form("txtMaterno")
Nombre = Request.Form("txtNombres")
EstadoCivil = Request.Form("cmbeCivil")
Dia = Request.Form("cmbdia")
%>

<%meses = "Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,A gosto,Setiembre,Octubre,Noviembre,Diciembre"% >
<%list = Split(meses, ",")
For i = 0 to UBound(list)%>
<%if Request.Form("cmbmes") = List(i) then%>
<%Mes= i+1%>

<%exit for%>
<%end if%>

<%Next%>

<%

Anio = Request.Form("cmbanio")
Fecha = CDATE(Dia & "/" & Mes & "/" & Anio)
Direccion = Request.Form("txtDireccion")
Distrito = Request.Form("cmbDistrito")
Telefono = Request.Form("txtTelefono")

Celular = Request.Form("txtCelular")
Email = Request.Form("txtEmail")
codusuario=session("usuario")
pasword=session("password")

if Request.Form("Sexo")="F" then
Sexo="F"
else
Sexo="M"
end if


sql= "update usuario set Nombre = '" & Nombre & "',Ap_Paterno ='" & Ap_Paterno & "' ,Ap_Materno ='" & Ap_Materno &"' ,Direccion ='" & Direccion & "',Distrito ='" & Distrito & "',Telefono ='" & Telefono & "',Celular ='" & Celular & "',Email ='" & Email & "',FechaNac ='" & Fecha & "' ,Sexo ='" & Sexo & "',EstadoCivil ='" & EstadoCivil & "' where Codusuario='" & codusuario &"' and Contrasena='" & pasword &"'"
set cn = server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;uid=sa;pwd=;server=susi;da tabase=BOLSATRABAJO;"
set rs = cn.execute(sql)
set cn = nothing

%>