<html>
<body>
<%
UserName = Request.Form("username"
Password = Request.Form("password"
'grab the form contents
Set MyConn = Server.CreateObject("ADODB.Connection"
MyConn.ConnectionString = "DBQ=C:\inetpub\finalphase\ Access Driver (*.mdb)}"
MyConn.Open
SQL = "Select UserName, Password From tblLogin " _
& "Where UserName = '"&UserName&"' And Password = '"&Password&"'"
Set RS = MyConn.Execute(SQL)
'#####################################################################help
Set RS2=Server.CreateObject("ADODB.RecordSet"
'#####################################################################help
If Not RS.EOF Then
Session("allow" = True
'if there is a match then show the page
%>
<% '#####################################################################help %>
<% RS2.Open "Select * From UserName", MyConn %>
^UserName^ I would like for this to be = to what ever was typed into the username field UserName = Request.Form("username"
<% '#####################################################################help %>
Put the contents of your page here.
<%
Else
Response.Redirect "RS.Close
RS2.Close
MyConn.Close
Set RS = Nothing
Set RS2 = Nothing
Set MyConn = Nothing
End If
%>
</body>
</html>
<body>
<%
UserName = Request.Form("username"
Password = Request.Form("password"
'grab the form contents
Set MyConn = Server.CreateObject("ADODB.Connection"
MyConn.ConnectionString = "DBQ=C:\inetpub\finalphase\ Access Driver (*.mdb)}"
MyConn.Open
SQL = "Select UserName, Password From tblLogin " _
& "Where UserName = '"&UserName&"' And Password = '"&Password&"'"
Set RS = MyConn.Execute(SQL)
'#####################################################################help
Set RS2=Server.CreateObject("ADODB.RecordSet"
'#####################################################################help
If Not RS.EOF Then
Session("allow"
= True'if there is a match then show the page
%>
<% '#####################################################################help %>
<% RS2.Open "Select * From UserName", MyConn %>
^UserName^ I would like for this to be = to what ever was typed into the username field UserName = Request.Form("username"
<% '#####################################################################help %>
Put the contents of your page here.
<%
Else
Response.Redirect "RS.Close
RS2.Close
MyConn.Close
Set RS = Nothing
Set RS2 = Nothing
Set MyConn = Nothing
End If
%>
</body>
</html>