Ver Mensaje Individual
  #7 (permalink)  
Antiguo 05/03/2005, 15:32
Avatar de emilio21
emilio21
 
Fecha de Ingreso: enero-2005
Ubicación: Venezuela
Mensajes: 320
Antigüedad: 20 años, 4 meses
Puntos: 1
Exclamación este es el codigo que utilizo y no me funciona

ante todo gracias por las respuestas que me han dado........

bueno amigos, para modificar el registro utilizo el siguiente codigo:

<html>
<head>
<title>Regístro de usuario</title>
</head>
<body>
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
' Configura aquí tu db
'oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db_1.mdb"))
oConn.Open("FILEDSN=webextrema.com_access_webextre ma.dsn")
strSQL = "select nombre from usuarios where nombre = '"& Request.Form("nombre") &"' and clave = '"& Request.Form("clave1") &"'"
Set objRS = oConn.Execute(strSQL)
if (objRS.Eof or Request.Form("nombre")="" and Request.Form("clave2")="") then
Response.Write("No existe el nombre de usuario o la contraseña no coincide,<a href=index.asp>Regresar</a>")
else
strSQL2 = "update set usuarios (clave) values ('"& Request.Form("clave2") & "')"
Set objinsert = oConn.Execute(strSQL2)
Response.Redirect("../registro/login.asp")
end if
oConn.Close
%>
</body>
</html>

por favor diganme cual es el error, necesito esto urgente...... please help me

gracias