<%
strID = Request(\"id\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set myRecs = Server.CreateObject(\"ADODB.Recordset\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")
If strID = \"\" Then \' Hvis ikke der er angivet et ID så finder vi da bare et!
strSQL = \"SELECT * FROM test ORDER BY id DESC;\"
Set myRecs = myConn.Execute(strSQL)
strID = myRecs(\"id\")
End If
\' Her udvælger vi ALLE poster, sorterer dem efter ID, faldende (descending)
strSQL = \"SELECT * FROM test ORDER BY id DESC;\"
Set myRecs = myConn.Execute(strSQL)
\' Kører igennem alle posterne for at finde den post vi leder efter, den forrige og den næste
\' (hvis de findes)
Do Until myRecs.BOF Or myRecs.EOF
strNewID = myRecs(\"id\")
\' Hvis sandt har vi fundet vores post.
If CInt(strNewID) = CInt(strID) then
strNavn = myRecs(\"navn\")
strDato = myRecs(\"dato\")
strFile = strID & \".txt\"
Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
Set fsoStream = fsoSystem.OpenTextFile(Server.MapPath(strFile), 1)
If Not fsoStream.AtEndOfstream Then strContent = fsoStream.ReadAll
fsoStream.Close
Set fsoStream = Nothing
Set fsoSystem = Nothing
intGotIt = 1 \' Sæt et `flag´ så vi senere kan se at vi HAR fundet vores record.
Else
\' Ved at finde ud af om vi HAR fundet vores record kan vi se om vi skal sætte
\' det nuværende ID til `forrige´ eller `næste` ID.
Select Case intGotIt
Case 0: strPrevID = strNewID
Case 1: If strNextID = \"\" Then strNextID = strNewID
End Select
End If
\' Gå til næste post.
myRecs.MoveNext
Loop
\' Sæt referencer til `ingenting´ (rydder op) og luk connection.
Set myRecs = Nothing
myConn.Close: Set myConn = Nothing
\' Vi skal lige checke om vi overhovedet fik noget.
If intGotIt = 0 Then
strPrevID = \"\"
strNextID = \"\"
strNavn = \"-\"
strDato = \"-\"
strContent = \"Det angivne ID er ikke gyldigt!\"
End If
%>
<html>
<head>
<title>Test</title>
</head>
<body bgcolor=\"#008080\">
<center>
<table border=\"0\" width=\"444\" cellspacing=\"0\" cellpadding=\"0\">
<tr><td width=\"100\" valign=\"top\"><font face=\"Arial\" size=\"2\" color=\"#ffffff\"><b>Indsendt af:</b></font> </td><td valign=\"top\"><font face=\"Arial\" size=\"2\" color=\"#ffffff\"><%=strNavn%></font></td></tr>
<tr><td width=\"100\" valign=\"top\"><font face=\"Arial\" size=\"2\" color=\"#ffffff\"><b>Dato:</b></font> </td><td valign=\"top\"><font face=\"Arial\" size=\"2\" color=\"#ffffff\"><%=strDato%></font></td></tr>
<tr><td width=\"100\" valign=\"top\"><font face=\"Arial\" size=\"2\" color=\"#ffffff\"><b>Tekst:</b></font> </td><td valign=\"top\"><textarea rows=\"10\" name=\"test\" cols=\"40\"><%=strContent%></textarea></td></tr>
<tr><td width=\"100\" valign=\"top\"> </td><td align=\"right\">
<input type=\"text\" size=3 maxlength=4 name=\"id\"><input type=\"button\" value=\"Vis\" onclick=\"location.href=\'test.asp?id=\'+document.all.id.value;\">
<input type=\"button\" value=\"< Forrige\" <% If strPrevID > \"\" Then Response.Write \"onclick=\"\"location.href=\'test.asp?id=\" & strPrevID & \"\';\"\"\" Else Response.Write \"disabled\" %>>
<input type=\"button\" value=\"Næste >\" <% If strNextID > \"\" Then Response.Write \"onclick=\"\"location.href=\'test.asp?id=\" & strNextID & \"\';\"\"\" Else Response.Write \"disabled\" %>>
</td></tr>
</table>
</center>
</body>
</html>
