Fejlmeddelse

Jeg har et stykke kode her der skriver mine billeder ud på min hjemmeside. Der bliver vist 15 billeder af gangen
og derefter kan man klikke videre for at se resten osv... ´Jeg kan godt se de første 15 billeder men når jeg klikker å næste for jeg en fejl:

Fejl:
----------------------
Fejltype:
ADODB.Recordset (0x800A0BB9)
Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.
Linie 74
----------------------
KODE:
----------------------
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<!--#INCLUDE file="adovbs.inc" -->
<html>
<head>
    <title>Untitled</title>
</head>
<body>
<div align="center">
<table border="0" cellspacing="10" cellpadding="10"><tr><td>
<%
Dim Connect_String
Dim Page_Size
Dim Current_Page
Dim MyConn
Dim RS
Dim SQL
Dim Page_Count
Dim strSQL

Connect_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../foto.mdb")

Page_Size = 15

If Request("Page")="" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"))
End If

Set MyConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
MyConn.Open Connect_String

RS.CursorLocation = adUseClient
RS.PageSize = Page_Size

SQL = "Select * From TblImages where Serieid = '" & Request.Querystring("Serieid") & "'"

RS.Open SQL, MyConn, adOpenStatic, adLockReadOnly, adCmdText

Page_Count = RS.PageCount

If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count

RS.AbsolutePage = Current_Page

iTal = 1

Do While RS.AbsolutePage = Current_Page AND Not RS.EOF
%>

    <IMG SRC="../images/<%=rs("Images")%> border="0"></td><td>
   
   
    <%
    If iTal = 5 Then
    response.write "<tr><td>"
    iTal = 0
End If
iTal = iTal + 1
RS.MoveNext
Loop
%>
</table>
<%

RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing

Response.Write "<br>"
Response.Write "<td colspan=""4"" align=""center"">"
If Current_Page = 1 Then
Response.Write "" & "Start | "
End If
If Current_Page >= 2 Then
Response.Write "<a href=""visbilleder.asp?Page=1"
Response.Write """><< Start | </a>" & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "Next >> |"
End If
If Current_Page < Page_Count Then
Response.Write "<a href=""visbilleder.asp?Page="
Response.Write Current_Page + 1
Response.Write """>Næste ></a>" & " |" & vbCrLf
End IF
If Current_Page <> 1 Then
Response.Write "<a href=""visbilleder.asp?Page="
Response.Write Current_Page - 1
Response.Write """>< Forrige </a>  |" & vbCrLf
Response.Write " " & vbCrLf
End If
If Current_Page = 1 Then
Response.Write "" & "< Forrige | "
End If
If Current_Page <> Page_Count Then
Response.Write "<a href=""visbilleder.asp?Page="
Response.Write Page_Count
Response.Write """>Sidste >></a>" & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "Sidste" & ""
End If
Response.Write "</center>" %>


Side <%=Current_Page%> af <%=Page_Count%></div>



<br>
</body>
</html>

Hvad er problemet?