limit på f.eks. 10 sider fra en database ind i en gæstebog?

Her er koden lige for en sikkerheds skyld...

<form name="form" method="post" action="guestbook-skriv.asp" onSubmit="validering();return false";>
                      <tr>
                        <td colspan="2">
                          <input type="hidden" name="dato" value="dato">
                        </td>
                      </tr>
                      <tr>
                        <td valign="top">
                          <p>Navn:
                            <input type="text" name="navn">
                          </p>
                        </td>
                        <td valign="top">Email:
                          <input type="text" name="email">
                        </td>
                      </tr>
                      <tr>
                        <td colspan="2">Kommentar:
                          <textarea name="kommentar" cols="50" rows="5"></textarea>
                        </td>
                      </tr>
                      <tr>
                        <td align="right">
                          <input type="submit" name="send" value="Send">
                        </td>
                        <td>
                          <input type="reset" name="Reset" value="Nulstil">
                        </td></form>
                      </tr>
                      <tr>
                        <td colspan="2">
                          <hr noshade align="center" size="1">
                        </td>
                      </tr>
                      <tr>
                        <td colspan="2" class="maintext"> 
                          <%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("/guestbook/database.mdb")
Conn.Open DSN

strSQL = "Select * from data Order by dato Desc"
Set rs = Conn.Execute(strSQL)
Do

strEmail = rs("email")
strLink = "<a href=mailto:" & rs("email") & ">" & strEmail & "</a><BR><BR>"
Response.Write rs("dato") & "<BR><BR>"
Response.Write "Navn: " & rs("navn") &"<BR>"
Response.Write "Email: " & strLink
Response.Write rs("kommentar") & "<BR><BR><HR noshade size=1>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

Det er vel ligegyldigt om det er ASP eller PHP ... du har jo fat i access som skal fatte noget sql ... så det går vel udemærket(?) (har du ikke prøvet?)

Lav din sql om til "Select TOP 10 * FROM data Order by Dato DESC"

Den side her henviser til en anden side der har samme script, men der kan bare skrives ind med den anden side - den side her er kun til at "hente data", ellers kan man indsætte tomme felter ind i sin database bare ved at opdatere siden (F5) og det er jo ikke meningen.

Forskellen er faktisk kun:

<%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("/guestbook/database.mdb")
Conn.Open DSN

<!-- skriver data ind i databasen-->
strSQL = "Insert into data (dato, navn, email, kommentar) values('" & Request.Form("dato") & "','" & Request.Form("navn") & "','" & Request.Form("email") & "', '" & Request.Form("kommentar") & "')"
Conn.Execute strSQL

strSQL = "Select * from data Order by dato Desc"
Set rs = Conn.Execute(strSQL)
Do

strEmail = rs("email")
strLink = "<a href=mailto:" & rs("email") & ">" & strEmail & "</a><BR><BR>"
Response.Write rs("dato") & "<BR>"
Response.Write "Navn: " & rs("navn") &"<BR>"
Response.Write "Email: " & strLink
Response.Write rs("kommentar") & "<BR><BR><HR noshade size=1>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
Response.Redirect "guestbook.asp"
%>

Okay, nu håber jeg at jeg har forklaret det så man kan forstå det..

/Frido

Fint - det virker, nu viser den de 10 første indlæg.
Men hvis jeg laver en drop down menu med f.eks 5 muligheder for antal indlæg ( f.eks. 10/25/50/75/100) - hvordan ændrer man så dynamisk "TOP 10" feltet?
Ellers kan man godt sige det var et svar, og dog.. Hvad gør jeg så? :/

>>Repsac - selvfølgelig har jeg prøvet det, ellers ville jeg jo ikke poste det indlæg her i Eksperten.dk - ikke sandt? ;)

"Select TOP " & Count & " * FROM data Order by Dato DESC"

Hvor Count er drop down menuens værdi

Hm - det kan jeg ikke rigtig få til at virke - her er form+script, så hvad gør jeg galt?

<!-- Javascript til at vælge uden at skulle trykke "ok" -->
<script language="Javascript">
function selectIndlaeg()
{
document.limitform.submit();
}
</script>

<!-- selve drop-down menuen -->
<form method="post" action="guestbook.asp" enctype="application/x-www-form-urlencoded" name="limitform">
Vis <select name="limitform" onchange="selectIndlaeg()">
<option selected value="10">10</option>
<option  value="25">25</option>
<option  value="50">50</option>
<option  value="75">75</option>
<option  value="100">100</option>
<option  value="*">Alle</option>
</select>
indl&aelig;g</form>
</td>
</tr>
                      <tr>
                        <td colspan="2">
                          <hr noshade align="center" size="1">
                        </td>
                      </tr>
                      <tr>
                        <td colspan="2" class="maintext"> 
                          <%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("/guestbook/database.mdb")
Conn.Open DSN

<!-- vælger antal rækker fra databasen -->
strSQL = "Select TOP " & Count & " * FROM data Order by Dato DESC"
Set rs = Conn.Execute(strSQL)
Do

strEmail = rs("email")
strLink = "<a href=mailto:" & rs("email") & ">" & strEmail & "</a><BR><BR>"
Response.Write rs("dato") & "<BR><BR>"
Response.Write "Navn: " & rs("navn") &"<BR>"
Response.Write "Email: " & strLink
Response.Write rs("kommentar") & "<BR><BR><HR noshade size=1>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

Har på fornemmelsen at der er noget med "limitform" og "count" der ikke hænger sammen...?

Prøv at bruge dette som din sql:

Dim Count
Count = Request.Form("limitform")
If Count = "*" Then
  strSQL = "Select * FROM data Order by Dato DESC"
ElseIf Count = "" Then
  strSQL = "Select TOP 10 * FROM data Order by Dato DESC"
Else
  strSQL = "Select TOP " & Count & " * FROM data Order by Dato DESC"
End If

Det var dog det lækreste du kan! Mange tak for det - de 100 points er MEGET GODT givet ud! :)

Du er velkommen.