<% set RS1 = Server.CreateObject("ADODB.Recordset") RS1.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& Server.mappath("db/webcom.mdb") & ";" if idChi <> 0 then RS1.Source = "SELECT * FROM cittanuova WHERE id = "&idChi else RS1.Source = "SELECT TOP 1 * FROM cittanuova order by ID" end if RS1.CursorType = 0 RS1.CursorLocation = 2 RS1.LockType = 3 RS1.Open if (NOT RS1.EOF) then if db("allegato") <> "" then %>

" target="_blank"><%=db("allegato")%>

<% end if %>

<%=db("titolo")%>

<%if db("foto1") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%> <%if db("foto2") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%> <%if db("foto3") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%>

<% testo = db("testoHTM") if instr(testo,vbCrLf) then testo = replace(testo,vbCrLf,"

") end if testo = "

"&testo&"

" %>

<%=db("sottotitolo")%>

<%=testo%> <%if db("Link") <> "" then%> More info:

" target="blank"><%=db("Link")%> <%end if%> <% end if RS1.Close Set RS1 = Nothing %>