<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true%>
Accommodation - Europe - 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)
%>
