Og her er scriptet til at vise de nyheder der er i databasen:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
command = visalle
IF command = "visalle" THEN
SQLSentence = "SELECT * FROM news ORDER BY id DESC;"
ELSE
SQLSentence = "SELECT TOP 10 * FROM news ORDER BY id DESC;"
END IF
Set newsliste = conn.Execute( SQLSentence )
IF NOT command="visalle" THEN
SQLSentence = "SELECT COUNT ( ID ) AS antal FROM news;"
TagCount = conn.Execute( SQLSentence )
IF TagCount("antal") > 10 THEN
Response.Write "<table align='center' cellspacing='0' cellpadding='0' border='0' width='300' height=30>"
Response.Write "<tr>"
Response.Write "<td class='heading' align='right'><A href='rsidstenyt.asp?command=visalle'>Vis Alle (" & TagCount("antal") & ")</A></td>"
Response.Write "</tr>"
Response.Write "</table>"
END IF
END IF
DO UNTIL newsliste.EOF
ID = newsListe("id")
Bruger = newsListe("user")
Overskrift = newsliste("head")
Tekst = newsListe("text")
Dato = newsListe("date")
Tid = newsListe("time")
Nytekst = left(Tekst, 250)
Response.Write "<table align='center' cellspacing='0' cellpadding='0' border='1' width='300' height=150>"
Response.Write "<tr>"
Response.Write "<td height=25>"
Response.Write "<table align='center' cellspacing='0' cellpadding='0' border='0' width='300' height='100%' bgcolor='#215494'>"
Response.Write "<tr>"
Response.Write "<td align='left' height=25 width='50%' class='heading'>" & Overskrift
Response.Write "</td>"
Response.Write "<td align='right' height=25 width='50%' class='heading'>" & Dato & " - " & Tid
Response.Write "</td></tr></table></td></tr><tr>"
Response.Write "<td valign='top' bgcolor='#62819e' class='bodytxt'>" & Nytekst
if len(tekst) > 250 then
response.write "..."
end if
response.write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=25>"
Response.Write "<table align='center' cellspacing='0' cellpadding='0' border='0' width='300' height='25' bgcolor='#215494'>"
Response.Write "<tr>"
Response.Write "<td align='left' height=25 width='50%' class='heading'>Af: " & Bruger & "</td>"
Response.Write "<td align='right' height=25 width='50%' class='heading'>"
if len(tekst) > 250 then
response.write "<a href='news.asp?id=" & id & "'>Læs Mere"
end if
Response.Write "</a></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<br><br><br>"
newsliste.MoveNext
LOOP
Set NewsListe = nothing
%>
