<%@ 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" %> 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 do while not(rs.eof)%>

<%=rs(11)%>



Read more...

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