<% '================================================================ 'Application Info: ' Cartweaver© 2002 - 2005, All Rights Reserved. 'Developer Info: ' Application Dynamics Inc. ' 1560 NE 10th ' East Wenatchee, WA 98802 'Support Info: http://www.cartweaver.com/go/asphelp ' 'Cartweaver Version: 2.0 - Date: 11/20/2004 '================================================================ 'Name: default.asp 'Description: Admin log on page '================================================================ %> <% Dim LogonError If Request.Form("adminUsername") <> "" Then 'Query the database to see if the user is registered Dim rsGetLogon Set rsGetLogon = cwOpenQuery("SELECT * FROM tbl_adminusers WHERE " & _ "admin_UserName ='" & cwCleanString(Request.Form("adminUsername")) & "' AND " &_ "admin_Password ='" & cwCleanString(Request.Form("adminPassword")) & "'",datasource) 'Record found, login If rsGetLogon.RecordCount <> 0 Then Dim LastLogin : LastLogin = rsGetLogon("admin_LoginDate") If LastLogin = "" OR NOT IsDate(LastLogin) Then LastLogin = DateAdd("y",-1,Now()) End If 'Set the session vars Session("LoggedIn") = 1 'This session store the username Session("LoggedUser") = rsGetLogOn("admin_UserName") Session("LastLogin") = LastLogin 'Store username inside a cookie if required If Request.Form("remember_me") <> "" Then Response.Cookies("CWAdminUsername") = Request.Form("adminUsername") Else 'clean any existing cookie Response.Cookies("CWAdminUsername") = "" End If 'Update user logon date Call cwExecuteQuery("UPDATE tbl_adminusers SET " &_ "admin_LastLogin = '" & LastLogin & "', " &_ "admin_LoginDate = '" & Now() & "' " &_ "WHERE admin_UserName = '" & Session("LoggedUser") & "'",datasource,Null) 'If the user requested a specific page, redirect there If Request.Querystring("accessdenied") <> "" Then Response.Redirect(Request.Querystring("accessdenied")) Else Response.Redirect("AdminHome.asp") End If Else 'Login failed 'Display an error message LogOnError = "Log on unsuccesful. No match was found. Please try again or contact administrator." End If 'rsGetLogon.RecordCount <> 0 End If 'Request.Form("username") <> "" %> CW Admin: Log In .focus();">

<% If (LogOnError) <> ("") Then 'Start CCR %>

<%= LogOnError %>

<% End If 'End CCR: (LogOnError) <> ("") %>

Elm City Computing , E-Store Administration Log In

Username:	" />
Password:	"" Then Response.Write(" checked") %> /> Remember me