<%
nivell = request.QueryString("nvl")
if (nivell=null) then
nivell = 0
else
nivell = cint(nivell)
end if
'debuga "nivell",nivell
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' response.Write("Prova d'encriptació/desencriptació de la sessió
")
' response.Write(request.QueryString("session")&"
")
' encriptat = EncryptStr(request.QueryString("session"),"0")
' response.Write(encriptat&"
")
' desencriptat = UnEncryptStr(encriptat,"0")
' response.Write(desencriptat&"
")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Volem mostrar els detalls d'un immoble de lloguers turístics
if (InStr(request.QueryString("session"),"-1101-") > 0) then
' parametres = trim(request.QueryString("s"))
' dec_parametres = UnEncryptStr(parametres,"0")
' variables = split(dec_parametres,"-")
variables = split(trim(request.QueryString("session")),"-")
ofertes = trim(variables(0))
'debuga "ofertes",ofertes
ubi = trim(variables(1))
tip = trim(variables(2))
article = trim(variables(3))
familia = trim(variables(4))
codi = trim(variables(5))
preu = trim(variables(6))
oficina = trim(variables(7))
SQL = "SELECT Nombre, video " ' MODIFICAT DANI: NECESSITARÉ EL "video" més endavant a "nou_detalls
SQL = SQL & "FROM LARTICULOS "
' SQL = SQL & "WHERE referencia = '"& familia & "' and no_visible=0" ' DÓNO PER SUPOSAT QUE ÉS NOVISIBLE=N PERQUÈ VE DEL LLENÇOL
SQL = SQL & "WHERE referencia = '"& familia & "' "
'response.Write(sql)
set rs_nomf = session("dbtor").execute(SQL)
if rs_nomf.eof then
response.Redirect("/index.asp")
end if
titol = rs_nomf("Nombre") & Titol_llturistics2
' Nombre=rs_nomf("familia") ' RETOCAT DANI GIL
' titol = TRIM(rs_nomf("familia")) & "" & rs_nomf("poblacio")& Titol_llturistics2 ' RETOCAT DANI GIL
'response.Write(titol)
SQL2 = "SELECT * "
SQL2 = SQL2 & "FROM LIMMOBLE "
SQL2 = SQL2 & "WHERE CODIFIN = '" & codi & "'"
'response.Write(sql2)
set rs_desc = session("dbtor").execute(SQL2)
if (not rs_desc.eof) then
SELECT CASE(idioma)
CASE 1:
descrip_web = rs_desc("DESWEBES")
CASE 2:
descrip_web = rs_desc("DESWEB")
CASE 3:
descrip_web = rs_desc("DESWEBAN")
CASE 4:
descrip_web = rs_desc("DESWEBFR")
CASE 5:
descrip_web = rs_desc("DESWEBAL")
CASE 6:
descrip_web = rs_desc("DESWEBHO")
CASE else:
descrip_web = rs_desc("DESWEB")
END SELECT
metatext = Meta_immobles & " - " & trim(descrip_web)
metatext2 = Meta_immobles & " - " & trim(descrip_web)
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Volem veure el llençol de lloguers turístics demanats a través del buscador de la web
else
'on error resume next
cadena = trim(request.QueryString("b"))
cadena2=encriptar(cadena,"D")
variables = split(cadena2,"x")
DA = sizero(trim(variables(0)),"")
'debuga "DA",DA
DS = sizero(trim(variables(1)),"")
'debuga "DS",DS
hab = sizero(trim(variables(2)),"")
'debuga "hab",hab
per = sizero(trim(variables(3)),"")
'debuga "per",per
pob = sizero(trim(variables(4)),"")
'debuga "pob",pob
tall = sizero(trim(variables(5)),"")
'debuga "tall",tall
ubi = sizero(trim(variables(6)),"")
'debuga "ubi",ubi
SQL = "SELECT video "
SQL = SQL & "FROM LARTICULOS "
SQL = SQL & "WHERE referencia = '"& request.QueryString("fam") & "'"
'response.Write(sql)
set rs_nomf = session("dbtor").execute(SQL)
titol = Titol_llturistics
metatext = Meta_oferta
metatext2 = Meta_oferta2
if err.number<>0 then
response.Redirect("/")
end if
end if
%>
<%=titol%>