<% lingua = "it" INT_qry_idoggetto = request.QueryString("id") ckNumeric(INT_qry_idoggetto) set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection_MDB sql_for_file = "SELECT * from _prodotti WHERE id = " & INT_qry_idoggetto Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then idc_selezionata = ObjRs("idc") titolo_selezionato = ObjRs("titolo_" & lingua) idc_selezionata = ObjRs("idc") intro_selezionato = ObjRs("intro_" & lingua) articolo_selezionato = ObjRs("articolo_" & lingua) immagine_selezionata = ObjRs("immagine") allegato_selezionato = ObjRs("allegato") end if ObjRs.close Set ObjRs = nothing sql_for_file = "SELECT * from _categorie_prodotto WHERE id = " & idc_selezionata Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then nome_idc_selezionata = ObjRs("titolo_" & lingua) end if ObjRs.close Set ObjRs = nothing ' per avanti ed indietro costruisco l'array di ID in base all'ordinamento per nome sql_pr = "SELECT * from _prodotti WHERE idc = "&idc_selezionata&" ORDER BY titolo_" & lingua Set ObjRs_pr = Server.CreateObject("ADODB.Recordset") ObjRs_pr.Open sql_pr, adoDataConn, adOpenStatic if not ObjRs_pr.eof then do while not ObjRs_pr.eof ID_list = ID_list & "," & ObjRs_pr("ID") ObjRs_pr.movenext loop end if ObjRs_pr.close Set ObjRs_pr = nothing if ID_list <> "" then ID_list = right(ID_list,len(ID_list)-1) ID_list = split(ID_list,",") end if for i = 0 to ubound(ID_list) if cint(ID_list(i)) = cint(request.QueryString("id")) then 'response.write ID_list(i) if i>0 then previuos_id = ID_list(i-1) else previuos_id = ID_list(ubound(ID_list)) end if 'response.write ID_list(i) if i <%=titolo_selezionato%> | Pomatec a San Leo (Rimini)
<%=nome_idc_selezionata%>
« » <%=titolo_selezionato%>

<%=intro_selezionato%>

<% if immagine_selezionata <> "" then %> <%=titolo_selezionato%> <% end if %> <%=articolo_selezionato%> <% if allegato_selezionato <> "" then %>

formato file pdf Scarica l'allegato <% end if %>

Via Leontina 253/b10 - Zona artigianale Pianacci - 47865 San Leo (RN) - tel.+39 0541/847056 - fax +39 0541/847443 - e-mail: info@pomatec.com