<%@ 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
telefon +39 0445 386100 / +39 0445 386300
mail info@zordan.com

NEWS

<% Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("../db/db.mdb") strConn=strConn & ";pwd=" & strCode Conn.Open strConn sql = "SELECT * FROM prodotti WHERE categorie='1' ORDER BY ordinamento ASC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 tot=rs.recordcount dim tot_pagine, tot_articoli_pag, pag, contatore_articoli ' CALCOLO E NUMERAZIONE DELLE PAGINE' if request("pag")="" then pag=1 if request("pag")<>"" then pag=request("pag") tot_articoli_pag = 5 if (rs.recordcount mod tot_articoli_pag)=0 then tot_pagine=int(rs.recordcount/tot_articoli_pag) if (rs.recordcount mod tot_articoli_pag)>0 then tot_pagine=int(rs.recordcount/tot_articoli_pag)+1 pag=int(pag) %>
<% 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(8)%>

<%=rs(14)%>

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

<%=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 %>
TOP
rufen sie uns an RUFEN SIE UNS AN
+39 0445 386100 / +39 0445 386300
schreiben sie uns SCHREIBEN SIE UNS
info@zordan.com