Paging problem med MSSQL
HejsaHar brug for en pagingfunktion på et site, men får følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/sys/paging.asp, line 9
Når dette script benyttes:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={SQL Server}; SERVER=xxx; DB=xxx"
'Conn.Open strConnect
Conn.Open strConnect, "xxx", "xxx"
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM tblnyheder where Status = 1 AND forside = 1 ORDER BY id desc"
Rs.Open SQL, 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 = 5
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
%>
Html kode til at vise siden
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Set objFS = Nothing
If intPage > 1 Then
Response.Write "<a href=main.asp?page=" & intPage - 1 & "><FONT COLOR=Black SIZE=2 FACE=Verdana, Arial, Helvetica>Tilbage</FONT></a>"
Else
Response.Write "<FONT COLOR=Black SIZE=2 FACE=Verdana, Arial, Helvetica>Tilbage</FONT>"
End If
Response.Write "<IMG SRC=../image/sp.gif WIDTH=110 HEIGHT=1 ALIGN=BOTTOM>"
If intRecCount = 0 And Cint(intPage) < Cint(intPageCount) Then
Response.Write "<a href=main.asp?page=" & intPage + 1 & "><FONT COLOR=Black SIZE=2 FACE=Verdana, Arial, Helvetica>Næste</FONT></a>"
Else
Response.Write "<FONT COLOR=Black SIZE=2 FACE=Verdana, Arial, Helvetica>Næste</FONT>"
End If
%>
Nogen der har en ide til dette ?
