<%@ 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: News
<% 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(14)%>

<%=rs(15)%> <% if rs(16)<>"" and rs(16)<> " " and rs(16)<> "0" then %>
link website

<%=rs(16)%>

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


Um mehr über das
Unternehmen und seine Produkte zu erfahren!

KONTAKTIEREN SIE UNS
Klicken Sie bitte hier


TOP
rufen sie uns an RUFEN SIE UNS AN
+39 0445 386100 / +39 0445 386300
schreiben sie uns SCHREIBEN SIE UNS
info@zordan.com