<%@LANGUAGE="VBSCRIPT"%> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("txtUsername")) If MM_valUsername <> "" Then MM_fldDynamicRedirect="url" MM_fldUserAuthorization="" MM_redirectLoginSuccessDynamic="" MM_redirectLoginFailed="/members.asp?Action=Failed" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conFlypaper_STRING MM_rsUser.Source = "SELECT username, pword, company, urlstatistics, urlcontrolpanel" If MM_fldDynamicRedirect <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldDynamicRedirect If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.flyCompanies WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND pword='" & Replace(Request.Form("txtPassword"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open 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 Session("MM_UserID") = (MM_rsUser.Fields.Item("Company").Value) Session("MM_Stats") = (MM_rsUser.Fields.Item("urlstatistics").Value) Session("MM_ControlPanel") = (MM_rsUser.Fields.Item("urlcontrolpanel").Value) If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) ElseIf (MM_fldDynamicRedirect <> "") Then MM_redirectLoginSuccessDynamic = CStr(MM_rsUser.Fields.Item(MM_fldDynamicRedirect).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccessDynamic = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccessDynamic) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Flypaper Web Design - Helena MT | 406-442-8230 | We build STICKY Websites!
we build { sticky } websites.

Members Login

This is where current customers can log in to their "Control Panel"; from there they can check their Web Statistics, and access their Database. If you have trouble logging in or have any Technical Support questions please call (406-442-8230) or E-Mail Us.

User Name:

Password:

  <% If Request.QueryString("Action") = "Failed" Then %>

We could not find you in our database; please try again.

<% ElseIf Request.QueryString("Action") = "NoAccess" Then %>

Your Login has either timed out, or you do not have access to the page; Please login.

<% End If %>

 


 

Flypaper Web Designs

333 N. Last Chance Gulch

Helena, MT 59601

406.442.8230

techsupport@flypaperwebs.com