News

<%
Dim strNewsConn
Dim strNewsRs
Dim strNewsSql
Dim strAction
strAction=Request.QueryString("act")
Set strNewsConn = Server.CreateObject ("ADODB.Connection")
	strNewsConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/news.mdb")
Set strNewsRs = Server.CreateObject("ADODB.Recordset")
	If (strAction<>"ShowNews") Then
		strNewsSql = "SELECT Top 5 news.messaggio, news.data FROM news ORDER BY id DESC"
	Else
		strNewsSql = "SELECT * FROM news ORDER BY id DESC"
	End If
	strNewsRs.Open strNewsSql, strNewsConn, 3, 3

Response.Write vbCrLf & "<table align=""center"" width=""417"" cellpadding=""0"" cellspacing=""0"" height=""19"">"
Do While NOT strNewsRs.EOF
	Response.Write vbCrLf & " <tr>"
	Response.Write vbCrLf & "  <td width=""10"" valign=""top""><li></td>"
	Response.Write vbCrLf & "  <td width=""398""><font face=""Verdana"" size=""1"" color=""#000099""><b>"&strNewsRs("data")&"</b></font>"
	Response.Write vbCrLf & "  <font face=""Verdana"" size=""1""> - "&strNewsRs("messaggio")&"</font></td>"
	Response.Write vbCrLf & " </tr>"
	strNewsRs.MoveNext
Loop
If (strAction<>"ShowNews") Then
	Response.Write vbCrLf & " <tr>"
	Response.Write vbCrLf & "  <td colspan=""2"" align=""center"">"
	Response.Write vbCrLf & " <a href=""?act=ShowNews""><font face=""Verdana"" size=""1""><br>Visualizza tutte le news »</font></a></td>"
	Response.Write vbCrLf & " </tr>"
End If
Response.Write vbCrLf & "</table>"
%>