<% Dim Username, Password, BadLogin BadLogin = False If Request.Form <> "" Then Username = Request.Form("Username") Password = Request.Form("Password") Dim SQLString, Conn, RS SQLString = "SELECT * FROM T_Users " SQLString = SQLString & "WHERE Username = '" & Username SQLString = SQLString & "' AND Password = '" & Password & "'" Set Conn = ConnOpen() Set RS = Conn.Execute( SQLString ) If RS.EOF Then Session("Username") = "" BadLogin = True Else Session("Username") = Username Response.Redirect( "billing_info.asp" ) End If Else Username = Session("Username") Password = "" End If %> .: Welcome to Ridgecrest Meadows POA :.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
<% If BadLogin Then %>

Invalid Login

Please Try Again

<% Else %>

Welcome

<% End If %>
Username Password