<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer=TRUE%> <% Set adoCon = Server.CreateObject("ADODB.Connection") 'src = Server.MapPath("db/site.mdb") src = ("d:\hosting\cardinaldist\access_db\site.mdb") sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src adoCon.Open sConnStr 'Set an active connection to the Connection object using DSN 'adoCon.Open "DSN=ASPLOGIN" %> <% 'Create an ADO recordset object Set rsSiteName = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT sitename FROM tblAdmin" 'Open the recordset with the SQL query rsSiteName.Open strSQL, adoCon Response.Write ("") Set rsSiteName = Nothing %>

<%= FormatDateTime(Date, 1) %>  <%= FormatDateTime(NOW, 3) %>     Login Cardinal Dist. Home Page

<% If Request.querystring("mode") = "suspend" then Response.Write ("Username is currently suspended ") End If If Request.querystring("mode") = "once" then Response.Write ("Username is currently logged in ") End If If Request.querystring("mode") = "invalid" then Response.Write ("Invalid username or password. Please try again. ") End If %> <% 'Create an ADO recordset object Set rsLostPassword = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT lostpassword FROM tblAdmin" 'Open the recordset with the SQL query rsLostPassword.Open strSQL, adoCon If rsLostPassword("lostpassword") = 1 then Response.Write ("") End If Set rsLostPassword = Nothing %> <% 'Create an ADO recordset object Set rsRegister = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT register FROM tblAdmin" 'Open the recordset with the SQL query rsRegister.Open strSQL, adoCon If rsRegister("register") = 1 then Response.write ("") End If Set rsRegister = Nothing Set adoCon = Nothing %> User name: Password:               Get lost password  here   Register for an account  here

Customized by Cardinal District

Copyright © 2004 Todd Woolums