Kan någon hjälpa mig lite med denna kod...?

Jag är har precis börjat jobba lite med ett paging script, det från FAQ.

Den innehåller en db-koppling fast jag har redan kopplat mig till en databas. när jag förssöker göra om paging scriptet för att fungera med den andra kopplingen funkar det inte...

Hur ska jag anpassa denna kod?

Första DB kopplingen:

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\applications\basket\data\db.mdb" 

	Set RecSet = Server.CreateObject("ADODB.Recordset") %>

Paging scriptet:

<table border="0" cellspacing="1" cellpadding="3" width="80%" bgcolor="#CCCCCC" align="center">

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 5

SQL = "Select * From klotterplank Order by Datum Desc"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("data/db.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Det finns inga inlägg " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "f7f7f7"
   Else
      color = "EEEEEE"
   End If
   Response.write "<table border=0 cellspacing=1 cellpadding=3 width=80% bgcolor=#CCCCCC align=center><tr bgcolor='" & color & "'><td><b>Skrivet av: <a href='mailto:" & RStemp("email") & "' class=blacklink>" & RStemp("forfattare") & "</a></b> <br><b>Datum</b> " & RStemp("datum") & "<br><br> " & RStemp("meddelande") & " </td></tr></table><br>"

   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
  %>
  <p align="center">
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "' class=blacklink>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td></tr>
</table>