<%@ 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 and fairs
<% 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(11)%>

<%=rs(12)%> <% if rs(13)<>"" and rs(13)<> " " and rs(13)<> "0" then %>
link website

<%=rs(13)%>

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


To know more about
the company and its products,

CONTACT US
Click here


TOP
call us CALL US
+39 0445 386100 / +39 0445 386300
send mail WRITE TO US
info@zordan.com