Muy buenos días, les estoy pidiendo ayuda para este código que acontinuación pego, la idea es crear una página web para una institución educativa, y la finalidad de la misma es asignarle a cada representante un login y la clave (password) para acceder a la información necesaria de su hijo o hija, que son las notas de las meterias, inasistencias, y otros, yo cree la Base de Datos en Access, y estoy tranajando como editor Dreamweaver MX, en la base de datos, cree una tabla de acceso, otra de los alumos...
la idea es que cada vez que el representante emtre con su login y password, acceda solamente a la información correspondiente de su hija o hijo y es lo único en que no he podido solucionar, por favor, necesito ese código ASP, y que me digan a que página entro para copiar ese código.
Este es el código de acceso:
<html>
<head>
<title>Acceso de los Representantes</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"> <b>
</b></p>
<form action="Formulario.asp" method="POST" name="" id="">
<p align="center"> </p>
<div align="center">
<center>
<table border="0" width="50%" bgcolor="#F2F2F2">
<tr>
<td width="100%" colspan="2" bgcolor="#0000FF">
<p align="center"><font color="#FFFFFF"><strong>Acceso</strong></font></td>
</tr>
<tr>
<td width="50%" align="right">Usuario:</td>
<td width="50%"><input name="campo_usuario" type="text" id="campo_usuario" size="20"></td>
</tr>
<tr>
<td width="50%" align="right">Contraseña: </td>
<td width="50%"><input name="campo_password" type="password" id="campo_password" size="20"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
<p align="center"><b><br>
</b></p>
<%
If Request.Form("campo_usuario") = "" OR Request.Form("campo_password") = "" then
'Response.Redirect "Contraseña.htm"
response.write "<p><a href='javascript
:history.back()'>Volver</a></p>"
Else
Dim var_usuario, var_password, oConn, RS
'Guardamos los datos del Form en variables.
var_usuario = Trim(Request.Form("campo_usuario"))
var_password = Trim(Request.Form("campo_password"))
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("contraseña.mdb")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM tabla_usuarios WHERE usuario='"& var_usuario &"' "
RS.Open sql, oConn, 1, 1
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If RS.EOF = True then
Response.Write "<BR><br>Ese usuario no existe"
response.write "<p><a href='javascript
:history.back()'><<Volver</a></p>"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
ElseIf RS.Fields("password") = var_password then
Response.Write "<BR><BR>Accediste con éxito. Bienvenido <B>"& var_usuario &"</B>"
'response.redirect "reporte.asp"
sql = "SELECT * FROM tabla_alumnas WHERE password='"& var_password &"' "
response.Write("Apellidos: ")
response.write(RS.Fields("apellidos")) & "<br>"
Response.Write("Nombres: ")
Response.Write(RS.Fields("nombres") & "<BR>")
'Otra cosa, seria cuando el password no es la que seleccionamos.
Else
Response.Write "<BR><br>Esa contraseña no concuerda con el usuario ingresado"
response.write "<p><a href='javascript
:history.back()'><<Volver</a></p>"
End If'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If%>
La idea si es posible que dentro de este mismo código ASP, podría acceder a la información necesaria del hijo o hija..
Yo hice un enlace a otra página llamada reporte, pero en esa página reporte se trae toda la información que se encuentra en la trabla alumnas.
El código es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<%
'dim var_password, oConn, RS
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")&";"
sql = "SELECT * FROM tabla_alumnas WHERE password='"& var_password &"' "
RS.Open SQL, oConn
do while not RS.eof
response.Write("Apellidos: ")
response.write(RS.Fields("apellidos")) & "<br>"
Response.Write("Nombres: ")
Response.Write(RS.Fields("nombres") & "<BR>")
RS.movenext
loop
RS.close
oConn.close
%>
</body>
</html>
Gracias de antemano, pero necesitos de sus ayudas...