|
<% response.write (responsecart) '-------------------- 'VISUALIZZA PRODOTTI '-------------------- categoria=request.QueryString("c") if categoria = "" then SQL = "SELECT * FROM eprodotti order by nome" else SQL = "SELECT * FROM eprodotti where categoria="&categoria&" order by nome" end if pagina = Request.QueryString("p") If pagina = "" then pagina = 1 End if 'MI CONNETTO Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsn Set rs = Server.CreateObject("ADODB.Recordset") Rs.Open sql, Conn, 1, 3 if NOT rs.eof then 'imposto la dimensione della pagina rs.PageSize = 13 ' mi sposto all'ultima pagina Rs.AbsolutePage = pagina response.Write("PAGINE:") For pag=1 to rs.PageCount 'scrivo i numeri delle pagine if int(pagina) = int(pag) then Response.Write(""&pag&" |") else 'hpagina = replace(request.ServerVariables("PATH_INFO"),"/","") query = replace(request.ServerVariables("QUERY_STRING"),"&p="&pagina,"") query = replace(request.ServerVariables("QUERY_STRING"),"p="&pagina,"") query = " "&pag&" | " query = replace(query, "?&", "?") Response.Write(query) end if Next response.Write("
" & vbnewline)
response.Write("PAGINE:")
For pag=1 to rs.PageCount
'scrivo i numeri delle pagine
if int(pagina) = int(pag) then
Response.Write(""&pag&" |")
else
'hpagina = replace(request.ServerVariables("PATH_INFO"),"/","")
query = replace(request.ServerVariables("QUERY_STRING"),"&p="&pagina,"")
Response.Write(" "&pag&" | ")
end if
Next
Rs.Close
Set Rs = Nothing
Conn.close
set Conn = Nothing
'end if
' end if commentato per visualizzare sempre il catalogo
%>
|




