Jeg har denne kode:
<%
If Request.QueryString("catid") = "" then
CatID = 0
Else
CatID = Request.QueryString("catid")
End If
CatTitle = Request.QueryString("cattitle")
strSQL = "SELECT * FROM links WHERE CatID = " & CatID & " ORDER BY LinkName
ASC; "
Set objRec2 = objConn.Execute (strSQL)
'Output the body tag.
Response.Write LSPageBody1
DO UNTIL objRec2.EOF
'If it is the delete links admin page it needs to be on a form.
If Request.QueryString("admin") = "dellink" then%>
<form method="POST"
action="dellink.asp?catid=<%=Request.QueryString("CatID")%>&admin=dellink">
<%End If
'Print out the <TABLE> HTML
Response.Write LSResTable%>
<tr><table border="0" width="700">
<%=LSResR1C1 & FONT2%><%= objRec2("LinkPlus") %><a
href="redirect.asp?linkid=<%= objRec2("LinkID") %>"
target="_top"><%= objRec2("LinkName") %></a> - <%=
objRec2("LinkDesc")%><BR></font><FONT FACE="Verdana, Times New Roman"
SIZE="1" color="000000">Besøg Fra StuDI.DK : <FONT COLOR="000000"><%=
objRec2("LinkHits")%></FONT><BR>Adresse : <FONT COLOR="000000"><%=
objRec2("LinkUrl")%> - <a href="redirect.asp?linkid=<%= objRec2("LinkID")
%>" target="_top">Besøg</A></FONT></FONT><BR><HR></td>
<%=LSResR1C2%>
<%If Request.QueryString("admin") = "dellink" then%>
<input type="checkbox" name="field" value="<%=objRec2("LinkID")%>">
<%End If%></td>
</tr>
</table><br>
<%
'Move to the next record in the record set.
objRec2.MoveNext
LOOP
'Do this if the page is the delete link admin page.
If Request.QueryString("admin") = "dellink" then
'Display a password box if required.
If NOT Request.Cookies(""&Session.SessionID&"") = LSAdminPassword Then
Response.Write FONT1 & "<p align=""center"">Kodeord :"
Response.Write "<input type=""password"" name=""Password"" size=""40""><p>"
End IF%>
<p align="center"><input type="submit" value="Slet det valgte link!"
name="Submit"></p></form>
<%End If%>
Kan det lade sig gøre at vise 20 poster ad gangen, istedet for alle sammen
på en side?
På forhånd tak !
/Nikolaj