<% tipologia = "gallery" numero = 1 '////////SCRIPT DATI ' Connection Object Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open connStr Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select * from 4_scheda_dati WHERE id_argomento="&numero&" AND tipologia='"&tipologia&"'", con, 1, 3 '////////SCRIPT INSERZIONI Set con_ins = Server.CreateObject("ADODB.Connection") con_ins.Open conn_ins parola_chiave = "sito" parola_chiave_1 = "tutte" parola_chiave_2 = "gallery" parola_chiave_3 = "" %> 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

<% id_argomento = numero If Not rs.EOF Then While Not rs.EOF id_categoria = rs("id_categoria") id_sottocategoria = rs("id_sottocategoria") Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "select * from 1_argomenti WHERE id="&id_argomento&"", con, 1, 3 nome_argomento = rs1("titolo") rs1.Close Set rs1 = Nothing 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 %> <% rs.MoveNext Wend Else Response.Write "Non sono presenti dati nel DATABASE" End If rs.Close Set rs = Nothing con.Close Set con = Nothing %>
&numero=<%=numero%>">

<%=nome_sottocategoria%> - <%=rs("titolo")%>


<%If isnull(rs("foto_1")) Then%>

  <%else%> " width="75" height="60"><%end if%>

 

 

 

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