<% 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 = "cerca" %> Cantiere Nautico Lillia - classe Star Snipe fun dinghy vela regate lago di Como
  <% 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

 

Cerca nel sito

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