problemas con codigo....

[ana1981]

Tengo que hacer una simple actualizacion de una tabla de usuarios. Sólo cojo los datos, y los introduzco. Hasta aquí iba bien. Una vez hecho esto, introduje una comprobacion para ver si el usuario existia, y si existia, que no entrara usuarios con el mismo nif. El caso es que ahora no me funciona. Pongo aquí el código para ver si veis algo que esté mal...
No sé si será el uso de "<%" y "%>", es q no termino de controlarlo......


<%
fechaNacimiento=(Request.Form("anyo") & "/" & Request.Form("mes") & "/" & Request.Form("dia"))
fechaAlta = Date()
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bd1.mdb"))
strSQL = "select * from usuario where nif = '" & Request.Form("nif") & "'"
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open strSQL,oConn, 3, 3
if not oRs.Eof then
oConn.Close
strSQL = "insert into usuario (nombre, apellido1,........) values ('" & Request.Form("nombre") & "','" & Request.Form("apellido1") & "','" ........
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
else
response.write("Ya está dado de alta")
oConn.Close
set oConn = nothing
end if
oRs.Close
%>

[orlandob]

No entiendo muy bien porque haces esto:
if not oRs.Eof then
oConn.Close

En realidad no entiendo porque cierras la conexion en vez del recordset.
Te diria que pruebes el mismo codigo pero sin la linea oConn.Close

En caso que no funcione te pediria que me envies el codigo de error que te devuelve el script.

Saludos

[ana1981]

OK! Tema solucionado.
He hecho eso, y ya funciona. Bueno, a aparte habia puesto la condicion del "if" al revés, pero bueno.... eso ya era otro tema....
Gracias!!!