paging og db forbindelse
jeg har fundet flg. paging script på activedeveloper.dk, og det virker os fint, men jeg kunne godt tænke mig at tage db forbindelsen ud af pagingscriptet, også bruge mit eget som ligger i en includefil, som jeg benytter på resten af webstedet.men jeg kan ik helt få det til at virke når jeg forsøger at bytte det ud.
Nogen der kan fixe det for mig??
min db include (config.inc):
---------------------------
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../db\maindb.mdb")
---------------------------
PAGING:
---------------------------
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db\maindb.mdb")
strSQL = "SELECT dato, overskrift, ID FROM nyheder order by dato desc"
rs.Open strSQL, strDSN, 1
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 "<a href='nyheder_rediger2.asp?id=" & rs("id") & "'>" & rs("dato") & " - " & rs("overskrift") & "</a><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=nyheder_rediger.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=nyheder_rediger.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=nyheder_rediger.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
