---

Hej gruppe..

Jeg har lavet/klippet denne side sammen.. test.asp
Mit problem er at mine frem/tilbage knapper ikke vil blive "disabled".. Man
kan gå til side 8 af 7. osv.
Hvorfor ikke ? det vikker jo med "<a href="
(jeg vil gerne havde det lagt ind i disse knapper)..
På forhånd tak.. MtM

test.asp:

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strConn = "DRIVER={MySql};SERVER= O.S.V.
strSQL = "SELECT * FROM test ORDER BY id DESC;"
Rs.CursorLocation = 3
Rs.Open strSQL, strConn, 1
If Not (rs.BOF Or rs.EOF) Then
Rs.PageSize = 5
Rs.AbsolutePage = intPage
intRecCount = Rs.PageSize
intPageCount = Rs.PageCount

Do While Not rs.EOF And intRecCount > 0
%>
KLIP.....KLIP
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If

Rs.Close
Set Rs = Nothing
' DETTE VIKKER --------- >
If Clng(intPage) > 1 Then
Response.Write "<center><a href=test.asp?page=" & intPage - 1 &
">&lt;&lt; Forrige</a>&nbsp;&nbsp;&nbsp;&nbsp;"
Else
Response.Write "<center>&lt;&lt;Forrige&nbsp;&nbsp;&nbsp;&nbsp;"
End If
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b>"
Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<a href=test.asp?page=" &
intPage + 1 & ">Næste &gt;&gt;</a></center>"
Else
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;Næste &gt;&gt;"
End If
' < ----- DETTE VIKKER

%>
' DETTE VIKKER IKKE--------- > <p align="center"><input type="button"
style="font-family: MS Sans Serif; font-size: 8pt" value="&lt; Forrige" <%
If Clng(intPage) > 1 > "" Then Response.Write
"onclick=""location.href='test.asp?page=" & intPage - 1 & "';""" Else
Response.Write "disabled" %>>
<input type="button" style="font-family: MS Sans Serif;
font-size: 8pt" value="Næste &gt;" <% If Clng(intPage) < Clng(intPageCount)
> "" Then Response.Write "onclick=""location.href='test.asp?page=" & intPage
+ 1 & "';""" Else Response.Write "disabled" %>>
' < ----- DETTE VIKKER IKKE