<% id_argomento = request.QueryString("id_argomento") nome_argomento = request.QueryString("nome_argomento") id_categoria = request.QueryString("id_categoria") nome_categoria = request.QueryString("nome_categoria") id_sottocategoria = request.QueryString("id_sottocategoria") nome_sottocategoria = request.QueryString("nome_sottocategoria") id_scheda = request.QueryString("id_scheda") nome_scheda = request.QueryString("nome_scheda") '////////SCRIPT INSERZIONI Set con_ins = Server.CreateObject("ADODB.Connection") con_ins.Open conn_ins '////////SCRIPT DATI Set con = Server.CreateObject("ADODB.Connection") con.Open connStr %> <% ' Connection Object SCHEDA 'Dim con, rs, Limite, rsID, data, x 'Set con = Server.CreateObject("ADODB.Connection") 'con.Open connStr Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select * from 4_scheda_dati WHERE id="&id_scheda, con, 3, 4 parola_chiave = "sito" parola_chiave_1 = rs("parola_chiave") parola_chiave_2 = rs("parola_chiave_2") parola_chiave_3 = rs("parola_chiave_3") if rs("tipologia") = "chiesa" or rs("tipologia") = "parco divertimento" or rs("tipologia") = "parco naturale" or rs("tipologia") = "museo" or rs("tipologia") = "monumento" or rs("tipologia") = "palazzo" or rs("tipologia") = "prodotto tipico" or rs("tipologia") = "itinerario" or rs("tipologia") = "area turistica" then parola_link = rs("area_turistica") else parola_link = rs("titolo") end if ' Connection Object LISTA DATI 'Dim con1, rs1, Limite1, rsID1, data1, x1 'Set con1 = Server.CreateObject("ADODB.Connection") 'con1.Open connStr Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "select * from 3_sottocategorie WHERE id="&id_sottocategoria, con, 3, 4 %> <%=rs1("titolo")%> - Cantiere Nautico Lillia - classe Star Snipe fun dinghy vela regate lago di Como , Cantiere Nautico Lillia, classe Star, Snipe, fun, dinghy 12p, vela, regate, lago di Como">
<% if rs1("foto_2") <> "" then%> <% if Right(rs1("foto_2"),3) = "swf" then%> "> "> " quality=high bgcolor=#FFFFFF WIDTH=750 HEIGHT=250 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"> <%else%> " width="750" height="250" alt="<%=nome_argomento%>"><%end if %><%end if %>
  <% If nome_categoria="Profilo" Then%> <% rs4.Close Set rs4 = Nothing End If %> <% If nome_categoria="Prodotti" Then%> <% rs4.Close Set rs4 = Nothing End If %>


<% if parola_chiave_1 <> "" or parola_chiave_2 <> "" or parola_chiave_3 <> "" then Set rs_ins_2 = Server.CreateObject("ADODB.Recordset") i = 0 myquery = "SELECT * FROM inserzioni WHERE attiva AND posizione=2 AND Parola_chiave='"& parola_chiave &"' " If parola_chiave_1<>"" Then myquery = myquery & " OR attiva AND posizione=2 AND Parola_chiave='"& parola_chiave_1 &"' " End If If parola_chiave_2<>"" Then myquery = myquery & " OR attiva AND posizione=2 AND Parola_chiave='"& parola_chiave_2 &"' " End If If parola_chiave_3<>"" Then myquery = myquery & " OR attiva AND posizione=2 AND Parola_chiave='"& parola_chiave_3 &"' " End If rs_ins_2.Open myquery, con_ins, 1, 3 While Not rs_ins_2.EOF %> <% rs_ins_2.MoveNext Wend rs_ins_2.Close Set rs_ins_2 = Nothing end if %>
<% i = i + 1%> "> <%=rs_ins_2("titolo")%>
<%=rs_ins_2("descrizione")%>
<% if rs_ins_2("FOTO_1") <> "" then%>" width="165" height="90" border="0"><%end if %>


 

<%=nome_argomento%> > <%=nome_categoria%> > <%=nome_sottocategoria%> > <%=nome_scheda%>

cerca nel sito

<%=rs("titolo")%>, <%=rs1("titolo")%>

<% if rs("tipologia") = "gallery" then%> <%end if %> <% if rs("tipologia") = "usato" or rs("tipologia") = "prodotto" or rs("tipologia") = "news" or rs("tipologia") = "link" then%> <%end if %> <% if rs("tipologia") = "tabella" then descrizione = rs("descrizione") descrizione = Replace(descrizione, " ", " ") %> <%end if %>
<% if rs("foto_1") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_1")%>" border="0">
<%=rs("descrizione_1")%> <%end if %> <% if rs("foto_4") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_4")%>" border="0">
<%=rs("descrizione_4")%> <%end if %> <% if rs("foto_7") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_7")%>" border="0">
<%=rs("descrizione_7")%> <%end if %>

< indietro

<% if rs("foto_2") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_2")%>" border="0">
<%=rs("descrizione_2")%> <%end if %> <% if rs("foto_5") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_5")%>" border="0">
<%=rs("descrizione_5")%> <%end if %> <% if rs("foto_8") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_8")%>" border="0">
<%=rs("descrizione_8")%> <%end if %>

<% if rs("foto_3") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_3")%>" border="0">
<%=rs("descrizione_3")%> <%end if %> <% if rs("foto_6") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_6")%>" border="0">
<%=rs("descrizione_6")%> <%end if %> <% if rs("foto_9") <> "" then%>

" target="pic">" width="170" height="125" alt="<%=rs("descrizione_9")%>" border="0">
<%=rs("descrizione_9")%> <%end if %>

<%=rs("descrizione")%>

<% if rs("foto_9") <> "" then%>"> SCARICA PDF <%End If %>

< indietro
<% if rs("foto_1") <> "" then%>

" target="pic"> " width="145" height="107" alt="<%=rs("descrizione_1")%>" border="0">

<%end if %> <% if rs("foto_2") <> "" then%> " target="pic"> " width="145" height="107" alt="<%=rs("descrizione_2")%>" border="0">

<%end if %> <% if rs("foto_3") <> "" then%> " target="pic"> " width="145" height="106" alt="<%=rs("descrizione_3")%>" border="0">

<%end if %> <% if rs("foto_4") <> "" then%> " target="pic"> " width="145" height="107" alt="<%=rs("descrizione_4")%>" border="0">

<%end if %> <% if rs("foto_5") <> "" then%> " target="pic"> " width="145" height="107" alt="<%=rs("descrizione_5")%>" border="0">

<%end if %> <% if rs("foto_6") <> "" then%> " target="pic"> " width="145" height="107" alt="<%=rs("descrizione_6")%>" border="0">

<%end if %> <% if rs("foto_7") <> "" then%> " target="pic"> " width="145" height="106" alt="<%=rs("descrizione_7")%>" border="0">

<%end if %> <% if rs("foto_8") <> "" then%> " target="pic"> " width="145" height="106" alt="<%=rs("descrizione_8")%>" border="0">

<%end if %>

<%=descrizione%>

<% if rs("foto_9") <> "" then%>"> SCARICA PDF <%End If %>

< indietro
News:

<% if parola_chiave <> "" or parola_chiave_2 <> "" or parola_chiave_3 <> "" then Set rs_ins_3 = Server.CreateObject("ADODB.Recordset") myquery = "SELECT * FROM inserzioni WHERE attiva AND posizione=3 AND Parola_chiave='"& parola_chiave &"' " If parola_chiave_1<>"" Then myquery = myquery & " OR attiva AND posizione=3 AND Parola_chiave='"& parola_chiave_1 &"' " End If If parola_chiave_2<>"" Then myquery = myquery & " OR attiva AND posizione=3 AND Parola_chiave='"& parola_chiave_2 &"' " End If If parola_chiave_3<>"" Then myquery = myquery & " OR attiva AND posizione=3 AND Parola_chiave='"& parola_chiave_3 &"' " End If rs_ins_3.Open myquery, con_ins, 1, 3 While Not rs_ins_3.EOF %> "><%=rs_ins_3("titolo")%>
<%=rs_ins_3("descrizione")%>

<% rs_ins_3.MoveNext Wend rs_ins_3.Close Set rs_ins_3 = Nothing end if %>

© Cantiere Lillia - Musso (CO) - Italy

powered by tommstudio - computer service

<% rs.Close Set rs = Nothing rs1.Close Set rs1 = Nothing con.Close Set con = Nothing con_ins.Close Set con_ins = Nothing %>