<% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Links" strPage = Request.Querystring("Page") SqlCode = "SELECT * FROM Sites WHERE (Website = 'www.cometocabo.com') ORDER BY Category DESC, SubCategory, UniqueID" Set RS = OConn.Execute (SqlCode) %> Cabo San Lucas Vacation Rentals
Cabo San Lucas Vacation Rentals
   HOME

   Villas
   Resorts
   
  
Specials 
   Hot Deals


   Activities
   Special Services

   Area Maps
   Weather

   Contact Us
   Testimonials

   RESERVATIONS
   Policies

   Investment
     Properties

   

  Cabo Vacations Welcomes

Sun Cabo Vacations accepts VisaSun Cabo Vacations accepts Mastercard
Sun Cabo Vacations accepts American Express
Sun Cabo Vacations accepts Discover/Novus Cards


Your Specialists in Cabo San Lucas Vacation Rentals, San Jose Del Cabo and the Los Cabos Mexico area.


Sun-Cabo Vacations Links

 
<%Do While NOT RS.EOF%> <%If ((strPage = "") AND (RS.Fields("Category") = "")) Then%>

  " target="_blank"> <%=RS.Fields("Title")%>...
<%If Len(RS.Fields("Description")) > 0 Then%><%=RS.Fields("Description")%>
<%End If%>  " target="_blank"><%=RS.Fields("URL")%>

<%Else%> <%If strPage > "" Then%> <%If (strPage = RS.Fields("Category")) AND (RS.Fields("Category") > "") Then%> <%IF strTemp <> RS.Fields("Category") Then strTemp = RS.Fields("Category")%>
  <%=RS.Fields("Category")%>

<%End If%> <%IF strSubTemp <> RS.Fields("SubCategory") Then strSubTemp = RS.Fields("SubCategory")%>
    <%=RS.Fields("SubCategory")%>
<%End If%>
      " target="_blank"> <%=RS.Fields("Title")%>...
<%If Len(RS.Fields("Description")) > 0 Then%> <%=RS.Fields("Description")%>
<%End If%>  " target="_blank"><%=RS.Fields("URL")%>
<%End IF%> <%Else%> <%IF strTemp <> RS.Fields("Category") Then strTemp = RS.Fields("Category") SqlCode = "SELECT Count(website) AS EXPR1 FROM Sites WHERE (Website = 'www.cometocabo.com' and Category = '" & strTemp & "' )" Set RS1 = OConn.Execute (SqlCode)%>
  .htm"><%=RS.Fields("Category")%>(<%=RS1.Fields("EXPR1")%>)

<%End If%> <%IF strSubTemp <> RS.Fields("SubCategory") Then strSubTemp = RS.Fields("SubCategory") SqlCode = "SELECT Count(website) AS EXPR1 FROM Sites WHERE (Website = 'www.cometocabo.com' and Category = '" & strTemp & "' and SubCategory = '" & strSubTemp & "')" Set RS1 = OConn.Execute (SqlCode)%>
    .htm"><%=RS.Fields("SubCategory")%>(<%=RS1.Fields("EXPR1")%>)

<%End If%> <%End If%> <%End If%> <%RS.MoveNext Loop%>


 


Exchange Links with Us

Cabo San Lucas Vacation Rentals

 



Come join the fun. Come to Cabo San Lucas, Mexico!!
1-800-710-2226 (1-800-710-CABO)
 

 

 

Vacation Rentals in Cabo San Lucas
Copyright Sun-Cabo Vacations 2001-2002
Your Cabo San Lucas Vacation Rentals Specialists