<% lingua = "it" nomecategoria_titolo = "" set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection_MDB sql_for_file = "SELECT * from _categorie_prodotto" Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then do while not ObjRs.eof nomecategoria_titolo = nomecategoria_titolo & ObjRs("titolo_it") & ", " ObjRs.MoveNext loop end if ObjRs.close Set ObjRs = nothing adoDataConn.close Set adoDataConn = nothing nomecategoria_titolo = left(nomecategoria_titolo, len(nomecategoria_titolo)-2) %> Prodotti Pomatec: <%=nomecategoria_titolo%>
    Prodotti
    per categoria

    <% set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection_MDB sql_for_file = "SELECT * from _categorie_prodotto ORDER BY ordine DESC" Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then INTbgchanger = 1 do while not ObjRs.eof nomecategoria = ObjRs("titolo_it") idcategoria = ObjRs("ID") if (request.QueryString("idc") = "") OR (not isnumeric(request.QueryString("idc"))) then if cint(INTbgchanger) = 1 then add_class = "class='scelto'" else add_class = "" end if else if clng(request.QueryString("idc")) = clng(idcategoria) then add_class = "class='scelto'" else add_class = "" end if end if %>
  • id="servizio_<%=INTbgchanger%>"><%=nomecategoria%>
  • <% INTbgchanger = INTbgchanger + 1 ObjRs.MoveNext loop end if ObjRs.close Set ObjRs = nothing adoDataConn.close Set adoDataConn = nothing %>
<% set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection_MDB sql_for_file = "SELECT * from _categorie_prodotto ORDER BY ordine DESC" Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then INTbgchanger = 1 do while not ObjRs.eof nomecategoria = ObjRs("titolo_"&lingua) idcategoria = ObjRs("ID") %> <% INTbgchanger = INTbgchanger + 1 ObjRs.movenext loop end if ObjRs.close Set ObjRs = nothing adoDataConn.close Set adoDataConn = nothing %>
Via Leontina 253/b10 - Zona artigianale Pianacci - 47865 San Leo (RN) - tel.+39 0541/847056 - fax +39 0541/847443 - e-mail: info@pomatec.com
ID-lab: creazione siti internet