Un formulario sencillo

Gacetaragon · #1 (**permalink**) 02/03/2008, 05:10

Hola amigos:
Con mis pocos conocimientos de asp estoy programando un página donde tiene un sencillo formulario, pero no consigo hacerlo bien. Os explico por si alguién quiere ayudarme.

En el campo llamado "clave" de la tabla Datos de una base de datos tengo una palabra clave.
La idea es que si la insertan correctamente en la casilla del cuadro de texto del formulario, vayan a otra página.

Tengo ya algo de código.

En la página del formulario, llamada insercion.asp tengo:

Las primeras líneas del código son las típicas para crear conexión a la base y demás...

Después:
.......
set rsDatos = Server.CreateObject("ADODB.Recordset")
SQLDatos = "SELECT * FROM Datos"
rsDatos.Open SQLDatos,DB_CONNECTIONSTRING
%>

<html>
<head>
</head>
<body>

<form name="form2" method="post" action="">
<input type="text" name="textfield">
</form>
<form name="form1" method="post" action="">
<input type="submit" name="Submit" value="Enviar">
</form>

Esto de arriba es el formulario sencillo. Hay que programar que:
Si la palabra que se inserta en la casilla de texto es igual al campo de modo texto llamado clave, entonces ir a la página www.midominio.com/secreto.asp
Si no, ir a www.midominio.com/error.asp

</body>

</html>

MUCHAS GRACIAS.

Adler · #2 (**permalink**) 02/03/2008, 08:29

Hola prueba así

<%
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
%>

Suerte

Gacetaragon · #3 (**permalink**) 02/03/2008, 14:19

Vaya lío que me estoy haciendo.
Me da error la línea
SQLDatos = "SELECT clave FROM Datos where clave like '%"dato_clave"%'"

Pero mi duda es:
¿en la misma página insercion.asp tengo que poner el formulario y encima valida tambien si el campo clave?

Gracias.

Adler · #4 (**permalink**) 03/03/2008, 05:20

Hola

La consulta no tiene ningún error de sintaxis, así que mis preguntas son ¿Has creado la cadena de conexión?. De ser así ¿Qué error te marca?

Con respecto a tu pregunta, sí, lo haces todo en insercion.asp

recoges el valor de textfield
dato_clave = request.form("textfield")

si el valor está vacío if IsEmpty(dato_clave) then
imprimes el formulario, de lo contrario ejecutas la consulta y redireccionas

Suerte

Shiryu_Libra · #5 (**permalink**) 03/03/2008, 12:22

esto esta..... ¿¿¿bien???

Cita:

SQLDatos = "SELECT clave FROM Datos where clave like '%"dato_clave"%'"

no deberia ser de esta manera

Cita:

SQLDatos = "SELECT clave FROM Datos where clave like '%" & dato_clave & "%'"

Adler · #6 (**permalink**) 03/03/2008, 14:21

Ni darme cuenta

JuanRAPerez · #7 (**permalink**) 03/03/2008, 14:33

pregunta:

si usamos

Cita:

SQLDatos = "SELECT clave FROM Datos where clave like '%" & dato_clave & "%'

si tenemos las siguientes palabras claves
a
ahora
antes
noticias

y yo pongo solo la letra a
no me validaria aunque a este sola

digo por usar el like en lugar de el =

no seria mejor dejarlo

Cita:

SQLDatos = "SELECT clave FROM Datos where clave = '" & dato_clave & "'

Gacetaragon · #8 (**permalink**) 08/03/2008, 03:25

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>

Adler · #9 (**permalink**) 08/03/2008, 05:21

Añade esto

else
response.redirect("error.asp")
end if
end if
%>

Suerte

Gacetaragon · #10 (**permalink**) 09/03/2008, 03:26

Gracias campeón. Ya funciona.

Saludos.