asp virker ikke???

kode?

<% response.buffer = true %>
<html>

<head>
<LINK REL="stylesheet" HREF="styles.css" TYPE="text/css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<!-- Minus AutoDato -->
<title>G&aelig;stebog med sider</title>
</head>

<body bgcolor="#0080C0" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)
%>
<HR WIDTH="450" SIZE="1" color="#000000">
Fra: <%=RS("Navn")%>&nbsp;&nbsp;&nbsp;<%=RS("Dato")%><br>
Emne:&nbsp;&nbsp;<%=RS("Hjemmeside")%><br>
<%=RS("Besked")%>
<HR WIDTH="450" SIZE="1" color="#000000">

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.absolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=default2.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=default2.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=default2.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

<%
'RS.MoveNext
'Loop
'end if

'Conn.Close
'Set Conn = Nothing

%>
<form action="gem" method="POST">
<table border="0" cellpadding="2"
    cellspacing="0" width="450">
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">Navn: </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Navn"></td>
        </tr>
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">E-mail: </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Email"></td>
        </tr>
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">Hjemmeside:<br> </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Hjemmeside"><br></td>
        </tr>
        <tr>
            <td align="Left" valign="top" width=""><font
            size="3" face="Arial">Besked:</font></td>
            <td valign="top" width="">
            <textarea id="test" name="Besked" rows="8"
            cols="40"></textarea></td>
        </tr>
        <tr>
            <td width="20%"></td>
            <td colspan="2" width=""><input id="test2" type="submit"
    name="B1" value="Tilf&oslash;j"> <INPUT id="test2" TYPE="reset" NAME="Slet"></td>
        </tr>
    </table>
  </form>
</body>
</center>
</html>

Du skal bruge metoden rs.Open SQL,... og ikke Set rs = Conn .. for paging virker, så prøv at rette disse linjer:


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)


Til disse bemærk der er komme en ny linje med Set rs = Sever.CreadteObject("ADODB.recordset") for at undgå fejl ukendt Object '' i linjen rs.Open:

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
rs.Open strSQL, Conn, 1

den vil ikke vise posterene når man kliker på sidere??

her er koden:

<% response.buffer = true %>
<html>

<head>
<LINK REL="stylesheet" HREF="styles.css" TYPE="text/css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<!-- Minus AutoDato -->
<title>G&aelig;stebog med sider</title>
</head>

<body bgcolor="#0080C0" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs2 = Conn.execute(strSQL)
%>

<HR WIDTH="450" SIZE="1" color="#000000">
Fra: <%=RS("Navn")%>&nbsp;&nbsp;&nbsp;<%=RS("Dato")%><br>
Emne:&nbsp;&nbsp;<%=RS("Hjemmeside")%><br>
<%=RS("Besked")%>
<HR WIDTH="450" SIZE="1" color="#000000">
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
rs.Open strSQL, Conn, 1

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 2
    rs.absolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<a href=default.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

<form action="send.asp" method="POST">
<table border="0" cellpadding="2"
    cellspacing="0" width="450">
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">Navn: </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Navn"></td>
        </tr>
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">E-mail: </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Email"></td>
        </tr>
        <tr>
            <td align="left" width="" valign="top"><font size="3"
            face="Arial">Hjemmeside:<br> </font></td>
            <td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Hjemmeside"><br></td>
        </tr>
        <tr>
            <td align="Left" valign="top" width=""><font
            size="3" face="Arial">Besked:</font></td>
            <td valign="top" width="">
            <textarea id="test" name="Besked" rows="8"
            cols="40"></textarea></td>
        </tr>
        <tr>
            <td width="20%"></td>
            <td colspan="2" width=""><input id="test2" type="submit"
    name="B1" value="Tilf&oslash;j"> <INPUT id="test2" TYPE="reset" NAME="Slet"></td>
        </tr>
    </table>
  </form>
</body>
</center>
</html>

/rene

jeg har selv funde ud af det med sider du få halv delen vis det er okay??

/rene

Ja det er det.

mange Tak for hjælpen