Descargas

<% 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 categorie WHERE categoria_prodotti='" & sezione & "' ORDER BY ordinamento ASC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 totcat = rs.recordcount contacat = 0 do while not(rs.eof) %> <% Set Conn2=Server.CreateObject("ADODB.Connection") strConn2="driver={Microsoft Access Driver (*.mdb)}; " strConn2=strConn & " DBQ=" & Server.MapPath("../db/db.mdb") strConn2=strConn & ";pwd=" & strCode Conn2.Open strConn2 if sezione <> 2 then 'PER LE SEZIONI NORMALI APRO COME AL SOLITO' sql2 = "SELECT * FROM prodotti WHERE categorie='" & rs(0) & "' ORDER BY ordinamento ASC" else 'PER LA SEZIONE CON RICERCA' if categoria = "" then sql2 = "SELECT * FROM prodotti WHERE categorie='" & rs(0) & "' ORDER BY ordinamento ASC" else sql2 = "SELECT * FROM prodotti WHERE categorie='" & rs(0) & "' AND lingua5_titolo LIKE '" & categoria & "%' ORDER BY ordinamento ASC" 'SE È STATO USATO IL SELECT USO IL LIKE CON % PER TROVARE NOME CHE INIZIA CON' end if end if Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn2 ,3,3 totprod = rs2.recordcount contaprod = 0 %> <% 'response.write("totcat " & totcat & " - contacat " & contacat & " - totprod " & totprod & " - cartella " & cartella & "
")' %> <% 'SE SONO NELLE SEZIONI NORMALI E NON HO NESSUN DOCUMENTO DISPONIBILE LO SCRIVO' if totprod = 0 and totcat > 0 and contacat < 1 then response.write("

Lo sentimos. No hay documentos para la selección.

") 'SE SONO NELLA SEZIONE CON LA RICERCA E NON HO SELEZIONATO NESSUNA CATEGORIA CHIEDO DI USARE IL SELECT' if sezione = 2 and categoria = "" and contacat < 1 then response.write("

Elegir una categoría de productos en el menú desplegable

") 'SE HO ALMENO UN PRODOTTO STAMPO IL NOME DELLA CATEGORIA' if totprod > 0 then response.write("

" & rs(7) & "

") %> <% if totprod > 0 then ' SE È PRESENTE ALMENO UN PRODOTTO APRO LA INTESTAZIONE TABELLA' %> <% end if %> <% do while not(rs2.eof) %> <% if rs2(6) <> "" then %> <% end if %> <% contaprod = contaprod + 1 rs2.movenext loop %> <% if totprod > 0 then ' SE È PRESENTE ALMENO UN PRODOTTO CHIUDO LA TABELLA' %>

Nombre documento	Descargar
<%=rs2(20)%>

<% end if %> <% rs2.Close set rs2 = Nothing conn2.Close set conn2 = Nothing %> <% contacat = contacat + 1 rs.movenext loop rs.Close set rs = Nothing conn.Close set conn = Nothing %>