<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<h5>NeWS SuL SiTo</h5>
<%
Dim ConnessioneDB, rNews, strConn
Set ConnessioneDB = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database2.mdb")&";Persist Security Info=False"
ConnessioneDB.Open strConn
Set rNews = ConnessioneDB.Execute("SELECT * FROM News;") %>
<% If rNews.BOF=True And rNews.EOF=True Then %>
<h5>NoN Ci SoNo NeWs SuL SiTo</h5>
<% Else %>
<% Do Until rNews.EOF=True %>
<%
Response.Write "News Inserita Da " & rNews.Fields("NickName") & "<br>"
Response.Write "Con Email " & rNews.Fields("Email") & "<br>"
Response.Write "IL Titolo è " & rNews.Fields("Titolo") & "<br>"
Response.Write "IL Testo è il Seguente " & rNews.Fields("Testo") & "<br>"
Response.Write "--------------------------------------------------" & "<br>"
%>
<% rNews.MoveNext %>
<% Loop %>
<%End IF%>
<% rNews.Close : Set rNews = Nothing
ConnessioneDB.Close : Set ConnessioneDB = Nothing %>
</body>
</html>
