<%@LANGUAGE="VBSCRIPT"%> <%response.buffer=true%> Accommodation - Adevntures - Link Exchange page rank <% server.ScriptTimeout= 300 str_ordine = "Prioritą" str_prezzo = "" 'acquisizione dei dati dal form str_id = trim(request.querystring("id")) str_prov = trim(request.querystring("provincia")) str_prov_i = trim(request.querystring("provincia_i")) str_citta = trim(request.querystring("citta")) str_zona = trim(request.querystring("zona")) str_regione = trim(request.querystring("regione")) str_macroregione = trim(request.querystring("macroregione")) str_prezzo = trim(request.querystring("prezzo")) %> <% if trim(request.querystring("ordine")) <> "" then str_ordine = trim(request.querystring("ordine")) 'calcolo del prezzo max e min se richiesto nel form di ricerca if trim(request.querystring("prezzo")) <> "" then prezzo_min = (str_prezzo-1)*50 prezzo_max = (str_prezzo)*50 end if set objRS=server.createobject("ADODB.Recordset") set objconn=server.createobject("ADODB.connection") 'esegue la ricerca per trovare il record di cui si vogliono i dettagli if str_id <> "" then str_sql = "SELECT * FROM Spool_hotels WHERE " str_sql = str_sql & "ID1 = " + str_id + " " str_sql = str_sql & "ORDER BY Name" end if objconn.open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.mappath("/mdb-database") & "\" & "dbhotel.mdb" if str_id <> "" or str_prov <> "" or str_citta <> "" or str_regione <> "" or str_zona <> "" then set objRS=objconn.execute(str_sql) %>
ADVENTURES

 

Adventure Travel by BikeHike.com

Worldwide Multi-sport Adventure Holidays are our specialty at BikeHike Adventures. Our world of adventure travel is an exciting one where swift-flowing rivers and mountainous coastal trails carry us to the most striking destinations on earth