<% id_argomento = 1 nome_argomento = "italiano" '////////SCRIPT INSERZIONI 'parola_chiave = Trim(request.QueryString("parola_chiave")) Set con_ins = Server.CreateObject("ADODB.Connection") con_ins.Open conn_ins parola_chiave = "sito" parola_chiave_1 = "tutte" parola_chiave_2 = "ospitalita" parola_chiave_3 = "index" %> <% ' 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 1_argomenti WHERE id="&id_argomento, con1, 3, 4 ttitolo = rs1("titolo") ddesc = rs1("descrizione") ffoto = rs1("foto_1") %> 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">
<% rs1.Close Set rs1 = Nothing con1.Close Set con1 = Nothing %>
<% if rs1("foto_1") <> "" then%> <% if Right(rs1("foto_1"),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 %>


 

 

cerca nel sito

  <% id_argomento = 1 nome_argomento = "italiano" ' 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 home ORDER BY data DESC", con, 3, 4 id_categoria = rs("id_categoria") id_sottocategoria = rs("id_sottocategoria") If Not rs.EOF Then While Not rs.EOF Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open "select * from 2_categorie WHERE id="&id_categoria&"", con, 1, 3 nome_categoria = rs2("titolo") rs2.Close Set rs2 = Nothing Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open "select * from 3_sottocategorie WHERE id="&id_sottocategoria&"", con, 1, 3 nome_sottocategoria = rs3("titolo") rs3.Close Set rs3 = Nothing %> <% If Len(rs("descrizione")) > 300 Then descrizione = Trim(Left(rs("descrizione"), 300)) & " ..continua.." Else descrizione = Trim(rs("descrizione")) End If %> <% rs.MoveNext Wend Else Response.Write "" End If rs.Close Set rs = Nothing con.Close Set con = Nothing %>
<%=ddesc%>
&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")%>

<%=descrizione%>
" width="155" height="116" border="0">
.
<% if parola_chiave <> "" or parola_chiave_2 <> "" or parola_chiave_3 <> "" then Set rs_ins_1 = 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=1 AND Parola_chiave='"& parola_chiave_1 &"' " End If If parola_chiave_2<>"" Then myquery = myquery & " OR attiva AND posizione=1 AND Parola_chiave='"& parola_chiave_2 &"' " End If If parola_chiave_3<>"" Then myquery = myquery & " OR attiva AND posizione=1 AND Parola_chiave='"& parola_chiave_3 &"' " End If rs_ins_1.Open myquery, con_ins, 1, 3 While Not rs_ins_1.EOF %> <% rs_ins_1.MoveNext Wend rs_ins_1.Close Set rs_ins_1 = Nothing end if %>
"> <%=rs_ins_1("titolo")%>

<%=rs_ins_1("descrizione")%>


"> " width="155" height="116" border="0">
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

<% con_ins.Close Set con_ins = Nothing %>