Naked Egg Web Design | Client Area

<%@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("login")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="default.htm" MM_redirectLoginFailed="loginerror.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connNEWD_STRING MM_rsUser.Source = "SELECT username, password, destinationpage" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM login WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("password"),"'","''") & "'" 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 MM_redirectLoginSuccess = CStr(MM_rsUser.Fields.Item("destinationpage").Value) 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 false 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 %> Naked Egg Web Design | Client Area

This restricted area is for the benefit of our clients, to view the ongoing construction of their website.

Clients
Please enter your provided login and password details to view your website work in progress.
Note: Login and Password are case-sensitive.

Client Login:
Password:

Home - Web Design - Portfolio - Client Area - Contact Us
Email: info@newd.com.au