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

ID Number

Password

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