Hello, sitter med en kod här som jag inte riktigt får igång, tänkte höra om någon här kanske kan se någon fel i den.
<%
persida = 5
For n = 1 to RS.recordcount step persida
IF n <> 1 then response.write " "
%>
<a href="gbok.asp?visa=<%=n%>"><%=n%>
till
<% If n + persida <=RS.recordcount then%><%=n + (persida -1)%>
<%else%>
<%=RS.recordcount%>
<%end if %>
</a>
<% next %>
<br>
</p>
<%if RS.eof then
RS.close
set RS = nothing
else
if request("visa") = "" then
visa = 1
else
visa = Request("visa")
end if
RS.move visa -1
for row = visa to visa + (persida -1)
if RS.eof then exit for
%>
<%=RS("tabell")%>
<%
RS.MoveNext
next
end if
%>
<%
End If
%>
jag får inte upp något felmeddelande, utan sidorna vill bara inte delas upp.
Jådå, men du har en alldeles utmärkt fungerande version i FAQn
mvh
------------------
------------------- What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle
Konstigt, jag får då inte upp något felmeddelande, detta är hela koden:
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "DSN=xxx-databas;Password=xxx"
SQL = "select * from Gbok order by nr desc"
Set RS = Databas.Execute(SQL)
persida = 5
For n = 1 to RS.recordcount step persida
IF n<> 1 then response.write " "
%>
<a href="gbok.asp?visa=<%=n%>"><%=n%>
till
<% If n + persida <=RS.recordcount then%><%=n + (persida -1)%>
<%else%>
<%=RS.recordcount%>
<%end if %>
</a>
<% next %>
<br>
</p>
<%if RS.eof then
RS.close
set RS = nothing
else
if request("visa") = "" then
visa = 1
else
visa = Cint(request("visa"))
end if
RS.move visa -1
for row = visa to visa + (persida -1)
if RS.eof then exit for
%>
Namn: <%=RS("G_namn")%><br>
Datum: <%=RS("G_datum")%><br>
Inlagg: <%=RS("G_inlagg")%><br>
<%
RS.MoveNext
next
end if
%>
sidorna ska sedan delas upp på följande sätt:
<a href="gbok.asp?visa=1">1-5</a>
<a href="gbok.asp?visa=6">6-10</a>
osv..
denna kod har jag kört, endat ändrat så att sql och rs("fält") stämde med min databas, och det funkade utan en enda ändring.
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\db.mdb;"
SQL = "SELECT * FROM Gbok ORDER BY nr"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Databas, 3, 3
persida = 5
For n = 1 to RS.recordcount step persida
IF n<> 1 then response.write " "
%>
<a href="gbok.asp?visa=<%=n%>"><%=n%>
till
<%
If n + persida <=RS.recordcount then
Response.Write(n + (persida -1))
Else
Response.Write RS.recordcount
End If
%>
</a>
<%
Next
%>
<br>
</p>
<%
If RS.eof then
RS.close
set RS = nothing
Else
If request("visa") = "" then
visa = 1
Else
visa = Cint(request("visa"))
End If
RS.move visa -1
For row = visa to visa + (persida -1)
If RS.eof Then Exit For
%>
<b>Namn:</b> <%=RS("G_namn")%><br>
<b>Datum:</b> <%=RS("G_datum")%><br>
<b>Inlagg:</b> <%=RS("G_inlagg")%><hr>
<%
RS.MoveNext
Next
End if
%>
</BODY>
</HTML>
Ändra sökvägen till db så att det stämmer med sökvägen till din db.
