Page (spider fine translation)
Original English
Now we create the query statement to verify that the content entered in the form is consistent with what is in the database.
<%@ Language=vbscript%>
<% Response.Buffer = True%>
<HTML>
<BODY>
<% session ("allow") = True%>
<%
UserName = Request.Form ("UserName")
Password = Request.Form ("Password")
' Grab the form contents
Set myconn=server.createobject ("ADODB. Connection ")
MyConn.Open "Your connection string here"
SQL = "SELECT * FROM Tbllogin"
Set RS = Myconn.execute (SQL)
If UserName = rs ("UserName") and Password = RS ("Password") Then
' If there is a match then show the page '
%>
Put the contents of your page here.
<%
Else
Response.Redirect "Http://www.yourdomain.com/login.asp"
Rs. Close
Myconn.close
Set RS = Nothing
Set myconn = Nothing
End If
%>
' If there is no match then make of the visitor try again to login.
</BODY>
</HTML>
Name the file containing the above code as Login.asp