<% code = replace(request.querystring("id"),"'","''") Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open conn_concorsi Dim rs Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT concorsi.*, localita.*, tipologia.*, zona.*, regime.*, range.* " & _ "FROM ((((concorsi " & _ "LEFT JOIN localita ON concorsi.id_localita = localita.id_localita) " & _ "LEFT JOIN range ON concorsi.id_range = range.id_range) " & _ "LEFT JOIN regime ON concorsi.id_regime = regime.id_regime) " & _ "LEFT JOIN tipologia ON concorsi.id_tipologia = tipologia.id_tipologia) " & _ "LEFT JOIN zona ON concorsi.id_zona = zona.id_zona " & _ "WHERE (((concorsi.id) Like " & code & "))" 'response.write sql 'response.end rs.Open sql, conn %>
 

<% response.write rs("titolo")%> - <% response.write rs("data")%>

<% if rs("imm_01") <> "-" then response.write "" %>


<% Dim messaggio messaggio = rs("testo") messaggio = SPLIT(messaggio,VbCrLf) FOR m=0 TO ubound(messaggio) parola = SPLIT(messaggio(m)," ") FOR i=0 TO ubound(parola) IF Mid (parola(i),1,7) = "http://" THEN parola(i)=""&parola(i)&"" END IF IF Mid (parola(i),1,4) = "www." THEN parola(i)=""&parola(i)&"" END IF IF Mid (parola(i),1,4) = "BR" THEN parola(i)="
" END IF IF Mid (parola(i),1,4) = "Bold" THEN parola(i)="" END IF IF Mid (parola(i),1,5) = "-Bold" THEN parola(i)="" END IF IF Mid (parola(i),1,6) = "Italic" THEN parola(i)="" END IF IF Mid (parola(i),1,7) = "-Italic" THEN parola(i)="" END IF NEXT messaggio(m)=JOIN(parola," ") NEXT messaggio = JOIN(messaggio,VbCrLf) messaggio = Replace (messaggio, VbCrLf, "
") if rs("imm_02") <> "-" then imm_02 = "



" messaggio = Replace (messaggio, "XXX", imm_02) messaggio = Replace (messaggio, "xxx", imm_02) end if if rs("imm_03") <> "-" then imm_03 = "" messaggio = Replace (messaggio, "YYY", imm_03) messaggio = Replace (messaggio, "yyy", imm_03) end if response.write(messaggio) %>


<% if rs("pdf") <> "-" then response.write "Scarica approfondimento in formato PDF >"%>

Richiedi maggiori informazioni riguardanti <% response.write rs("titolo")%> >

 

 

 

   

 

 

 

 

<% if rs("lat")<>"" and rs("lon")<>"" and rs("alt")<>"" then %> <% end if rs.close set rs=nothing conn.close set conn=nothing %>