Her er så hele koden, hvor den sætter de nyeste indlæg først, lige som godtnok også sage!
<% response.buffer = true %>
<html>
<head>
<title>Gæstebog</title>
<LINK href="scroll.css" type=text/css rel=stylesheet>
<base target="_self">
<style>
A:link {text-decoration: none; color: #FBF5D1}
A:visited {text-decoration: none; color: #FFFFFF}
A:hover {text-decoration: underline}
</style>
</head>
<body bgcolor="#FFFFFF" background="../gfx/bg.gif">
<h1 align="left"><span style="font-weight: 400">
<font face="Verdana" color="#FBF5D1" size="2"><% if Request.QueryString("mode")="" then %></font><font face="Verdana" size="5" color="#FBF5D1">Gæstebog</font></span></h1>
<div align="center"><center>
<hr align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<p align="left"><a href="tagwall.asp?mode=add">
<font size="2" color="#FBF5D1" face="Verdana">Tilføj
indlæg</font></a><font
size="2" face="Verdana" color="#FBF5D1"><br>
<b>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Tagwall.mdb")
strSQL = "Select * From Tagwall"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<font face=""Arial"" size=""2""><i>Der er ingen der har skrevet i tagwall`en...</i></font>"
else
Do Until rs.EOF%>
<br>
</b>
</font></p>
</td>
</tr>
</table>
</center></div><div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="center" style="border-style: solid; border-width: 1" bordercolor="#FBF5D1">
<p align="left">
<font face="Verdana" size="2" color="#FBF5D1">Den <%=RS("Dato")%>
skrev: <%=RS("forfatter")%><br>
<b><%=RS("tekst")%></a></b></font></td>
</tr>
</table>
</center></div>
<p align="left"><b><font face="Verdana" color="#FBF5D1" size="2"><%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%></font></b></p>
<p align="left"><b><font face="Verdana" color="#FBF5D1" size="2"><% elseif Request.QueryString("mode")="add" then %></font></b></p>
<h1 align="left"><span style="font-weight: 400">
<font face="Verdana" size="5" color="#FBF5D1">Gæstebog</font></span></h1>
<form action="tagwall.asp?mode=save" method="POST">
<div align="center"><center>
<table border="0" cellpadding="2"
cellspacing="0" width="50%" align="left">
<tr>
<td align="right" width="20%">
<p align="left">
<font face="Verdana" size="2" color="#FBF5D1">Navn:</font></td>
<td colspan="2" width="80%">
<p align="left">
<font size="2"
face="Verdana" color="#FBF5D1"><b><input type="text" size="20"
name="Forfatter"></b></font></td>
</tr>
<tr>
<td align="right" valign="top" width="20%">
<p align="left">
<font face="Verdana" size="2" color="#FBF5D1">Tekst:</font></td>
<td valign="top" width="10%">
<p align="left">
<font size="2"
face="Verdana" color="#FBF5D1"><b><textarea name="Tekst" rows="4"
cols="40"></textarea></b></font></td>
<td valign="top" width="90%">
<p align="left"> </td>
</tr>
<tr>
<td align="right" valign="top" width="20%">
<font face="Verdana" color="#FBF5D1"><b><input type="submit"
name="B1" value="Tilføj"></b></font></td>
<td valign="top" width="10%">
</td>
<td valign="top" width="90%"> </td>
</tr>
</table>
</center></div><p align="left"> </p>
</form>
<p align="left"><b><font face="Verdana" color="#FBF5D1" size="2"><% elseif Request.QueryString("mode")="save" then %> <%
response.buffer = true
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Tagwall order by dato desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Forfatter") = Request.form("Forfatter")
rs("Tekst") = Request.form("Tekst")
rs("Dato") = date()
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect "tagwall.asp"
%><%end if%></font></b></p>
</body>
</html>
