Någon som kan hjälpa mig med detta prekära lilla problem?

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'rstemp2'

Raden den refererar till är den med pilen innan.

Tacksam för hjälp!

<code>
<%

set conn2=server.createobject("ADODB.Connection")
dbname2="boka.mdb"
cnpath2="DBQ=" & server.mappath(dbname2)
conntemp2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath2
set rstemp2 = server.createobject("ADODB.Recordset")


' Funktionen
Function check_avail(akt_dag,akt_tid)
sql="SELECT * FROM boka WHERE dag="&akt_dag&" AND tid="&akt_tid&" AND vecka="&INT(show_vecka)
----> rstemp2.open sql, conn, 1, 1
if rstemp2.Recordcount = 1 then
tmp = "<TD background=""bg_upptaget.gif"" align=""center"">&nbsp;</TD>"
else
'vecka_diff=(INT(vecka) - INT(denna_vecka))
'ant_diff_dagar = (vecka_diff * 7)
'ant_diff_dagar = ant_diff_dagar + (akt_dag-weekday(now))

tmp = "<TD onmouseover=""this.bgColor = 'E7FFEA';"" ONMOUSEOUT=""this.bgColor = tabellen.bgColor;"" onclick=""javascript:boka("&akt_dag&","&akt_tid&","&((INT(vecka) - INT(denna_vecka))*7)+(akt_dag-weekday(now))&")"" align=""center"">&nbsp;"
tmp = tmp & ""
tmp = tmp & "Boka"
tmp = tmp & "&nbsp;</TD>"
end if
rstemp2.close
check_avail=tmp
End Function
conntemp2.close%>
</code>

---------
Marcus