Dette er bare en include-fil, så den mangler head,body og alt det der:
<table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" >
<tr VALIGN=TOP>
<td VALIGN=TOP WIDTH="100%" HEIGHT="37" BACKGROUND="IMAGES/right_top.gif" NOSAVE>
<p align="center"><font face="Arial,Helvetica"> <br>
<img border="0" src="IMAGES/gigs.gif" width="147" height="40"><br>
</font></td>
</tr>
<tr>
<td WIDTH="100%" BACKGROUND="IMAGES/right_middle.gif" align="center" height="311" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="19%"><font size="2" face="Verdana"> </font><b>
<font face="Verdana" size="2">Dato:</font></b></td>
<td width="81%"><b><font size="2" face="Verdana">Spillested:</font></b></td>
</tr>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
strSQL = "Select * From kalender where check > now"
Set rs = Conn.Execute(strSQL)
if RS.EOF then ' Ikke nogen for tiden
Response.Write("</td></tr></table><table border='0' cellpadding='0' cellspacing='0' width='100%'><TR>")
Response.Write("<TD width='100%'><font size='2' face='Verdana'> <i>Ikke noget fortiden...</i></td></tr></table")
else
DO WHILE NOT rs.EOF
check = rs("check")
sted = rs("sted")
dato = rs("dato")
Response.Write("<TR><TD width='19%'><font size='2' face='Verdana'> " & dato & "</td>")
Response.Write("<TD width='81%'><font size='2' face='Verdana'>" & sted & "</td></tr>")
rs.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
%>
</table>
</td>
</tr>
<tr>
<td WIDTH="100%" HEIGHT="40" BACKGROUND="IMAGES/right_bottom1.gif" NOSAVE><font face="Arial,Helvetica"> </font></td>
</tr>
</table>
