Database problemer

Prøv lige denne her :

<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("filnavn.mdb")

SQL = "Select * From tabel"
Set rs = Conn.execute(SQL)

If Not (rs.Bof OR rs.EOF) Then
Do While not rs.eof

Forrige = rs("id")-1
SQL2 = "Select * From tabel Where id = "& Forrige &""
Set rs2 = Conn.Execute(SQL2)

Next = rs("id")+1
SQL3 = "Select * From tabel Where id = "& Next &""
Set rs3 = Conn.Execute(SQL3)

%>

<% if mode = rs("kolone1") then %>

<a href="fil.asp?mode=<%=rs2("kolone1")%>">Forrige</a>&nbsp;
[link til random input]
<a href="fil.asp?mode=<%=rs3("kolone1")%>">Næste</a>
<BR>
        <%=rs("kolone1")%>
<BR>
link til filnavn.asp?mode=<%=rs("kolone2")%>
<% end if %>



<% if mode = rs("kolone2") then
<BR>
        <%=rs("kolone2")%>
<BR>
link til filnavn.asp?mode=<%=rs("kolene1")%>
<% end if %>
<%
rs.Movenext
loop
end if
%>

Kommer lige med en random funktion om 10 min..

Der kom den så

Databasen ligner følgende:
Id    kolone1        kolone2

auto    input1        input1,1
auto    input2        input2,1
auto    input3        input3,1

<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("filnavn.mdb")

SQL = "Select * From tabel"
Set rs = Conn.execute(SQL)

If Not (rs.Bof OR rs.EOF) Then
Do While not rs.eof

Forrige = rs("id")-1
SQL2 = "Select * From tabel Where id = "& Forrige &""
Set rs2 = Conn.Execute(SQL2)

Next = rs("id")+1
SQL3 = "Select * From tabel Where id = "& Next &""
Set rs3 = Conn.Execute(SQL3)

Set rs4 = Conn.Execute("SELECT * FROM Tabel WHERE ID = ("&_
    "SELECT Min(ID) FROM Tabel WHERE ID >= (" &_
    "SELECT Round(CDbl(" & Replace(Rnd(),",",".") &_
    "*Max(ID))) FROM Tabel))")
%>

<% if mode = rs("kolone1") then %>

<a href="fil.asp?mode=<%=rs2("kolone1")%>">Forrige</a>&nbsp;
<%'Kommer lige om 5 min...%>
<a href="fil.asp?mode=<%=rs4("kolone1")%>">Forrige</a>&nbsp;
<a href="fil.asp?mode=<%=rs3("kolone1")%>">Næste</a>
<BR>
        <%=rs("kolone1")%>
<BR>
link til filnavn.asp?mode=<%=rs("kolone2")%>
<% end if %>



<% if mode = rs("kolone2") then
<BR>
        <%=rs("kolone2")%>
<BR>
link til filnavn.asp?mode=<%=rs("kolene1")%>
<% end if %>
<%
rs.Movenext
loop
end if
%>

Så kom der vist lidt mere med end nødvendigt. :D

Har først lige set dit inlæg... Ser meget rigtigt ud...
Men kan ikke helt få det til at virke... den siger...
HTTP 500 - Intern serverfejl
Jeg skal til at i seng så... jeg ser på det en af de følgende dage...

HTTP 500 - Intern serverfejl (det er måske serveren der fejler...)
Jeg kan i hvert fald ikke finde nogle fejl, det er dog MEGET lang tid siden at jeg har beskæftiget mig med programmering...

Har du tjekket at den database du bruger har read & write retiigheder for bruger "alle"

Nej.. det har jeg ikke... Er ikke helt sikker på hvad du mener...
Jeg har bare oprettet en standart .mdb fil og indsat før nævnte værdier i en normal tabel...

Jeg er lige ved at prøve at teste det på friserverplads.dk og har en fornemmelse af at der måske er noget galt med deres server/sider

Jeg har nu fået testet dit forslag... og der er altser en fejl(HTTP 500 - Intern serverfejl)... måske du kan komme med et forslag til hvad der er galt..
For mig ser det meget rigtigt ud, men jeg laver hjemmesider baseret på empirisk teknologi, så jeg har ikke rigtig styr på det.

Hvilken linie kommer din fejlmeddelse med ?

Jamen den skriver "HTTP 500 - Intern serverfejl" så... ja jeg ved ikke helt hvad det skal betyde... den angiver ingen linje tal som normalt

Jeg tester i øjeblikket koden på brinkster... måske deres asp regler kan hjælpe

http://www.brinkster.com/ASPRules.asp

Jeg har indsat følgende for at lukke databasen...
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Hvad ellers manger der for at det skal virke?

Kan du ikke lægge et link, så jeg kan se fejlmeddelsesen ?

fejlmeddelsen.. :D

http://www21.brinkster.com/123testing/gaader.asp

spørgsmål stadig åben

Min browser viser følgende fejlbesked:

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/123testing/gaader.asp, line 16

Next = rs("id")+1
^

>>txk : du skal indstille din browser til at vise fejlmeddelelserne i din browser.

>>-master-d-: du må vist ikke kalde en variabel for Next!

svaret var kun delvis rigtigt... men jeg har fundet en løsning