Able2Let - property management and lettings in Basingstoke

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Conn Dim RS Dim Query Dim TotalVisited Dim ImgSequence Dim CharToReplace Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\Webspace\able2let.co.uk\db\able.mdb;Uid=Admin;Pwd=;" Set RS = Server.CreateObject("ADODB.Recordset") Query = "SELECT * FROM Hitcounter WHERE Hit_ip='" & Request.ServerVariables("REMOTE_ADDR") & "' AND Hit_date=#" & DATE() & "#" RS.Open Query, Conn, 3, 3 'If this is the first visit from this IP IF RS.EOF AND RS.BOF THEN RS.AddNew RS("Hit_date") = Date() RS("Hit_time") = Time() RS("Hit_IP") = Request.ServerVariables("Remote_Addr") RS.Update END IF RS.Close %> <% ' *** 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("textfield")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="default.asp" MM_redirectLoginFailed="#" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_Able_STRING MM_rsUser.Source = "SELECT Username, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM Users WHERE Username='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("textfield2"),"'","''") & "'" 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 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 %> Able2Let - property management and lettings in Basingstoke

able 2 let

ABLE2LET PROPERTY MANAGEMENT

We would like to welcome you to the website of Able2Let; we hope that you find our website user friendly and informative.

Able2Let is a letting/property management agent you can trust and with whom you can call on for support and advice on all your letting needs, whether it be an initial query regarding buying an investment property or advice on transferring from one agent to another. We are here for you every step of the way to help and guide you through the letting process.

Whether you’re a landlord looking to rent out your family home or a tenant looking for somewhere to make your new home, we hope you find all the information you need on this website, however if you have any questions or queries don’t hesitate to contact us.

When you contact the office you will more than likely speak to Claire Blanchflower one of the founder partners. Claire has close to 13 years lettings experience in Basingstoke and the surrounding village areas. Therefore she is a great asset having always lived in Basingstoke; she knows the town well; and can provide detailed information on any aspect of Basingstoke. Claire prides herself on her extensive knowledge; her experience and most importantly she will always give her honest opinion & advice in order to achieve outstanding results.

We at Able2Let hope that you find this website useful; we have tried to include all the important information ensuring it is easy to navigate around. We are always looking for ways to improve our customer service and would welcome any feedback to improve the service. Customer satisfaction is one of our key aims at Able2Let.

We look forward to hearing from you.

Claire Blanchflower, Able2let Property Management

Claire Blanchflower

USERNAME :
PASSWORD :