<%
if id_prod<>"" then
sql="SELECT * FROM prodotti LEFT JOIN subcat ON subcat.id_subcat=prodotti.id_subcat WHERE id_prodotto="&cstr(id_prod)&""
set o = Server.CreateObject("ADODB.Recordset")
o.Open sql, cn, 1, 3
foto=""
if trim(o("foto"))&""="" then foto="no foto"
%>
<%
o.close()
else 'if id_prod<>"" then
if id_subcat<>"" then
%>
<%
sql="SELECT * FROM prodotti LEFT JOIN subcat ON subcat.id_subcat=prodotti.id_subcat WHERE prodotti.id_subcat="&cstr(id_subcat)&""
'-------------PAGINAZ COMPLETA --------------------
sql=sql
order="nome ASC, id_prodotto ASC"
nomeElem="prodotti"
perpag=30
num_max_pag=4 ' numero di pagine massimo da visualizz nll'elenco pag
pag_destinaz="prodotti.asp" ' immettere solo la pagina .asp senza querystring
foglioStileTab="style29"
foglioStileLinks="style35c"
set o = Server.CreateObject("ADODB.Recordset")
o.Open sql, cn, 1, 3
numElm=o.recordcount
o.close()
'----PAGINAZIONE------
function invertiOrder(txt) ' es. campo1 ASC, campo2 DESC --> campo1 DESC, campo2 ASC
dim p
p=replace(txt,"ASC","[-ASC-]")
p=replace(p,"DESC","ASC")
p=replace(p,"[-ASC-]","DESC")
invertiOrder=p
end function
numElm=numElm
pag=request.QueryString("pag")
if not isnumeric(pag&"") then pag="1"
pag=cint(pag)
if numElm=0 then
listapag=""
else
'calcola il num pagine e crea la lista di link della paginazione
num_pag=fix(numElm/perpag)
if numElm/perpag>num_pag then num_pag=num_pag+1
listapag=""&numElm&" "&nomeElem&" / "&num_pag&" pag. | Pagine: | "
start_num_pag=pag-num_max_pag
dffsnp=0
if start_num_pag<=0 then
dffsnp=abs(start_num_pag)
start_num_pag=1
end if
testo_start=""
'if start_num_pag>1 then
if pag>1 then
testo_start=" " & " <<< | "
end if
end_num_pag=pag+num_max_pag+dffsnp
if end_num_pag>num_pag then
dffsnp=abs(end_num_pag-num_pag)
end_num_pag=num_pag
end if
testo_end=""
'if end_num_pag >>> "
end if
listapag=listapag&testo_start
for i=start_num_pag to end_num_pag
s=""
if pag=i then s=""
listapag=listapag & " "&s&i&" | "
next
listapag=listapag&testo_end&" "
end if
'------FINE PAGINAZIONE------
n=perPag*pag
if pag=num_pag then
pgesatt=numElm-(perPag*(pag-1))
else
pgesatt=perpag
end if
sql_1="SELECT TOP "&n&" * FROM ("&sql&") as tab ORDER BY "&order
sql_2="SELECT TOP "&pgesatt&" * FROM ("&sql_1&") as tmp1 ORDER BY "&invertiOrder(order)
sql="SELECT * FROM ("&sql_2&") as tmp2 ORDER BY "&order
'response.write(sql&" ")
'response.End()
o.Open sql, cn, 1, 3
'----------------FINE PAGINA COMPLETA---------------------------
if o.recordcount=0 then
%>
Nessun Prodotto
|
<%
end if
while not o.eof
foto=""
if trim(o("foto"))&""="" then foto="no foto"
'prezzo="***"
'if loggedPublic then prezzo="€ "&fn(o("prezzo"),2,true)
prezzo="€ "&fn(o("prezzo"),2,true)
%>
<%=o("nome")%>
|
<%=foto%>
|
<%=o("descrizione")%>
<% if trim(o("foto2"))&""="" then %>
<% else %>
" target="_blank" class="inc_menuCAT">Scarica PDF
<% end if %> |
|
<%
o.movenext
wend
o.close
set o=nothing
%>
<%
end if
end if 'if id_prod<>"" then
%>
DIMAR ELECTRONICS srl
VIA NAZIONALE DEI GIOVI,13 20030 BOVISIO MASCIAGO -MI- TEL.: +39-(0)-362 - 598268 - FAX: +39-(0)-362- 1441858 E-MAIL: info@dimar-srl.com | fabrizia@dimar-srl.com
www.dimarelectronic.eu |
E-mail: info@dimar-srl.com
|