<% call stampa_menu("home") set conn = Server.CreateObject("ADODB.Connection") conn.open connection_string set rs = Server.CreateObject("ADODB.Recordset") set rs1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM NEWS WHERE ID = "& Request("id") &" AND PUBBLICATO = TRUE;" rs.open sql, conn, 1 if rs.EOF then rs.close conn.close response.redirect("index.asp") else sql = "SELECT * FROM IMMAGINI WHERE news_id = "& Request("id") &";" rs1.open sql, conn, 1 titolo = rs("titolo") data = formatdatetime(rs("data"),2) testo_esteso = Replace(rs("testo_esteso"),vbCrLf,"
") while not rs1.EOF filename = rs1("filename") & "" HTMLIMG = HTMLIMG & " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "
" &_ " " &_ " " &_ " " &_ " " &_ "
" &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "
 "& filename &"
" &_ "" &_ " " &_ " " &_ " " &_ " " rs1.movenext wend rs1.close rs.close end if %> *** BOLLATE BASEBALL ***
 News
<%=HTMLIMG%>
<% =titolo%>
<% =data%>

<% =testo_esteso%>
 TORNA ALLA HOMEPAGE