funkar - funkar inte

detta script funkade igår men inte nu???? vad är fel? scriptet ska ju hämta ett viss id i hitta.asp här är först sidan med länkarna till hitta.asp:

<a href="hitta.asp?songID=1">Craig David</a>

inte mkt kod men nu problemet tror jag:

<font face="Verdana" size="1">
<%
Dim objConn,intSongID,rsSong
set objConn=server.createobject("adodb.connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("songsTable.mdb") & ";"

intSongID=request.querystring("SongID")

set rsSong=objConn.Execute("SELECT * FROM songsTable WHERE SongID=" & intSongID)
strSQL = "UPDATE songsTable SET antalKlick = antalKlick + 1 WHERE songID = " & Request.QueryString("songID")

if not rsSong.EOF then
%>
Du ville se toner för denna artist samt låt: <br>
<b><%=rsSong("songname")%></b><br>
knappa bara in dessa in din Nokia telefon: <br>
<b><%=rsSong("info")%></b>

<%
else
%>
Den sången finns inte!
<%
End If
rsSong.Close
set rsSong=Nothing
objConn.Close
set objConn=Nothing
%>
</font>

det står att felet ligger på rad 9:e... jag får detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Ogiltig kopplingssekvens som inte kan hanteras av operativsystemet. 

/groda/hitta.asp, line 9

hjälp