08/03/2008, 03:25
|
| | | Fecha de Ingreso: agosto-2004
Mensajes: 50
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| Re: Un formulario sencillo
Gracias a todos. Debo estar cerca. El error que me sale es:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
Abro la conexión. Funciona porque la he probado para ver un campo de una tabla.
El código de insercion.asp es:
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("base.mdb") & ";"
db.Open DB_CONNECTIONSTRING
%>
<html>
<head>
</head>
<body>
<%
Dim dato_clave
dato_clave = request.form("textfield")
if IsEmpty(dato_clave) then
%>
<form name="form2" method="post" action="insercion.asp">
<input type="text" name="textfield" />
<br />
<input type="submit" name="Submit" value="Enviar" />
</form>
<%
else
set rsDatos = Server.CreateObject("ADODB.Recordset")
SQLDatos = "SELECT clave FROM Datos where clave like '%" & dato_clave & "%'"
rsDatos.Open SQLDatos,DB_CONNECTIONSTRING
if not rsDatos.eof = true then
response.redirect("secreto.asp")
else
response.redirect("error.asp")
end if
%>
</body>
</html> |