<%@ Language=VBScript %> <% Option Explicit %> <% Dim TheMessage if NOT isempty(Request.Form("LogonName")) then Dim objArctechDB set objArctechDB= Server.CreateObject ("adodb.connection") objArctechDB.Open "Web2000", "Webuser", "guessit" objArctechDB.DefaultDatabase="ArctechWeb" Dim RSFindUser set RSFindUser = objArctechDB.Execute("select * from WebUsers where " _ & "EmailAddress = '" & Request.Form("LogonName") & "' and " _ & "Password = '" & Request.Form("Password") & "' and " _ & "Status = 'A'") if RSFindUser.EOF then TheMessage = "Invalid User ID and Password Entered" else Session("UniqID") = RSFindUser("UniqID") Session("UserName") = RTRIM(RSFindUser("UserName")) Session("ClientName") = RTRIM(RSFindUser("ClientName")) Session("ClientID") = RTRIM(RSFindUser("ClientID")) Session("UserType") = RSFindUser("UserType") Session("LastDate") = FormatDateTime(RSFindUser("LastLogin"), vbShortDate) Session("LastTime") = FormatDateTime(RSFindUser("LastLogin"), vbShortTime) Session("DBOption") = RTRIM(RSFindUser("DBOption")) set RSFindUser = objARCTECHDB.Execute("update WebUsers set " _ & "LastLogin = getdate() " _ & "where UniqID = " & Session("UniqID")) objArctechDB.Close set objArctechDB= Nothing Response.Redirect "Information.htm" end if objArctechDB.Close set objArctechDB= Nothing else TheMessage = "Welcome to ARCTECH's Secured Client Access!" end if %> Log On
Professional Recoveries
 

<%= TheMessage %>

 
 
 Username: 
 Password: