error: Object doesn't support this property or method: 'EOF' 1

[cm80]

Hi,
Could someone please help?! I have this error and can't figure it out

The error i am getting is:
*********************************************
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

/fido/admin/regSessionReport.asp, line 42
*********************************************

My code is below, line 42 is highlighted in red

***********************************************


corpID = Request("corpID&quot
deviceID = Request("deviceID&quot
eventTime = Request ("eventTime&quot

Dim sql, conn, rs

Set conn = server.CreateObject("ADODB.Connection&quot
Set rs = server.CreateObject("ADODB.Recordset&quot

conn.Open strWirelessDBConnect

sql = &quot;SELECT * FROM event_log WHERE device_id = &quot;&quot;&quot; & deviceID & &quot;&quot;&quot; AND event_time < &quot;&quot;&quot; & eventTime & &quot;&quot;&quot;&quot;


rs = conn.Execute (sql)

If Not rs.EOF Then
%><table border=1 cellpadding=0 cellspacing=0><%
While Not rs.EOF
Response.Write &quot;<tr>&quot; & _
&quot;<td>&quot; & event_time & &quot;</td>&quot; & _
&quot;<td>&quot; & query_string & &quot;</td>&quot; & _
&quot;</tr>&quot;
Wend
%></table><%
End If
Set rs=Nothing
Set Conn = Nothing

%>



Thank you

 

[tsuji]

Hello, cm80.

Not knowing fine aspect of your db app, just a couple of suggestion which may be off the mark.

[1] Should you not put ?
rs = conn.Execute(sql)
as
Set rs = conn.Execute(sql)
[2] Should you not insert before Wend something like rs.movenext ?

regards - tsuji