<% 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("nome")%>


<%=foto%>

  <%=o("descrizione")%>

<% if trim(o("foto2"))&""="" then %>   <% else %> Informazioni sul prodotto: " target="_blank" class="inc_menuCAT">Scarica PDF <% end if %>
<% 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="
" 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 & "" next listapag=listapag&testo_end&"
"&numElm&" "&nomeElem&"    /    "&num_pag&" pag.Pagine: <<< "&s&i&"
" 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 %> Informazioni sul prodotto: " 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 %>




IN PARTNERSHIP CON
























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