§þk¥

• Database / DRW help Check out the Tutorials for Frontpage Databases
  
• Forum FAQ' s
  
• Developers Edition Spooky Login User Registration and Management tool
  
• Personalized Frontpage Hosting
  

<% @language="vbscript" %>
<!--#include virtual="/serverdep/newserverform/logon/_private/logon.inc"-->

<%
  ' Do not cache this page.
  Response.CacheControl = "no-cache"

  ' Define the name of the users table.
  Const USERS_TABLE  = "tblUsers"
  ' Define the path to the logon page.
  Const LOGON_PAGE   = "/serverdep/newserverform/logon/logon.asp"
  ' Define the path to the logon database.
  Const MDB_URL      = "/serverdep/newserverform/logon/_private/logon.mdb"

  ' Check to see whether you have a current user name.
  If Len(Session("UID")) = 0 Then
    ' Are you currently on the logon page?
    If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
      ' If not, set a session variable for the page that made the request...
      Session("REFERRER") = Request.ServerVariables("URL")
      ' ...and redirect to the logon page.
      Response.Redirect LOGON_PAGE
    End If
  End If

  ' This function checks for a username/password combination.
  Function ComparePassword(UID,PWD)
    ' Define your variables.
    Dim strSQL, objCN, objRS
    ' Set up your SQL string.
    strSQL = "SELECT * FROM " & USERS_TABLE & " WHERE (UID='" & UID & "' AND PWD='" & PWD & "');"
    ' Create a database connection object.
    Set objCN = Server.CreateObject("ADODB.Connection")
    ' Open the database connection object.
    objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath(MDB_URL) & "; uid=admin; pwd="
    ' Run the database query.
    Set objRS = objCN.Execute(strSQL)
    ' Set the status to true/false for the database lookup.
    ComparePassword = Not(objRS.EOF)
    ' Close your database objects.
    Set objRS = Nothing
    Set objCN = Nothing
  End Function
%>

<%
  ' Was this page posted to?
  If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then
    ' If so, verify the username/password that was entered.
    If ComparePassword(Request("UID"),Request("PWD")) Then
      ' If comparison was good, store the user name...
      Session("UID") = Request("UID")
      ' ..and redirect back to the original page.
      Response.Redirect Session("REFERRER")
    End If
  End If
%>

<form method="POST" action="loginconfirmation.asp">

	<div align="center">
	<table border="0" width="200">
		<tr>
			<td>Username</td>
			<td> <input type="text" name="Username" size="20"></td>
		</tr>
		<tr>
			<td>Password</td>
			<td> <input type="password" name="Password" size="20"></td>
		</tr>
		<tr>
			<td colspan="2" align="center">
			<input class="button" type="submit" value="Login" name="Login"><input class="button" type="reset" value="Reset" name="B2"></td>
		</tr>
	</table>

<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Username, Password, Email, PhoneNumber, Operator FROM tblDistinctOperators WHERE (Username='"&trim(request.form("Username"))&"') AND (Password='"&trim(request.form("Password"))&"')"
fp_sDefault="Username=&Password="
fp_sNoRecords="<tr><td colspan=2 align=""LEFT"" width=""100%"">Incorrect Username or Password...please try again</td></tr>"
fp_sDataConn="KFC"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&Username=202&Password=202&"
fp_iDisplayCols=2
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<%Response.Cookies("Email")=fp_field(fp_rs,"Email")%>
<%Response.Cookies("PhoneNumber")=fp_field(fp_rs,"PhoneNumber")%>
<%Response.Cookies("Username")=fp_field(fp_rs,"Username")%>
<%Response.Redirect"successfulllogin.asp"%><!--#include file="../_fpclass/fpdbrgn2.inc"-->

<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="UPDATE tblDistinctOperators SET SuccessfullLogins = (SuccessfullLogins+1) WHERE (Operator='"&Request.Cookies("Username")&"')"
fp_sDefault=""
fp_sNoRecords=""
fp_sDataConn="KFC"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&"
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--#include file="../_fpclass/fpdbrgn2.inc"-->


<%Response.Redirect"welcome.asp"%>