<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("txtUsername")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "../support/clientHome.asp" MM_redirectLoginFailed = "../clientBadLogin.asp" MM_loginSQL = "SELECT txtLOGINID, txtPASSWORD" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM dbo.clients WHERE txtLOGINID = ? AND txtPASSWORD = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_connITSUPPORT_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 50, Request.Form("txtPassword")) ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% Function checkSecurity If Request.Cookies("user") <> "" Then checkSecurity = "Pass" Else checkSecurity = "Fail" End If End Function Response.Cookies("mt")("pagetitle") = "" 'INSERT PAGE NAME (OR LEAVE BLANK) Server.Execute("/metatraffic2/track.asp") %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("txtUsername")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "../support/clientHome.asp" MM_redirectLoginFailed = "../support/clientBadLogin.asp" MM_loginSQL = "SELECT *" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM dbo.clients WHERE txtLOGINID = ? AND txtPASSWORD = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_connITSUPPORT_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 50, Request.Form("txtPassword")) ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername Response.Cookies("user")("username")=Request.Form("txtUsername") Response.Cookies("user")("password")=Request.Form("txtPassword") Response.Cookies("user")("clientid")=MM_rsUser.Fields.Item("client_id").Value Response.Cookies("user").Path = "/" Response.Cookies("user").Expires=date()+30 If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> I.T. & Computer Consulting, Network Installation & Setup, Web Design
MANAGED IT SERVICES
OnDEMAND IT SERVICES
WEB SITE DESIGN SERVICE
ONLINE BACKUP SERVICE
INTERNET MARKETING SERVICE
Philadelphia Computer Services (1)

Call Us For A Toll Free Consultation
(888) 550-8598
Or Contact Us Online
Click Here




CLIENT LOGIN

Get the latest computer & technology help, news, tips, critical security updates, plus links to great technology deals right in your inbox from Xact I.T. Solutions.

Register Here!

First Name:

Last Name:

E-mail Address:
CLIENT LOGIN
<% If checkSecurity = "Fail" Then %>

Username:

Password:

<%Elseif checkSecurity = "Pass" Then %> You are logged in [Logout]
Client Central <%end if%>

 

Home | About Us | Contact Us | Our Service Guarantee| Site map | Links | Useful Web Sites