flere sider til tagwall
jeg har lavet en tagwall men den kører kun på en side. jeg ville være meget glad hvis der var en der kunne kigge på koden også lige give mig et hint om hvordan jeg får min tagwall til at lave flere sider d.v.s. hvis der er 30 poster så laver den to sider [1][2][3] og hvor der er 10 på hver, men så skal loopet også stoppe når den er nået op på 10 sider.Kode:
<%if session("login") = "ja" then%>
Tagwall:<br>
<%
set conn = server.createobject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("*.mdb")
Conn.Open DSN
if request("mode") = "post" then
besked = replace(request("tekst"),vbcrlf, "<br>")
strSQL = "insert into beskeder ("
strSQL = strSQL & "author,"
strSQL = strSQL & "subject,"
strSQL = strSQL & "besked,"
strSQL = strSQL & "dato)"
strSQL = strSQL & "values("
strSQL = strSQL & "'" & session("brugernavn") & "',"
strSQL = strSQL & "'" & request("subject") & "',"
strSQL = strSQL & "'" & request("besked") & "',"
strSQL = strSQL & "'" & now & "')"
Conn.Execute(strSQL)
Response.Write "Din besked er gemt, og du bliver ført tilbage til forummet om et øjeblik"
%>
<head>
<meta http-equiv="refresh" content="2; url=default.asp?side=tagwall">
</head>
<%end if
if request ("mode") = "sletpost" and session("admin") = "Ja" then
strSQL = "delete from beskeder where subject = '" & Request("subject") & "'"
conn.Execute(strSQL)
Response.Write "Posten er slettet og du vil blive sendt tilbage til tagwallen om et øjeblik"
%>
<head>
<meta http-equiv="refresh" content="2; url=default.asp?side=tagwall">
</head>
<%end if
strSQL = "select * from beskeder order by dato DESC"
set rs = conn.execute(strSQL)%>
<table>
<form method="post" action="default.asp?side=tagwall&mode=post">
<tr>
<td>
titel
</td>
<td>
<input type="text" name="subject">
</td>
</tr>
<tr>
<td>
besked
</td>
<td>
<input type="text" name="besked">
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" value="gem" name="submit">
</td>
</tr>
</form>
</table>
<hr width="1">
<%Do%>
<table style="border-style: solid; border-width: 1" width="100%">
<%Response.Write "<tr><td>"
Response.Write rs("author") & "</td></tr>"
if session("admin") = "Ja" then%>
<tr><td>
<a href="default.asp?side=tagwall&mode=sletpost&subject=<%= rs("subject")%>"><%= rs("subject")%></a>
</td><td>
<%else
Response.Write "<tr><td>"
Response.Write rs("subject")
Response.Write "</td><td>"
end if
Response.write rs("dato") & "</td></tr><tr><td>"
Response.Write rs("besked") & "</td></tr></table><br>"
rs.movenext
Loop While not (rs.bof or rs.eof)
conn.close
set conn = nothing
else
Response.Write "du skal være logget ind for at benytte tagwallen"
%>
<head>
<meta http-equiv="refresh" content="3; url=default.asp">
</head>
<%end if%>
den er hjemmelavet og bruges på www.frip.dk/doh så jeg har ændret min databases navn til * (i tilfælde af hvis en hacker så denne post)
På forhånd tak Claes (webmaster på www.frip.dk/doh
