% 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) %>
![]() |
|||
|
HOME Villas Resorts Specials Hot Deals Activities Special Services Area Maps Weather Contact Us Testimonials RESERVATIONS Cabo
Vacations Welcomes |
<%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")%> <%End If%> <%IF strSubTemp <> RS.Fields("SubCategory") Then strSubTemp = RS.Fields("SubCategory")%>
<%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)%> <%End If%> <%End If%> <%End If%> <%RS.MoveNext Loop%>
|
|
|
|
|
|||

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