Saludos
gryndly tienes que revisar bien los ejemplos que tengas, tenias varios errores.
Empezamos con el formulario del cual pides datos.
Tu tenias:
Código:
<html>
<body bgcolor="#dddddd">
<p><a href="inici.htm" target="inici"> Pagina principal </a></p>
<p><br><h3>Identificacin</h3> Necesitas un nick para poder participar en los foros </p>
<p> Si ya eres usuario de este forum: </p>
<form methode="post" action="validar.asp" >
identificador:<br> <input type="text" name="identificador" size=12> <br>
contraseña:<br> <input type="password" name="password" size=12> <br><br>
<input type=submit value="Validar"> <br>
</form>
<hr>
</p>
</body>
</html>
Ya corregido queda asi:
Código:
<html>
<body bgcolor="#dddddd">
<p><a href="inici.htm" target="inici"> Pagina principal </a></p>
<p><br><h3>Identificacin</h3> Necesitas un nick para poder participar en los foros </p>
<p> Si ya eres usuario de este forum: </p>
<form method="post" action="base.asp" >
identificador:<br> <input type="text" name="identificador" size=12> <br>
contraseña:<br> <input type="password" name="password" size=12> <br><br>
<input type=submit value="Validar"> <br>
</form>
<hr>
</p>
</body>
</html>
El error aqui era en la linea:
<form method
e="post" action="
validar.asp" >
<form method="post" action="base.asp" >
La letra e no va asi como la pagina a la cual estas llamando es otra.
Bueno y en el archivo
BASE.ASP era lo siguiente:
Estabas diciendo que si estaban vacios alguno de los campos realizara la operación, cosa que no es correcta.
Código:
If Request.form("identificador") = "" OR Request.Form("password") = "" then
identificador = Trim(Request.Form("identificador"))
password = Trim(Request.Form("password"))
identificador = Replace(identificador,"'","''")
password = Replace(password,"'","''")
Te falto poner:
Código:
If Request.form("identificador") = "" OR Request.Form("password") = "" then
response.write("<h1><center> Faltan datos </center></h1>")
else
Dim identificador, password, Con, rs
identificador = Trim(Request.Form("identificador"))
password = Trim(Request.Form("password"))
identificador = Replace(identificador,"'","''")
password = Replace(password,"'","''")
Ahora en la conexion pon la linea que sugiere
El_Metallick
Código:
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("usuaris.mdb"))
El codigo completo de la pagina
BASE.ASP es
Código:
<html>
<body bgcolor="#dddddd">
<%
If Request.form("identificador") = "" OR Request.Form("password") = "" then
response.write("<h1><center> Faltan datos </center></h1>")
else
Dim identificador, password, Con, rs
identificador = Trim(Request.Form("identificador"))
password = Trim(Request.Form("password"))
identificador = Replace(identificador,"'","''")
password = Replace(password,"'","''")
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("usuaris.mdb"))
sql = "SELECT * FROM dades1 WHERE identificador = '"& identificador &"'"
set rs = Con.execute(sql)
If (rs.EOF =true) then
Response.Redirect("error.htm")
else
If rs("password") = password then
Session("Log")=TRUE
Response.Redirect("benvinguda.htm")
else
Response.Redirect ("error.html")
end If
end If
'netejam i tancam la connexio.
rs.Close
Con.Close
Set rs = Nothing
Set con = Nothing
End If
%>
</body>
</html>
Espero haberte ayudado.
Suerte.