
31/12/2001, 12:22
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: Vilanova i la Geltrú
Mensajes: 1.942
Antigüedad: 23 años, 3 meses Puntos: 0 | |
Re: pk no funciona? y despues la pgina que lo guarda a la BD:
<pre><%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4%>
<%usuario=request.form("usuario")
password=request.form("password")
nombre=request.form("nombre")
apellido=request.form("apellido")
ciudad=request.form("ciudad")
provincia=request.form("provincia")
pais=request.form("pais")
email=request.form("email")
web=request.form("web")
sexo=request.form("sexo")
aficiones=request.form("aficiones")
descripcion=request.form("descripcion")
foto=request.form("foto")
if usuario="" then %>
<html>
<head>
<title>Foros Yampoo!!</title>
</head>
<body bgcolor="#FFFFFF">
<p align="center"><img src="logoforo.gif" width="185" height="39"></p>
<p align="center"><font color="#000000">Ningún campo puede estar en blanco,</font>
<font color="#000000"><a href="Login.asp">
inténtalo otra vez</a></font></p>
</body>
</html>
<%else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuario.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "usuarios",conn
rs.addnew
rs("usuario")=usuario
rs("password")=password
rs("nombre")=nombre
rs("apellido")=apellido
rs("ciudad")=ciudad
rs("provincia")=provincia
rs("pais")=pais
rs("email")=email
rs("web")=web
rs("sexo")=sexo
rs("aficiones")=aficiones
rs("descripcion")=descripcion
rs("foto")=foto
rs.update
rs.close
response.redirect "login.asp"
end if%> </pre>
<BLOCKQUOTE><font size=1 face=arial>Citando:<hr height=1 noshade> la pregunta es que le pasa que da error?? [/QUOTE] |