ASP

Main Index

ASP Index

Form

<table cellpadding="0" cellspacing="0" width="" border="0">
<tr valign="top">
   <td width="" align="">
   <img src="images/00-bit.gif" width="20" height="3" alt="" border="0"><br>
   </td>
   <td width="300" align="" id="cell">
   <img src="images/00-bit.gif" width="20" height="3" alt="" border="0"><br>
   <form name="input" method="post" action="http://www.parkandpipe.com/brianhead/edit.asp">
   <b>User Name:</b>
   <br>
   <input type="text" name="txtusername" size="20" maxlength="10">
   <br><br>
   </td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" width="" border="0">
<tr valign="top">
   <td width="" align="">
   <img src="images/00-bit.gif" width="20" height="3" alt="" border="0"><br>
   </td>
   <td width="" align="300" id="cell">
   <img src="images/00-bit.gif" width="20" height="3" alt="" border="0"><br>
   <b>Password:</b>
   <br>
   <input type="password" name="txtpassword" size="20" maxlength="10">
   <br><br>
   <input type="submit" name="Submit" value="Enter">
   </form>
   </td>
   <td width="" align="">
   <img src="images/00-bit.gif" width="20" height="3" alt="" border="0"><br>
   </td>
</tr>
</table>

Password verification:

<%
Sub Enter
   Dim dcnDB
   Dim rsQuery

   Set dcnDB = server.createobject("ADODB.Connection")
   dcnDB.open "password"

   Set rsQuery = Server.CreateObject("ADODB.Recordset")
   rsQuery.Open "SELECT username, password FROM enter WHERE password = '" & request.form("txtpassword") & "' and username = '" & request.form("txtusername") & "'", dcnDB

   If not rsQuery.EOF Then

    If request.form("txtusername") = rsQuery("username") and request.form("txtpassword") = rsQuery("password") Then
     rsQuery.Close
     dcnDB.Close
     Exit Sub
    End If
    Else
     rsQuery.Close
     dcnDB.Close
     Response.Redirect "http://www.parkandpipe.com/brianhead/index.asp"
    End If
   End Sub

   Call Enter
' ----------------------------------------------------------------------------------------

%>