About Resort Holiday Weeks

<% @language="vbscript" %> <% ' Do not cache this page. Response.CacheControl = "no-cache" ' Define the name of the users table. Const USERS_TABLE = "tblUsers" ' Define the path to the logon page. Const LOGON_PAGE = "/memberslogon/logon.asp" ' Define the path to the logon database. Const MDB_URL = "/memberslogon/_private/logon.mdb" ' Check to see whether you have a current user name. If Len(Session("UID")) = 0 Then ' Are you currently on the logon page? If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then ' If not, set a session variable for the page that made the request... Session("REFERRER") = Request.ServerVariables("URL") ' ...and redirect to the logon page. Response.Redirect LOGON_PAGE End If End If ' This function checks for a username/password combination. Function ComparePassword(UID,PWD) ' Define your variables. Dim strSQL, objCN, objRS ' Set up your SQL string. strSQL = "SELECT * FROM " & USERS_TABLE & _ " WHERE (UID='" & ParseText(UID) & _ "' AND PWD='" & ParseText(PWD) & "');" ' Create a database connection object. Set objCN = Server.CreateObject("ADODB.Connection") ' Open the database connection object. objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _ Server.MapPath(MDB_URL) & "; uid=admin; pwd=" ' Run the database query. Set objRS = objCN.Execute(strSQL) ' Set the status to true/false for the database lookup. ComparePassword = Not(objRS.EOF) ' Close your database objects. Set objRS = Nothing Set objCN = Nothing End Function ' This function restricts text to alpha-numeric data only. Function ParseText(TXT) Dim intPos, strText, intText For intPos = 1 TO Len(TXT) intText = Asc(Mid(TXT,intPos,1)) If (intText > 47 And intText < 58) Or _ (intText > 64 And intText < 91) Or _ (intText > 96 And intText < 123) Then strText = strText & Mid(TXT,intPos,1) End if Next ParseText = strText End Function %> About Resort Holiday Weeks - Members Logon

Members

Timeshare Resort Vacation System

Resort Image

Here members can search for available resorts. For best results please look 2-6 months ahead. If at first you do not find what you are looking for, try again every few days as our resort inventory updates daily.

Resort Search Units $299 - $575 per week

Bonus Resort Inventory *New additional resorts

Cruise Savings

Cruise Image

Here members can complete a form to request quotes by email for any cruise you want. Sit back and have travel agents bid against each other for your business.

Request Cruise Quotes

Great deals on Airfare for United Kingdom residents

United States residents save up to 60% on major airlines

Airfare.com

Going to Orlando? Click below for Free Tickets to Universal Studios