Property Professionals

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLogin__strUser_name rsLogin__strUser_name = "xyz" if (Request.Form("User_name") <> "") then rsLogin__strUser_name = Request.Form("User_name") %> <% Dim rsLogin__strPassword rsLogin__strPassword = "123" If (Request.Form("User_pwd") <> "") Then rsLogin__strPassword = Request.Form("User_pwd") End If %> <% set rsLogin = Server.CreateObject("ADODB.Recordset") rsLogin.ActiveConnection = MM_connhit_STRING rsLogin.Source = "SELECT * FROM Trainees WHERE User_name = '" + Replace(rsLogin__strUser_name, "'", "''") + "' AND User_pwd = '" + Replace(rsLogin__strPassword, "'", "''") + "'" rsLogin.CursorType = 0 rsLogin.CursorLocation = 2 rsLogin.LockType = 3 rsLogin.Open() rsLogin_numRows = 0 %> <% If rsLogin__strUser_name <> "xyz" then If Not rsLogin.EOF Then Session("svUsername") = (rsLogin.Fields.Item("User_name").Value) Session("svPassword") = (rsLogin.Fields.Item("User_pwd").Value) Session("svAccessGroup") = (rsLogin.Fields.Item("User_access").Value) Session("svRealName") = (rsLogin.Fields.Item("User_realname").Value) Session("svUserID") = (rsLogin.Fields.Item("User_ID").Value) Response.Redirect "index.asp" Else Response.Redirect "loginfailed.htm" End If End If %> Property Professionals

Welcome to the secure login area of the Property Professionals website

Please login using your unique 7 digit number we wrote to you about, and your surname as your password.

We hope you enjoy this new facility and good luck with the rest of your training.

<% rsLogin.Close() Set rsLogin = Nothing %>