<%@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)

Philadelphia Computer Services

Philadelphia computer support business computer tech support philadelphia pennsylvania Philadelphia computer support business computer tech support philadelphia pennsylvania
Philadelphia pennsylvania computer support business computer tech support philadelphia pennsylvania business computer networks on site professional philadelphia computer tech support available 7 days a week to work on your business computer systems and fix your business computer problems business computers and corporate computer systems.

Sub categories:

Pages:
1
 Previous  Next

Back to the link directory home page

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