Feltyp:
Körningsfel i Microsoft VBScript (0x800A01B6)
Objektet stöder inte egenskapen eller metoden.: 'Next'
/nordpol/test.asp, line 38

...är felmeddelandet jag får när jag kör denna kod:

<code>
<%
ar=2004
Session.LCID = 1053 ' Svenska datum

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT *, MONTH(eventdate) AS manad FROM calender " &_
"WHERE YEAR(eventdate) = " & ar & " " &_
"ORDER BY eventdate ASC"

strDSN = "nordpol"
rs.Open strSQL, strDSN

Response.Write("År " & ar & "<br/>")
' Loopa över månader
For manad = 1 To 12

' Skriv ut månadsnamn
Response.Write uCase(MonthName(manad)) & "<br>"

' Om inga händelse denna månad
If rs.EOF Or CINT(rs("manad")) > CINT(manad) Then

Response.Write "* inga händelser *<br>"


Else
Do
Response.Write rs("eventdate") & " - " & rs("titel") & "<br>"
rs.Next
Loop While Not rs.EOF
End If
Next

rs.close
Set rs=nothing
%>
</code>
på rad 38 står "rs.Next"

...se mitt svar i din ursprungliga tråd.

Ett förslag, ändra din
<code>
rs.Open strSQL, strDSN
'till
rs.Open strSQL, strDSN, 3, 3
'andra
rs.next
'till
rs.movenext
</code>
Det har att göra med:
<code>
adOpenStatic = 3 'hur pekaren ser ut
adLockOptimistic = 3'hur du öppnar ditt recordset
</code>
Jag skulle förmoda att detta löser ditt problem.