Recordset o ResponseWrite en Tablas de Dreamweaver Código PHP:
<html>
<head>
<title>Acceso de usuarios</title>
<style type="text/css">
<!--
.Estilo1 {font-family: Arial, Helvetica, sans-serif}
.Estilo3 {font-family: Arial, Helvetica, sans-serif; font-size: 9px; }
-->
</style>
</head>
<body style="font-family: Arial; font-size: 9pt">
<BR><BR><BR>
<table border="0" align="center" width="60%">
<tr><td ALIGN="CENTER">
<%
strUsuario = replace(trim(request.form("campo_usuario")), "'", "")
strPassword = replace(trim(request.form("campo_password")), "'", "")
'Nos aseguramos de que los campos no están vacíos
if strUsuario = "" or strPassword = "" then
Response.Redirect "formulario.asp?mensaje=Usuario%20o%20password%20incorrectos"
'Si el usuario ha puesto un nombre y password...
else
'Conectamos a nuestra BD
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("contraseña.mdb"))
'Seleccionamos de la tabla solo el registro que concuerda con el usuario del formulario
sql = "SELECT * FROM tabla_usuarios WHERE usuario='"& strUsuario &"' AND password='" & strPassword & "'"
RS.Open sql, oConn, 1, 1
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
if RS.EOF then
%>
<BR><BR>Usuario o password, incorrectos.
<p><a href='javascript:history.back(-1)'><< Volver</a></p>
<%
'Si nos devuelve un registro (se supone que nunca habrá 2 usuarios iguales y con el mismo password)
'porque sino, te devolverá una tabla con 2 registros
else
%>
<DIV ALIGN="justify">
<BR><BR>Accediste con éxito. Bienvenido <B><%=strUsuario%></B>.<BR><BR>
<%
'Cerramos y limpiamos el recordset
'--------------------------------
' MODIFICADO
'RS.Close
'Set RS = Nothing
'--------------------------------
'------------------------------------------
'Ahora puedes montar la consulta que desees
'------------------------------------------
'Mostramos los datos, más o menos de esta forma
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
'Mostramos las notas de ese usuario
sql2 = "SELECT * FROM tabla_alumnas WHERE password='" & strPassword & "'"
RS2.Open sql2, oConn, 1, 1
Response.Write("Apellidos: ")
Response.Write(RS2.Fields("apellidos") & "<BR>")
Response.Write("Nombres: ")
Response.Write(RS2.Fields("nombres") & "<BR>")
Response.Write("Dirección: ")
Response.write(RS2.Fields("direccion")) & "<br>"
RS2.Close
Set RS2 = Nothing
end if
RS.Close
Set RS = Nothing
-----------------
oConn.Close
Set oConn = Nothing
end if
%>
</td></tr>
</table>
<p align="center"> </p>
</body>
</html>
Response.Write(RS2.Fields("apellidos") & "<BR>")
Response.Write("Nombres: ")
Response.Write(RS2.Fields("nombres") & "<BR>")
Response.Write("Dirección: ")
Response.write(RS2.Fields("direccion")) & "<br>"
Es lo que quiero que me aparecz en tabla: Es decir, Apellidos, en una Columna Apellidos, Nombres en columna y así sucesivamente..
Gracias
