problemas para actulizar datos

[doris]

Hola amigos :)
tengo un formulario el cual tengo varis datos que se pueden actualizar del usuario actual tengo Un dato Fecha Nacimiento formada por 3
combos dia, mes y año,(que muestra el dato del usuario actual llenado con la fecha de nacimiento de la bd de tipo
datetime, la cual puedo actualizar y no se como enviarla la sentencia
sql, pues cada para mostrar cada combo, utilice day, month , year y en el motnh, bueno el combo contiene los valores respectivos 29, Julio, 2002
no se como enviarlos para actualizar
los sgtes son los campos que debo actulizar

Ap_Paterno = Request.Form("txtApePaterno")
Ap_Materno = Request.Form("txtApeMaterno")
Nombre = Request.Form("txtNombres")
EstadoCivil = Request.Form("cmbestadoCivil")
Dia = Request.Form("cmbdia")
Mes = Request.Form("cmbmes.value") 'aca no se si sera correcto ya que el combo muestra Julio, pero deseo tener 7
Anio = Request.Form("cmbanio")
Sexo = Request.Form("sexo") ' radio button tiene el valor checked en Femenino value =F como lo paso
Direccion = Request.Form("txtDireccion")
Telefono = Request.Form("txtTelefono")
Email = Request.Form("txtEmail")

codusuario=session("usuario")
pasword=session("password")

le esoty dando esta sentencia, se que no esta del todo bien, ayudenme porfa

sql= "update usuario set Nombre = '" & Nombre & "',Ape_Paterno ='" & Ape_Paterno & "' ,Ape_Materno ='" & Ape_Materno &"' &,Direccion ='" & Direccion & "',Telefono ='" & Telefono & "',Email ='" & Email & "',FechaNac =" & FechaNac & " ,Sexo ='" & Sexo & "',EstadoCivil ='" & EstadoCivil & "' where Codusuario='" & codusuario &"' and Contrasena=" & pasword

Nota como paso la FechaNac ( la cual debe estar compuesta de dia, mes , anio

Espero me ayuden gracias ;)

[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

%>