<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Session("state") = cStr(Request("state")) %> <% Session("country") = cStr(Request("country")) %> <% Dim content Dim content_numRows Set content = Server.CreateObject("ADODB.Recordset") content.ActiveConnection = MM_golf_STRING content.Source = "SELECT welcomemessage FROM dbo.content" content.CursorType = 0 content.CursorLocation = 2 content.LockType = 1 content.Open() content_numRows = 0 %> <% Dim view1__MMColParam view1__MMColParam = "Yes" If (Request("MM_EmptyValue") <> "") Then view1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim view1__MMColParam2 view1__MMColParam2 = "%" If (Request.QueryString("country") <> "") Then view1__MMColParam2 = Request.QueryString("country") End If %> <% Dim view1__MMColParam3 view1__MMColParam3 = "%" If (Request.QueryString("state") <> "") Then view1__MMColParam3 = Request.QueryString("state") End If %> <% Dim view1 Dim view1_numRows Set view1 = Server.CreateObject("ADODB.Recordset") view1.ActiveConnection = MM_golf_STRING view1.Source = "SELECT * FROM dbo.VIEW1 WHERE featured = '" + Replace(view1__MMColParam, "'", "''") + "' and country = '" + Replace(view1__MMColParam2, "'", "''") + "' and state = '" + Replace(view1__MMColParam3, "'", "''") + "'" view1.CursorType = 0 view1.CursorLocation = 2 view1.LockType = 1 view1.Open() view1_numRows = 0 %> <% Dim datedb Dim datedb_numRows Set datedb = Server.CreateObject("ADODB.Recordset") datedb.ActiveConnection = MM_golf_STRING datedb.Source = "SELECT * FROM dbo.properties WHERE prodate <= getDate() AND prodate > getDate()-10" datedb.CursorType = 0 datedb.CursorLocation = 2 datedb.LockType = 1 datedb.Open() datedb_numRows = 0 %> <% Dim view2__MMColParam view2__MMColParam = "%" If (Request.QueryString("country") <> "") Then view2__MMColParam = Request.QueryString("country") End If %> <% Dim view2__MMColParam2 view2__MMColParam2 = "%" If (Request.QueryString("state") <> "") Then view2__MMColParam2 = Request.QueryString("state") End If %> <% Dim view2__MMColParam3 view2__MMColParam3 = "%" If (Request.QueryString("city") <> "") Then view2__MMColParam3 = Request.QueryString("city") End If %> <% Dim view2 Dim view2_numRows Set view2 = Server.CreateObject("ADODB.Recordset") view2.ActiveConnection = MM_golf_STRING view2.Source = "SELECT * FROM dbo.VIEW1 WHERE country LIKE '" + Replace(view2__MMColParam, "'", "''") + "' and state LIKE '" + Replace(view2__MMColParam2, "'", "''") + "' and city LIKE '" + Replace(view2__MMColParam3, "'", "''") + "'" view2.CursorType = 0 view2.CursorLocation = 2 view2.LockType = 1 view2.Open() view2_numRows = 0 %> <% Dim view3__MMColParam view3__MMColParam = "yes" If (Request("MM_EmptyValue") <> "") Then view3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim view3 Dim view3_numRows Set view3 = Server.CreateObject("ADODB.Recordset") view3.ActiveConnection = MM_golf_STRING view3.Source = "SELECT * FROM dbo.VIEW1 WHERE featured = '" + Replace(view3__MMColParam, "'", "''") + "' ORDER BY NEWID()" view3.CursorType = 0 view3.CursorLocation = 2 view3.LockType = 1 view3.Open() view3_numRows = 0 %> <% Dim properties__MMColParam properties__MMColParam = "France" If (Request("MM_EmptyValue") <> "") Then properties__MMColParam = Request("MM_EmptyValue") End If %> <% Dim properties Dim properties_numRows Set properties = Server.CreateObject("ADODB.Recordset") properties.ActiveConnection = MM_golf_STRING properties.Source = "SELECT * FROM dbo.properties WHERE country = '" + Replace(properties__MMColParam, "'", "''") + "'" properties.CursorType = 0 properties.CursorLocation = 2 properties.LockType = 1 properties.Open() properties_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 datedb_numRows = datedb_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = 9 Dim HLooper1__index HLooper1__index = 0 view2_numRows = view2_numRows + HLooper1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Welcome to Golf & Villas
<%=(content.Fields.Item("welcomemessage").Value)%>
<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 3 while((numrows <> 0) AND (Not view2.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not view2.EOF)) %> <% startrw = startrw + 1 view2.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
">
<% If Not properties.EOF Or Not properties.BOF Then %>
<% End If ' end Not properties.EOF Or NOT properties.BOF %>
<% content.Close() Set content = Nothing %> <% view1.Close() Set view1 = Nothing %> <% datedb.Close() Set datedb = Nothing %> <% view2.Close() Set view2 = Nothing %> <% view3.Close() Set view3 = Nothing %> <% properties.Close() Set properties = Nothing %>