Foros del Web » Programando para Internet » ASP Clásico »

access y asp (URGENTE)

Estas en el tema de access y asp (URGENTE) en el foro de ASP Clásico en Foros del Web. necesito saber por ejemplo, tengo dos paginas: pagina1 y pagina2 en la pagina 1 tengo un form que contiene dos campos user y password, y ...
  #1 (permalink)  
Antiguo 07/10/2004, 11:54
 
Fecha de Ingreso: octubre-2004
Mensajes: 3
Antigüedad: 20 años, 7 meses
Puntos: 0
access y asp (URGENTE)

necesito saber por ejemplo, tengo dos paginas: pagina1 y pagina2

en la pagina 1 tengo un form que contiene dos campos user y password, y la base de datos trae: id, user, password, nombre, apellido. y contiene 2 registro
s

entonces por ejemplo si llega una persona y pone sus datos de user y password lo que necesito es que me muestre los datos de esa persona que seria nombre y apellido y si con cuerda el user y passpwrd con el segundo registro pues que me muestre los datos del segunde registro nombre y apellido.

aqui esta mas o menos un codigo de lo que seria pagina.asp

<%
Dim user
Dim password
Dim strSQL
Dim sql

'Recuperar los campos
user = TRIM(Request.Form("user"))
password= TRIM(Request.Form("password"))
If user="" or password="" Then
Response.Redirect("sesion2.asp?msg=Error%20No%20Id entificado")
End if
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conexion.Open "Sesiones"

sql = "select * from Sesiones where user='" & user & "' and password='" & password & "'"
Conexion.Execute sql
RS.Open Sql, Conexion
If RS("password")=password and RS("user")=user Then
Session("autorizacion")=1
'Mostrar datos de ese usuario
strSQL = "SELECT Nombre, Apellidos FROM Sesiones"
Set objRS = Conexion.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD>&nbsp;Nombre</TD><TD>&nbsp;Apellidos&nbsp;</TD></TR>
<%
Response.Write("<tr><td>&nbsp;" & objRS("Nombre") & "</td><td>&nbsp;" & objRS("Apellidos") & "&nbsp;</td></tr>")


Else
Session("autorizacion")=-1
Session.Abandon()
Response.Redirect("sesion.asp")
End If
RS.Close
Set RS=Nothing
Conexion.Close
Set objRS = nothing
Set Conexion=Nothing

%>
</table>



PORFAVOR NECESITO AYUDA PROFESIONAL
Julio Cesar Gutierrez Quezada
[email protected]
bye
  #2 (permalink)  
Antiguo 23/10/2004, 19:02
Avatar de amendoza  
Fecha de Ingreso: enero-2004
Ubicación: Guarena Venezuela
Mensajes: 139
Antigüedad: 21 años, 3 meses
Puntos: 0
Amigo veo que tienes una busqueda de mas:


sql = "select * from Sesiones where user='" & user & "' and password='" & password & "'"
Conexion.Execute sql
RS.Open Sql, Conexion
If RS("password")=password and RS("user")=user Then
Session("autorizacion")=1
'Mostrar datos de ese usuario
strSQL = "SELECT Nombre, Apellidos FROM Sesiones"
Set objRS = Conexion.Execute(strSQL)


en el primer query ya los tienes pregunta si no es eof() y muves los valores

%>
__________________
:: El sentir del Llano en la WEB ::

www.llanerisimo.com
  #3 (permalink)  
Antiguo 24/10/2004, 04:55
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 20 años, 8 meses
Puntos: 18
Sé que lo pongo muchas veces, pero nunca está de más recordarlo: CUIDADO CON SQL INJECTION!!!!! Busca en el foro.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:17.