Hjælp til Gæstebog
Hej jeg har en gæstebog i asp som jeg er godt tilfreds med men synes det kunne være rar at få lavet en "næste" knap nederst eller øverst så man kun behøver at se 10 indlæg af gangen frem for en lang smøre nedad!Hvordan gør jeg det ?
Her er koden jeg bruger:
<%
'--------------------------------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("DataBase.mdb")
Conn.Open DSN
'--------------------------------------------------------------------------------
%>
<html>
<head>
<title>Gæstebog</title>
<link rel="stylesheet" type="text/css" href="Style.css">
</head>
<body>
<p align="center"> <font size="2"><b>b></font></p>
<table id="ReadTable" align="center">
<form action="Tak.asp" method="post">
<tr><td colspan="2" id="SpaceCell"><img src="Streg.jpg" height="20" width="400"></td></tr>
<tr><td id="NameCell">Navn:</td><td id="AnswerCell"><input type="text" name="Navn" maxlength="20" size="44" value=""></td></tr>
<tr><td id="NameCell">E-mail:</td><td id="AnswerCell"><input type="text" name="Mail" maxlength="30" size="44" value=""></td></tr>
<tr><td id="NameCell">HomePage:</td><td id="AnswerCell">
<input type="text" name="HP" maxlength="600" size="44" value="http://">
</td></tr>
<tr><td id="NameCell">Hjemby:</td><td id="AnswerCell"><input type="text" name="By" maxlength="20" size="44" value=""></td></tr>
<tr><td id="NameCell" valign="top">Besked:</td><td id="AnswerCell"><textarea rows="6" cols="43" name="Tekst"></textarea></td></tr>
<tr><td id="AnswerCell" colspan="2" align="right"><input type="submit" name="submit" value=" Send "></td></tr>
</form>
</table>
<table id="ReadTable" cellpadding="0" cellspacing="0" align="center">
<tr><td colspan="2" id="SpaceCell"><img src="Streg.jpg" height="20" width="400"></td></tr>
<%
'--------------------------------------------------------------------------------
Hentning = "Select * From Tags Order By Id Desc"
Set Hent = Conn.Execute(Hentning)
'--------------------------------------------------------------------------------
Do
Navn = Hent ("Navn")
Epost = "<a href='mailto:" & Hent ("Mail") & "'>" & Hent ("Mail") & "</a>"
HomePage = "<a href='" & Hent ("Hjemmeside") & "' target='_blank'>" & Hent ("Hjemmeside") & "</a>"
Hjemby = Hent ("Hjemby")
Skrevet = Hent ("UgeDag") & " d. " & Hent ("Dato") & ". " & Hent ("Maaned") & " " & Hent ("Aar") & " kl. " & Hent ("Timen") & ":" & Hent("Minuttet")
Besked = Hent ("Tekst")
%>
<tr><td id="NameCell">Navn:</td><td id="AnswerCell"><% Response.Write Navn %></td></tr>
<tr><td id="NameCell">E-mail:</td><td id="AnswerCell"><% Response.Write Epost %></td></tr>
<tr><td id="NameCell">HomePage:</td><td id="AnswerCell"><% Response.Write HomePage %></td></tr>
<tr><td id="NameCell">Hjemby:</td><td id="AnswerCell"><% Response.Write Hjemby %></td></tr>
<tr><td id="NameCell">Skrevet:</td><td id="AnswerCell"><% Response.Write Skrevet %></td></tr>
<tr>
</tr>
<tr>
<td id="AnswerCell2" colspan="2" height="2">
<% Response.Write Besked %>
</td>
</tr>
<tr><td colspan="2" id="SpaceCell"><img src="Streg.jpg" height="20" width="400"></td></tr>
<%
Hent.MoveNext
Loop While Not Hent.EOF
%>
<tr><th colspan="2"><a href="" onclick="window.close();">Luk dette vindue.</a></th></tr>
</table>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>