<%@ LCID = 1040 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" Session.CodePage=65001 Response.Charset="UTF-8" %> ZORDAN: Noticias
<% contatore_articoli=0 %> <% do while not(rs.eof) contatore_articoli=contatore_articoli+1 if contatore_articoli>(pag*tot_articoli_pag)-tot_articoli_pag and contatore_articoli<=(pag)*tot_articoli_pag then %>

<%=rs(20)%>

<%=rs(21)%> <% if rs(22)<>"" and rs(22)<> " " and rs(22)<> "0" then %>
link website

<%=rs(22)%>

<% end if %>
<% Set Conn2=Server.CreateObject("ADODB.Connection") strConn2="driver={Microsoft Access Driver (*.mdb)}; " strConn2=strConn2 & " DBQ=" & Server.MapPath("../db/db.mdb") strConn2=strConn2 & ";pwd=" & strCode Conn2.Open strConn2 sql2 = "SELECT * FROM contenuti WHERE categorie ='" & rs(0) & "' ORDER BY ordinamento ASC" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn2 ,3,3 tot2 = rs2.recordcount if tot2 > 0 then %>
<% do while not(rs2.eof) %> <% rs2.movenext loop %>
<% end if rs2.Close set rs2 = Nothing conn2.Close set conn2 = Nothing %>

<% end if rs.movenext loop %>
<% rs.Close set rs = Nothing conn.Close set conn = Nothing %>


Para saber más de
nuestra compañía y de nuestros productos

¡Contáctenos!
Haga clic aquí


TOP
chiama zordan LLÁMENOS
+39 0445 386100 / +39 0445 386300
invia una mail a zordan ESCRÍBANOS
info@zordan.com