<%
If Request.Form("btnEntrar") = "Entrar" Then
sqlValida = " SELECT * FROM Admin WHERE Username ='" & Request.Form("txtUsuario") & "' AND Password = '" & Request.Form("pwdContrasena") & "'"
Set rsValida = Server.CreateObject("ADODB.Recordset")
rsValida.Open sqlValida,conn
If NOT rsValida.EOF Then
Session("Login") = "1"
Response.Redirect("Home.asp")
Else
Error = "Usuario o Contraseņa incorrecta !!!"
End If
End If
%>
ASIAR