<% ' dichiaro la variabile Conn di connessione Dim Conn ' eseguo la connessione con password Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("areanewsext/dbdata/db_gest.mdb") & ";PWD=sxloptex" %> <% ' dichiaro la variabile che conterr l'oggetto Recordset Dim rs 'creo l'oggetto Recordset Set rs = Server.CreateObject("ADODB.Recordset") if Request.QueryString("id_news") <> "" then where = " WHERE id_news = " & Request.QueryString("id_news") else where = "" end if 'Eseguo la query SQL SELECT rs.Open "SELECT * FROM news" & where, Conn %> <% Do While not rs.EOF %> <%=rs("data") %> - <%=rs("titolo") %>

<%=rs("testo") %>

<% if rs("foto1") <> "" then Response.Write "" Response.Write "

" end if %> <% if rs("foto2") <> "" then Response.Write "Download PDF" Response.Write "

" end if %> <% rs.MoveNext Loop %>
Torna all'elenco NEWS

Industria Carpenteria Metallica S.r.l. | 23877 PADERNO D'ADDA - Lecco - Via delle Brigole, 38
Tel. +39 039 510200 - 039 510204 | Fax +39 039 510216 | E-mail: info@icm-srl.com

CREDITS Gruppo Itierre srl