<% If Request.Cookies("member")="yes" Then %>
Contact Us | Member Services | Log Out
<% Else %>
<%
dim myNumber
if tab="Buy" then
myNumber = Session("buyers")
elseif tab="sell" then
myNumber = Session("sellers")
elseif tab="rent" then
myNumber = Session("renters")
else
myNumber = Session("sellers")
end if
myNumber = Replace(myNumber,"(","")
myNumber = Replace(myNumber,")","-")
%>
CALL TOLL FREE: 1-<%=myNumber%>
<% End if %>
<%
Dim aSubLinkNames, aSubHREF
if tab <> "" Then
session("sesstab") = tab
else
tab = session("sesstab")
end if
'set the subitem session var
if subitem <> "" Then
session("sesssubitem") = subitem
else
subitem = session("sesssubitem")
end if
Select CASE tab
CASE "Sell"
'Sell Timeshare Submenu
aSubLinkNames = array("Timeshare Resales","Sellers Web Form","Resold/Rented List","Seller FAQ's","Selling Timeshare Guide","Timeshare Market Value")
aSubHREF = array("/timeshare-resales.asp","/sell-timeshare.asp","/Timeshare-Resort-Resold-List.Asp","/faq-timeshare-sellers.asp","/guides/sell/selling-timeshares-owners-guide.asp","/timeshare-resale-value.asp")
%>
<% CASE "Buy"
'Buy Timeshare Submenu
aSubLinkNames = array("Timeshares For Sale","Resort Catalog","Map Search","Buyer FAQ's","Buyers Web Form", "Camp Memberships","Buyer Financing")
aSubHREF = array("/timeshares-for-sale-buy.asp","/timeshare-sales-catalog.asp","/resort-map-search.asp","/faq-timeshare-buyers.asp","/timeshare-purchase.asp","/camping.asp","/timeshare-financing.asp")
%>
<% CASE "Rent"
'Rent Timeshare Submenu
aSubLinkNames = array("Last Minute Deals","Advanced Search")
aSubHREF = array("http://www.rentvacations.com/All-Last-Minute-Resort-Rental.asp","http://www.rentvacations.com/Resort-Rental-Advanced-Search.asp")
%>
<% CASE "Exchange"
'Exchange Timeshare Submenu
aSubLinkNames = array("Member Login","Timeshare Bartering","Timeshare for Land","Timeshare Points Memberships")
aSubHREF = array("http://www.timesharelink.com/rii-services-login.asp","http://www.timesharelink.com/ask-a-specialist.asp?do=barter","http://www.timesharelink.com/timeshare-for-land.asp","http://www.timesharelink.com/timeshare-points-systems.asp")
%>
<% CASE ELSE
'Home Submenu
aSubLinkNames = array("About Us","Testimonials","In the News","Pledge of Excellence","Ask a Specialist","Glossary","Articles","Career Opportunities", "Blog")
aSubHREF = array("/about-us.asp","/timeshare-testimonials.asp","/company-press-releases.asp","/Timeshare-Pledge-of-Excellence.asp","/ask-a-specialist.asp","/timeshare-glossary.asp","/timeshare-insider.asp","/sales-jobs-for-time-shares.asp", "http://timeshareresaleblogs.com")
%>
<% END SELECT %>
<% CASE "Buy"
'Buy Timeshare Submenu
aSubLinkNames = array("Timeshares For Sale","Resort Catalog","Map Search","Buyer FAQ's","Buyers Web Form", "Camp Memberships","Buyer Financing")
aSubHREF = array("/timeshares-for-sale-buy.asp","/timeshare-sales-catalog.asp","/resort-map-search.asp","/faq-timeshare-buyers.asp","/timeshare-purchase.asp","/camping.asp","/timeshare-financing.asp")
%>
<% CASE "Rent"
'Rent Timeshare Submenu
aSubLinkNames = array("Last Minute Deals","Advanced Search")
aSubHREF = array("http://www.rentvacations.com/All-Last-Minute-Resort-Rental.asp","http://www.rentvacations.com/Resort-Rental-Advanced-Search.asp")
%>
<% CASE "Exchange"
'Exchange Timeshare Submenu
aSubLinkNames = array("Member Login","Timeshare Bartering","Timeshare for Land","Timeshare Points Memberships")
aSubHREF = array("http://www.timesharelink.com/rii-services-login.asp","http://www.timesharelink.com/ask-a-specialist.asp?do=barter","http://www.timesharelink.com/timeshare-for-land.asp","http://www.timesharelink.com/timeshare-points-systems.asp")
%>
<% CASE ELSE
'Home Submenu
aSubLinkNames = array("About Us","Testimonials","In the News","Pledge of Excellence","Ask a Specialist","Glossary","Articles","Career Opportunities", "Blog")
aSubHREF = array("/about-us.asp","/timeshare-testimonials.asp","/company-press-releases.asp","/Timeshare-Pledge-of-Excellence.asp","/ask-a-specialist.asp","/timeshare-glossary.asp","/timeshare-insider.asp","/sales-jobs-for-time-shares.asp", "http://timeshareresaleblogs.com")
%>
<% END SELECT %>
<% 'Set the tab session var
dim subLinkColor, j
'Draw Sub Menu navigation
For I = 0 to uBOUND(aSubLinkNames)
'Bold Active Sub Link
'if aSubLinkNames(I) = subitem Then
' subLinkColor = "F8DD8C"
' else
subLinkColor = "#FFFFFF"
' end if
If I <> 0 Then
Response.Write " | "
End If
'For submenu lines that wrap
If aSubLinkNames(I) = "Hotel vs. Resort" Then
Response.Write "
" End If 'To open a new window on external site If aSubLinkNames(I) = "RCI" or tab = "Rent" or aSubLinkNames(I) = "Blog" Then target = "_blank" Else target = "" End if If aSubLinkNames(I) = subitem and Request.ServerVariables("URL") <> "http://www.timesharelink.com" then %> <%=aSubLinkNames(I)%> <% else %> <%=aSubLinkNames(I)%> <% end if Next %>
" End If 'To open a new window on external site If aSubLinkNames(I) = "RCI" or tab = "Rent" or aSubLinkNames(I) = "Blog" Then target = "_blank" Else target = "" End if If aSubLinkNames(I) = subitem and Request.ServerVariables("URL") <> "http://www.timesharelink.com" then %> <%=aSubLinkNames(I)%> <% else %> <%=aSubLinkNames(I)%> <% end if Next %>