function buildURL(stype)
{ 
  if (((navigator.appName == "Netscape") ||
  (navigator.appName == "Microsoft Internet Explorer")) && 
  (parseFloat(navigator.appVersion) >= 3.0)) 
       {  
	var str="?SRC="+escape(document.ypform.SRC.value)+"&STYPE="+stype+"&C="+
   	escape(document.ypform.C.value)+"&N="+escape(document.ypform.N.value)
        
   	if (stype == "D") {
          return str+"&RT="+escape(document.ypform.T.value)+"&RS=pr"+
          "&T="+escape(document.ypform.T.value)}       
   	else {
          return str+"&T="+escape(document.ypform.T.value)+"&S=PR"
         }
        }
  else { 
        return "?SRC=pr2&STYPE=S&PG=L&R=N&C=automobiles+-+rental&N=&T=&S="}
}
// -->



function buildURL_tc(stype)
{
  if (((navigator.appName == "Netscape") ||
  (navigator.appName == "Microsoft Internet Explorer")) &&
  (parseFloat(navigator.appVersion) >= 3.0))
       {
        var str="?SRC="+escape(document.ypform.SRC.value)+"&STYPE="+stype+"&S="+"&N="+escape(document.ypform.N.value)+"&search=find+it"

        if (stype == "D") {
          return str+"&RT="+escape(document.ypform.T.value)+"&RS=pr"+
          "&T="+escape(document.ypform.T.value)}
        else {
                return str+"&T="+
                escape(document.ypform.T.options[document.ypform.T.selectedIndex].value)}
        }
  else {
        return "?SRC=pr2&STYPE=S&PG=L&R=N&C=automobiles+-+rental&N=&T=&S="}
}

function validate()
{
        if ((document.ypform.C.value == "") &&
            (document.ypform.N.value == "")) {
                if (document.ypform.STYPE.value == "S") {
                        alert("You must enter a business name or a category!");
			document.ypform.C.focus();
                        return(false);
                } else if ((document.ypform.A.value == "") &&
                           (document.ypform.X.value == "") &&
                           (document.ypform.P.value == "") &&
                           (document.ypform.E.value == "")
                          ) {
                                alert("You must enter a business name, category, street, or phone number!");
                                return(false);
                }
        }
        return(true);
}


var items2=0;
var linksArr = new Array()

var facts = new Array()
var where = new Array()
var transport = new Array()
var shopping = new Array()
var foodDrink = new Array()
var nightLife = new Array()
var excursions = new Array()
var sunSurf = new Array()


var items=0;
facts[items++] = {text:"Municipio de Caguas",url:"http://www.gotocaguas.com"}
facts[items++] = {text:"Compañía de Turismo",url:"http://www.gotopuertorico.com"}
facts[items++] = {text:"Magic",url:"http://www.magic973.com"}
facts[items++] = {text:"Puerto Rico Convention Bureau",url:"http://www.meetpuertorico.com"}
facts[items++] = {text:"Radio Woso",url:"http://www.woso.com"}

var items=0;
where[items++] = {text:"Parador Boquemar",url:"boquemar@prt.net"}
where[items++] = {text:"Alto Grande",url:"http://www.altogrande.com"}
where[items++] = {text:"Tamboo Beside the Pointe",url:"http://www.besidethepointe.com"}
where[items++] = {text:"Bittersweet Caribbean",url:"http://www.bittersweetcaribbean.com"}
where[items++] = {text:"Restaurante La Cascada",url:"http://www.boquemar.com"}
where[items++] = {text:"Parador Boquemar",url:"http://www.boquemar.com"}
where[items++] = {text:"Bungers Inn @ Sandy Beach",url:"http://www.bungersinn.com"}
where[items++] = {text:"Casa Caribe Vacations Rentals",url:"http://www.casacaribepr.com"}
where[items++] = {text:"Casa del Sol Guest house",url:"http://www.casadelsolpr.com"}
where[items++] = {text:"Casa Isleña Inn",url:"http://www.casa-islena.com "}
where[items++] = {text:"Confort Inn Suites",url:"http://www.confortinnpr,com"}
where[items++] = {text:"The Coqui Inn",url:"http://www.coqui-inn.com"}
where[items++] = {text:"Corcega Beach Condos",url:"http://www.corcegabeachcondos.com"}
where[items++] = {text:"Costa del Mar",url:"http://www.costadelmarpr.com"}
where[items++] = {text:"Crow's Nest",url:"http://www.crowsnestvieques.com"}
where[items++] = {text:"Dorado Beach",url:"http://www.doradobeachclubs.com"}
where[items++] = {text:"Fajardo Inn",url:"http://www.fajardoinn.com"}
where[items++] = {text:"Ceiba Country Inn",url:"http://www.geocities.com/coumtryinn00735"}
where[items++] = {text:"Haudi Mar Beach Apartments",url:"http://www.haudimar.com"}
where[items++] = {text:"Hilton Ponce Golf & Casino Resort",url:"http://www.hiltoncaribbean.com/ponce"}
where[items++] = {text:"Lighthouse Plaza hotel",url:"http://www.hotellighthouseplaza.com"}
where[items++] = {text:"Hotel Melia",url:"http://www.hotelmeliapr.com"}
where[items++] = {text:"Hotel Rosa del Mar",url:"http://www.hotelrosadelmar.com"}
where[items++] = {text:"Lucia Beach Villas",url:"http://www.luciabeachvillas.com"}
where[items++] = {text:"Luquillo Sunrise Beach Inn",url:"http://www.luquillosunrise.com"}
where[items++] = {text:"Mayaguez Resort & Casino",url:"http://www.mayaguezresort.com"}
where[items++] = {text:"Las Villas Motel",url:"http://www.motellasvillas.com"}
where[items++] = {text:"Passion Fruit Bed & Breakfast",url:"http://www.passionfruitbb.com"}
where[items++] = {text:"Ramada Ponce Hotel",url:"http://www.ramadaponce.com "}
where[items++] = {text:"Rincon Beach Hotel",url:"http://www.rinconbeach.com"}
where[items++] = {text:"Rincon of the Sea Grand Caribbean Hotel",url:"http://www.rinconofthesea.com"}
where[items++] = {text:"Embassy Suites",url:"http://www.sanjuan.embasysuites.com"}
where[items++] = {text:"San Juan Park Hotel",url:"http://www.sanjuanparkhotel.com"}
where[items++] = {text:"San Miguel Plaza Hotel",url:"http://www.sanmiguelplazahotel.com"}
where[items++] = {text:"Tres Palmas Inn",url:"http://www.trespalmasinn.com"}
where[items++] = {text:"Tropical Inns",url:"http://www.tropicalinnspr.com"}
where[items++] = {text:"Parador villa Antonio",url:"http://www.villa-antonio.com"}
where[items++] = {text:"Villa Cofresi Hotel & Restaurant",url:"http://www.villacofresi.com"}
where[items++] = {text:"Hotel Villa del Sol",url:"http://www.villadelsolpr.com"}
where[items++] = {text:"Villa Los Delfines",url:"http://www.villalosdelfines.com"}
where[items++] = {text:"Villa Montaña Beach Resort",url:"http://www.villamontana.com"}
where[items++] = {text:"Villa Tropical Oceanfront Apartments",url:"http://www.villatropical.com "}
where[items++] = {text:"Hotel Yunque Mar",url:"http://www.yunquemar.com"}

var items=0;
transport[items++] = {text:"Allied Car & Truck Rental",url:"http://www.alliedcarrentalpr.com"}
transport[items++] = {text:"Black Pearl Luxury Transport",url:"http://www.blackpearllt.com"}
transport[items++] = {text:"Cabrera Car Rental",url:"http://www.cabreracarrental.com"}
transport[items++] = {text:"Carlos Jeep Rental",url:"http://www.carlosjeeprental.com"}
transport[items++] = {text:"Ducati de Puerto Rico",url:"http://www.ducatipr.com"}
transport[items++] = {text:"Lanes Car & Truck Rental",url:"http://www.lanescarrental.com"}
transport[items++] = {text:"Royal Star Limousine",url:"http://www.limo4pr.com"}
transport[items++] = {text:"Martineau Car Rental",url:"http://www.martineaucarrental.com"}
transport[items++] = {text:"Krystal Executive Transportation",url:"http://www.prkrystal.com"}
transport[items++] = {text:"J&M Realty",url:"http://www.realestateinrincon.com"}
transport[items++] = {text:"Target Rent a Car",url:"http://www.targetrentacar.com"}
transport[items++] = {text:"Vias Car Rental",url:"http://www.viascarrental.com"}
transport[items++] = {text:"Royal Star Limousine",url:"http://www.royalstarlimousine.com"}

var items=0;
shopping[items++] = {text:"Audio Visual Consultants",url:"http://www.avconsultantspr.com"}
shopping[items++] = {text:"Costazul Surf Shop",url:"http://www.costazulpr.com"}
shopping[items++] = {text:"Edoudard de Paris",url:"http://www.edouardparis.com"}
shopping[items++] = {text:"Glow Soa & Salon",url:"http://www.glowspapr.com"}
shopping[items++] = {text:"Only you Spa",url:"http://www.onlyyouspa.com"}
shopping[items++] = {text:"Samurai Ink Tattoo & Piercing",url:"http://www.samuraiink.com"}
shopping[items++] = {text:"Zen Spa",url:"http://www.zen-spa.com"}

var items=0;
foodDrink[items++] = {text:"Machete Rojo",url:"bienvenidos@macheterojo.com"}
foodDrink[items++] = {text:"Chez Daniel French Restaurant",url:"chezdaniel@libertypr.net"}
foodDrink[items++] = {text:"Acua Bar & Italian Cuisine",url:"http://www.acauavsj.co"}
foodDrink[items++] = {text:"Aqua Mar Steak House & seafood",url:"http://www.aquamarsteakhouse.com"}
foodDrink[items++] = {text:"Bangkok & Bombay",url:"http://www.bangkokbombay.com"}
foodDrink[items++] = {text:"Boquerón Bay Café",url:"http://www.boqueronbaycafe.com"}
foodDrink[items++] = {text:"Brisas del Atlantico",url:"http://www.brisasdelatlantico.com"}
foodDrink[items++] = {text:"Canela",url:"http://www.canela-cafˇ.com "}
foodDrink[items++] = {text:"Chop House",url:"http://www.chophousepr.com"}
foodDrink[items++] = {text:"Chirs Restaurant",url:"http://www.chrisrestaurant.com"}
foodDrink[items++] = {text:"Drums",url:"http://www.drumssanjuan.com"}
foodDrink[items++] = {text:"Restaurante El Jibarito",url:"http://www.eljibaritopr.com"}
foodDrink[items++] = {text:"El rincon que no conoces",url:"http://www.elrinconquenoconoces.com"}
foodDrink[items++] = {text:"Erik's Gyros and Deli",url:"http://www.eryksgyrosanddeli.com"}
foodDrink[items++] = {text:"Gordy's Pizza",url:"http://www.gordyspizzapr.com"}
foodDrink[items++] = {text:"Hard Rock Café",url:"http://www.hardrock.com"}
foodDrink[items++] = {text:"Del Mar Gril",url:"http://www.hotelrosadelmar.com"}
foodDrink[items++] = {text:"J-Taste",url:"http://www.j-taste.com"}
foodDrink[items++] = {text:"Karambola Bar & Restaurant",url:"http://www.karambolapr110.com"}
foodDrink[items++] = {text:"King Seafood",url:"http://www.kingseafoodpr.com"}
foodDrink[items++] = {text:"Maria's Bar Restaurant",url:"http://www.mariasbar.com"}
foodDrink[items++] = {text:"Mizu sushi & Charcoal Bar",url:"http://www.mizupr.com"}
foodDrink[items++] = {text:"Logans Irish Pub",url:"http://www.myspace.com/loganspub"}
foodDrink[items++] = {text:"Old Harbor Brewery Stak & Lobster House",url:"http://www.oldharborbrewery.com"}
foodDrink[items++] = {text:"Olelelolai",url:"http://www.olelelolai"}
foodDrink[items++] = {text:"Pasion by chef Myrta",url:"http://www.pasionporelfogon.com"}
foodDrink[items++] = {text:"Pasion por el Fogon",url:"http://www.pasionporelfogon.net"}
foodDrink[items++] = {text:"Porto Bello",url:"http://www.portobellopr.com"}
foodDrink[items++] = {text:"Restaurante Raices",url:"http://www.restauranteraices.com"}
foodDrink[items++] = {text:"Richies Cafˇ",url:"http://www.richiescafepr.com"}
foodDrink[items++] = {text:"Sofia Italian Kitchen & Bar",url:"http://www.ristorantesofia.com"}
foodDrink[items++] = {text:"Salitre Meson Costero",url:"http://www.salitre.com"}
foodDrink[items++] = {text:"Sambuka",url:"http://www.sambukarestarurant.com"}
foodDrink[items++] = {text:"Noble Romans",url:"http://www.sanjuan.embassysuites.com"}
foodDrink[items++] = {text:"Soleil",url:"http://www.soleilbeachclub.com"}
foodDrink[items++] = {text:"Yerba Buena Restaurant",url:"http://www.yerbabuenapr.com"}
foodDrink[items++] = {text:"Yiya's Restaurant",url:"http://www.yiyasrestaurant.com"}

var items=0;
nightLife[items++] = {text:"Ice Gentlemens Club",url:"http://www.clubicepr.com"}
nightLife[items++] = {text:"Club Lazer",url:"http://www.clublazer.com"}
nightLife[items++] = {text:"Krash",url:"http://www.krashpr.com"}

var items=0;
excursions[items++] = {text:"Tanama Cave Tubing of Puerto Rico",url:"facebook.com:tanamatours"}
excursions[items++] = {text:"Akuadventures",url:"http://www.biobaypr.com"}
excursions[items++] = {text:"LA Marquesa Canopy Tours",url:"http://www.canopytourspr.com"}
excursions[items++] = {text:"Family Advertures",url:"http://www.familyadventures.com"}
excursions[items++] = {text:"Arecibo Observatory",url:"http://www.naic.edu"}
excursions[items++] = {text:"Rocaliza Adventures Tours",url:"http://www.rocaliza.com"}
excursions[items++] = {text:"Tropical Trails Rides",url:"http://www.tropicalinnspr.com"}

var items=0;
sunSurf[items++] = {text:"Akuasport",url:"http://www.akuasportpr.com"}
sunSurf[items++] = {text:"Blue Caribe Kayaks",url:"http://www.bluecaribekayaks.com"}
sunSurf[items++] = {text:"Hipodromo Camarero",url:"http://www.camareroracepr.com"}
sunSurf[items++] = {text:"Don Tuto Fishing Charteer & Island Adventures",url:"http://www.dontutofishingcharter.com"}
sunSurf[items++] = {text:"East Island Excursion",url:"http://www.eastwindcats.com"}
sunSurf[items++] = {text:"Hipodromo Camarero",url:"http://www.hipodromo-camarero.com"}
sunSurf[items++] = {text:"Majoa Dives Shop",url:"http://www.majoadives.com "}
sunSurf[items++] = {text:"Puerto Rico Water Tours Inc.",url:"http://www.puertoricowatertours.com "}
sunSurf[items++] = {text:"Seawave Charters.com",url:"http://www.seawavecharters.com"}
sunSurf[items++] = {text:"Splash Sone",url:"http://www.splashzonepr.com "}
sunSurf[items++] = {text:"Puerto Rico Technical Diving Center & Puerto Rico Paintball Center",url:"http://www.technicaldivingpr.com"}


linksArr["facts"] = {text:"For more information about Puerto Rico click on the following sites", links:facts}
linksArr["where"] = {text:"For lodging options click on the following sites", links:where}
linksArr["transport"] = {text:"For transportation options click on the following sites", links:transport}
linksArr["shopping"] = {text:"For shopping options click on the following sites", links:shopping}
linksArr["foodDrink"] = {text:"For restaurants options click on the following sites", links:foodDrink}
linksArr["nightLife"] = {text:"For night life options click on the following sites", links:nightLife}
linksArr["excursions"] = {text:"For excursions options click on the following sites", links:excursions}
linksArr["sunSurf"] = {text:"For sun & surf options click on the following sites", links:sunSurf}

function listItems(listIndex)
{
   document.write("<div id='related'>\n")
   document.write("<div>\n")
   document.write("<span class='title4'>" + linksArr[listIndex].text + "</span>\n")
   document.write("<ul style='margin-top: 10px; padding-top: 0px; padding-bottom: 0px;margin:0; padding:0; '>")
   for (i = 0;i < linksArr[listIndex].links.length;i++)
   {
      document.write("<li style='padding-bottom: 4px; margin-left:0; padding-left:0; font-size: 11px;list-style-type:none; border-bottom: 1px dotted grey; margin-top: 2px;'><a href='" + linksArr[listIndex].links[i].url + "'>" + linksArr[listIndex].links[i].text + "</a></li>\n")
   }
   document.write("</ul>\n")
   document.write("</div>\n")
   document.write("</div>\n")
}