Problema con recogida de datos

edochan · #1 (**permalink**) 20/05/2008, 03:03

Buenas, hace poco que estoy estudiando ASP y ahora mismo estoy haciendo una prueva de login en la que cuando te registras, segun tu rol ( en este caso veterinarios y cuidadores ) te redirecciona a una pagina distinta. Me gustaría que en la pagina de bienvenida de cada uno pues pusiera lo típico "Bienvenido Tal pascual"pero no sé como recoger esos datos de la select de la pagina anterior y pasarla a esta. He provado metiendo los resultados de recordset en una variable y pasarla con el request("variable") pero no me funciona, me da un error. Sabeis cuál sería la forma correcta. Gracias!!!

Myakire · #2 (**permalink**) 20/05/2008, 11:16

Hubiera sido útil que pusieras como lo haces para saber qué haces mal.

Una forma rápida es usar variables de sesión:

Session("NomVariable") = rs("CampoGuardar")

y en la otra página, solo usas la variable: Session("NomVariable")

saludos

edochan · #3 (**permalink**) 21/05/2008, 03:03

Bueno, eso fue lo primero que probé por intuición pero sinceramente no me funciona y me sale un error tal que este con el babyweb server:

Cita:

Script error detected at line 250.
Source line: session("ape")=Ob_RS("cognom")
Description: No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

Bueno y os dejo mi codigo a ver que veis ( hay muchos fallos, pero sólo quería hacer un login rudimentario para aprender a hacerlo )

Cita:

<body>

<%
'PARA LOS REDIRECCIONAMIENTOS

IF Request.Form <> "" THEN
Response.Buffer=true

dim correcto
correcto=true
' Recogemos los datos del formulario

nick=trim(request.Form("id"))
clau=trim(request.Form("pwd"))

' trim sirve para quitar espacios a ambos lados.

'creamos los objetos conection y recordset.
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
'abrimos la conexión

Ob_Conn.Open "zoo"
Ob_RS.Open "profesionales", Ob_Conn, adOpenStatic, adCmdTable
'tabla es profesionales
sql="select id,nom,especialitat,contraseña from profesionales where(id='"&nick&"' and contraseña='"&clau&"');"

set Ob_RS=Ob_Conn.Execute(sql)

if not Ob_RS.EOF then
dim nom
dim ape
session("nom")=trim(Ob_RS("nom"))
session("ape")=trim(Ob_RS("cognom"))
IF Ob_RS("especialitat")="veterinario" then

Response.Redirect("veterinario.asp")

else
response.Redirect("cuidador.html")
end if

ELSE

response.Write("<h2>"&"EL USUARIO NO EXISTE"&"</h2>")
response.Write("</br>")
response.Write("<a href="&"ingresar.asp"&">"&"+REGISTRATE+"&"</a>")

END IF
ELSE
%>
<form action="login.asp" method="post">
Id: <input type="text" value="<%=id%>" name="id" />
<br />
Password
<input type="password" value="<%=pwd%>" name="pwd" />
<br />
<input type="submit" value="enviar" />
</form>
<%END IF%>
</body>
</html>

Qué os parece?

Lebennin · #4 (**permalink**) 21/05/2008, 03:50

Cita:

session("ape")=trim(Ob_RS("cognom"))

Cita:

sql="select id,nom,especialitat,contraseña from profesionales where(id='"&nick&"' and contraseña='"&clau&"');"

Quizas sea yo que estoy un poco espeso, pero intentas recuperar el campo cognom y en la consulta no veo que selecciones ese campo. El error al menos dice que no encuentra ese campo en la colección que recibe.

edochan · #5 (**permalink**) 21/05/2008, 04:00

Solucionado!! si es que...^^ muchas gracias!!!!

Lebennin · #6 (**permalink**) 21/05/2008, 04:04

Uff, entonces no estaba tan espeso como creia :D

Ya lo tienes casi ;)