Ayuda con mostrar datos!!

[UrRuX]

Buenas amigos necesito ayuda con mi pagina ASP.. estoy usando Vbscript.. necesito q al ingresar en un campo de texto un ID me lo relacione y ME MUESTRE el nombre de ese ID con el que esta en la base de datos...EJEMPLO:
-----------------------------------------------------------------------------
Base de Datos

Tabla members:
User Clave
Juan 123
Carlos 456

-----------------------------------------------------------------------------
Ingrese Clave: 123

Bienvenido Juan

[Jonatatan]

es muy sencillo, pero q base de datos usas??

[UrRuX]

estoy usando una ms access..

[orharo2003]

la sentencia sql quedaria asi:

sql="select user from tutabla where clave=" & request.form("alguncampo")

espero que lo demás lo sepas hacer si no:

'ejecucion de tu ubjeto recordset

recordetset.Open sql,conection

if not recordetset.eof then
response.write "Bienvenido " & recordetset("user")
end if

[UrRuX]

Hey orharo2003 gracias men por responder algo q me pueda servir... haz sido el unico q me ha dicho algo q sirva.. ahora bien... Ayudame completamente... voy a intentarlo pero quisiera tenerte en el MSN para cualkier problema o dudas..Si? [email protected]

[UrRuX]

He aquiel codigo..para q medio me digas

<%
Option Explicit

dim dbname
dim ci
dim conntemp, cnpath, sqltemp, rstemp

dbname="database.mdb"
ci=request.form("txtUserid")
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sqltemp="select nombre from members where cedula=" & ci
sqltemp=sqltemp & ci
set rstemp=conntemp.execute(SQLTemp) <---- LINEA 16

If rstemp.eof then

rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

Session("Message") = "Alumno no encontrado. Intente de Nuevo"
response.redirect "principal.asp"
end if

If rstemp("cedula")=ci then



rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

'session("message2")=rstemp("cedula")
'session("securitylevel")=rstemp("securitylevel")
'response.write "Security Level=" & session("securitylevel")


Session.Timeout = 20


Session("LoggedIn") = "yes"


response.write "Bienvenido " & recordetset("user") <---- aqui esta

response.redirect "destination.3.asp"
else
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

Session("Message") = "Alumno no encontrado. Intente de Nuevo"
response.redirect "principal.asp"
end if


%>
dime si no lo coloco ahi.. cuando lo ejecuto me tira un error :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/prueba5/check.2.asp, línea 16
AYUDAME PLZ

[AlZuwaga]

Si el campo 'cedula' está definido como TEXT, debés encerrar el criterio entre apóstrofes:


sqltemp="select nombre from members where cedula='" & ci & "'"

[AlZuwaga]

además, sea o no TEXT tel campo 'cedula', quitá la línea que está debajo de la declaración SQL:

sqltemp=sqltemp & ci

[AlZuwaga]

Fiuuuu... sigo leyendo y viendo 'cositas'.

Vos tenés:
response.write "Bienvenido " & recordetset("user") <---- aqui esta

Pero fijate que el objeto recordset se llama rstemp
set rstemp=conntemp.execute(SQLTemp) <---- LINEA 16

Por lo que la primer línea debería quedar:
response.write "Bienvenido " & rstemp("user") <---- aqui esta


Editando para no malgastar mensajes :

Vos tenés en la sentencia SQL:
...SELECT nombre from members...

Y luego hacés referencia a un campo llamado 'user'
response.write "Bienvenido " & rstemp("user") <---- aqui esta

Va a dar error porque ese campo no existe en la SQL.

Debería quedar así:
response.write "Bienvenido " & rstemp("nombre") <---- aqui esta


espero no encoantrar nada más

[AlZuwaga]

Pues si, encontré otras cosas. El código debería quedar +- así:

Código:

<%
Option Explicit

dim dbname
dim ci
dim conntemp, cnpath, sqltemp, rstemp

dbname="database.mdb"
ci=request.form("txtUserid")
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sqltemp="select nombre from members where cedula=" & ci

set rstemp=conntemp.execute(SQLTemp)

If rstemp.eof then

rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

Session("Message") = "Alumno no encontrado. Intente de Nuevo"
response.redirect "principal.asp"

Else

'session("message2")=rstemp("cedula")
'session("securitylevel")=rstemp("securitylevel")
'response.write "Security Level=" & session("securitylevel")
'Session.Timeout = 20

Session("LoggedIn") = "yes"

response.write "Bienvenido " & rstemp("nombre")

response.redirect "destination.3.asp" 'si hacés un response.redirect, el response.write anterior no se va a efectuar
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

End if
%>