Object required - But there's nothing missing! 1

moxie249 · Mar 19, 2002

Help! I am going crazy trying to figure out this problem! I am trying to display a page showing which facilities in a certain region have submitted their daily information, and which have not. Showing the ones who have submitted is straightforward, and it's working fine. The other half is not going so well. Here is the error I'm getting:

Microsoft VBScript runtime (0x800A01A8)
Object required
/cplcanada/dailyreports/regions.asp, line 92

Two things: It's not telling me what's required, and the error is supposedly on line 92. The </html> tag, the last line of code, is on line 91! I'm going nuts! Here's the code:

===========================================================
<% 'Declare all variables
dim conn, conn2
dim rs
dim rs2
dim strconn, strconn2
dim cmd
dim strSQL, strSQL2, strSQL3
dim TodaysDate
dim inUID
'On Error Resume Next
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("fpdb/dailyreport.mdb&quot

%>
<html>

<head>
<title>Today's Regional Count</title>
</head>

<body>
<%
'Setup connection and recordset objects
set conn = server.createobject("adodb.connection&quot

conn.open strconn
set rs = server.createobject("adodb.recordset&quot

' Set SQL statement
TodaysDate=Date()
QueryRegion=request.querystring("region&quot

strSQL = "select * from Results where currentdate =#" & TodaysDate & "# and region like '" & QueryRegion & "'"
rs.Open strSQL,conn, adOpenStatic
if rs.EOF then
response.write"No facilities from this region have submitted their data today."
'response.end
else
response.write"The following facilities from the selected region have submitted their Daily Report:"
response.write"<table>"
'Loop through the recordset displaying the search result
Do while Not rs.EOF
response.write"<tr><td>" & rs("facility&quot

& "</td>"
response.write"<td align=center> <a href='display.asp?id=" & rs("ID&quot

& "'>View Details</a></td></tr>"
rs.moveNext
loop
response.write"</table>"

end if
rs.close
set rs=nothing

'Setup connection and recordset objects
set conn2 = server.createobject("adodb.connection&quot

conn2.open strconn
set rs2 = server.createobject("adodb.recordset&quot

' Set SQL statement
strSQL2 = "SELECT FacilityName FROM Census WHERE Region='" & QueryRegion & "' AND FacilityName NOT IN (SELECT Facility FROM Results WHERE currentdate=#" & TodaysDate & "#)"
'response.write strSQL2
'response.end
rs2.Open strSQL2,conn2, adOpenStatic

if rs2.EOF then
response.write"All of the facilities in this region have submitted their Daily Reports."
'response.end
else
response.write"The following facilities from the selected region have not submitted their Daily Report..."
response.write"<table><tr><td height=50> </td></tr>"
'Loop through the recordset displaying the search result
Do while Not rs2.EOF
response.write"<tr><td>" & rs2("FacilityName&quot

& "</td></tr>"
rs.moveNext
loop
response.write"</table>"
end if
rs2.close
set rs2 = nothing
%>

</body>

</html>

==========================================================

Any suggestions would be greatly appreciated!

TIA,
Brenda

hithere · Mar 19, 2002

QueryRegion=request.querystring("region&quot

Is this coming from another page or the url? if not, it's not defined and could cause a crash (could be the "missing object&quot

.
That's my best guess. Try "hard coding" a value for QueryRegion and see if it works. If so, we've found the culprit.
If that's not it, look closely at your loops. That's how you could get line 92. you can response.write a value (hi there or something) in the middle of the loop to see how far it gets before crashing.
hth
mark

moxie249 · Mar 19, 2002

Hi there hithere,

Yes, this is coming from a different page. The Region variable is passed from the other page. From the code you can see that I've tried to write the SQL statement, and it comes through just fine. I've also tested the SQL in the Access database, and it's working fine.

I'll check the loops...

Thanks,
Brenda

Discord · Mar 19, 2002

not sure if this would cause that problem but you have an infinite loop in your second do while loop. you have Rs.MoveNext when it should be Rs2.MoveNext [pipe]

moxie249 · Mar 19, 2002

THANK YOU THANK YOU THANK YOU!!!! That did it.

I thought this one would finally send me 'round the bend.

It's amazing how you can look at something like that for hours and not notice something so simple.

Once again, in case I haven't made myself clear, Thank you!

Brenda

Discord · Mar 19, 2002

humm.... well.... you're welcome. [2thumbsup]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Object required - But there's nothing missing! 1

moxie249

Technical User

hithere

Programmer

moxie249

Technical User

Discord

Programmer

moxie249

Technical User

Discord

Programmer

Similar threads

Part and Inventory Search

Sponsor