<% 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") '////////SCRIPT INSERZIONI 'parola_chiave = Trim(request.QueryString("parola_chiave")) 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 ''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 parola_chiave = "sito" parola_chiave_1 = rs1("parola_chiave") parola_chiave_2 = rs1("parola_chiave_2") parola_chiave_3 = rs1("parola_chiave_3") ttitolo = rs1("titolo") ddesc = rs1("descrizione") ffoto = rs1("foto_3") %> <%=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%>

cerca nel sito

" End If rs.Close Set rs = Nothing %>

<%=ttitolo%>

<% if ffoto <> "" then%><%end if %><%=ddesc%>
<% ' Connection Object '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 attivo and id_sottocategoria="&id_sottocategoria&" ORDER BY data DESC", con, 3, 4 If Not rs.EOF Then While Not rs.EOF %> &id_argomento=<%=id_argomento%>&nome_argomento=<%=nome_argomento%>&id_categoria=<%=id_categoria%>&nome_categoria=<%=nome_categoria%>&id_sottocategoria=<%=id_sottocategoria%>&nome_sottocategoria=<%=nome_sottocategoria%>&id_scheda=<%=rs("id")%>" >

<%=rs("titolo")%>

<% rs.MoveNext Wend Else Response.Write "
.
< 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

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