fejl i paging

har dennne kode:

<%
Set Conn = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Driver={MySQL ODBC 3.51 Driver};server=***;Database=***;uid=***;pwd=***;" '(line 23)

Set rs = Conn.Execute("SELECT COUNT(*) AS records FROM tabel;")
intRecords = int(rs("records"))

intPage = Request.QueryString("page2")
if intPage = "" OR not isNumeric(intPage) then
  intPage = int(1)
else
  intPage = int(intPage)
end if

intPageSize = int(5)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

Set rs = Conn.Execute("Select * From events where dato >= '" & dato2 & "' order by dato")
%>
<% Do until rs.EOF %>
<TR class="main">
    <TD>
<% if rs("link") = "" then %>
<% =rs("dato") %> - <% =rs("event") %> - <A HREF='http://www.musicon.dk/default.asp?page=eventprofil&id=<% =rs("id") %>'>Beskrivelse</a>
<% else %>
<% =rs("dato") %> - <A HREF='<% =rs("link") %>' target="_blank"><% =rs("event") %></A> - <A HREF='http://www.musicon.dk/default.asp?page=eventprofil&id=<% =rs("id") %>'>Beskrivelse</a>
<% end if %>
    </TD>
</TR>
<%
rs.MoveNext
Loop

For i = 1 to intPages
  if i = intPage then
    Response.Write "<b>" & i & "</b> "
  else
    Response.Write "<a href=""paging.asp?page=" & i & """>"
    Response.Write i
    Response.Write "</a> "
  end if
%>

får denne fejl:

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/events.asp, line 23