<% dim chiave_dev, chiave_prod 'motoclub chiave = "AIzaSyBbLzpUw3uxzGhE7s2lAwm3i_dNgLTK8ys" %> <% code = replace(request.querystring("id"),"'","''") Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open conn_dicono Dim rs Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT dicono.*, localita.*, tipologia.*, zona.*, regime.*, range.* " & _ "FROM ((((dicono " & _ "LEFT JOIN localita ON dicono.id_localita = localita.id_localita) " & _ "LEFT JOIN range ON dicono.id_range = range.id_range) " & _ "LEFT JOIN regime ON dicono.id_regime = regime.id_regime) " & _ "LEFT JOIN tipologia ON dicono.id_tipologia = tipologia.id_tipologia) " & _ "LEFT JOIN zona ON dicono.id_zona = zona.id_zona " & _ "WHERE (((dicono.id) Like " & code & "))" 'response.write sql 'response.end rs.Open sql, conn %> <% if rs("lat")<>"" and rs("lon")<>"" and rs("alt")<>"" then %>

<% else %> <% end if %>

     
 
<% end if %>

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

<% messaggio = rs("descrizione") 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, "
") response.write messaggio %>

<% 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 >"%>


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