Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_databases thread: VBS runtime error


Message #1 by tim.puffer@t... on Thu, 8 Nov 2001 21:03:01
here is my problem i get a runtime error from this code and i am not sure 

what it is looking for.



here is the error



Microsoft VBScript runtime error '800a01a8' 

Object required: '' 



/phone/results.asp, line 76 





and this is line 76

<%

	While not rsemp.EOF



%>



thanks in advance

Message #2 by Kyle Burns <kburns@c...> on Thu, 8 Nov 2001 16:04:21 -0500
My first guess would be that rsemp has not been created.  Their are three

possibilities here:

1.  The method that should have created the recordset did not get called/did

not work

2.  The recordset was set to Nothing before hitting this line

3.  A typo/misspelled variable name (are you using Option Explicit?)





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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: tim.puffer@t... [mailto:tim.puffer@t...]

Sent: Thursday, November 08, 2001 4:03 PM

To: ASP Databases

Subject: [asp_databases] VBS runtime error





here is my problem i get a runtime error from this code and i am not sure 

what it is looking for.



here is the error



Microsoft VBScript runtime error '800a01a8' 

Object required: '' 



/phone/results.asp, line 76 





and this is line 76

<%

	While not rsemp.EOF



%>



thanks in advance



 




$subst('Email.Unsub')

Message #3 by "PUFFER, TIM" <TIM.PUFFER@T...> on Thu, 8 Nov 2001 15:10:06 -0600
Thanks i will give your suggestions a try.



-----Original Message-----

From: Kyle Burns [mailto:kburns@c...]

Sent: Thursday, November 08, 2001 3:04 PM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





My first guess would be that rsemp has not been created.  Their are three

possibilities here:

1.  The method that should have created the recordset did not get called/did

not work

2.  The recordset was set to Nothing before hitting this line

3.  A typo/misspelled variable name (are you using Option Explicit?)





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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: tim.puffer@t... [mailto:tim.puffer@t...]

Sent: Thursday, November 08, 2001 4:03 PM

To: ASP Databases

Subject: [asp_databases] VBS runtime error





here is my problem i get a runtime error from this code and i am not sure 

what it is looking for.



here is the error



Microsoft VBScript runtime error '800a01a8' 

Object required: '' 



/phone/results.asp, line 76 





and this is line 76

<%

	While not rsemp.EOF



%>



thanks in advance



 




$subst('Email.Unsub')



 



tim.puffer@t...


$subst('Email.Unsub')

Message #4 by Steve Carter <Steve.Carter@t...> on Fri, 9 Nov 2001 12:22:18 -0000
It would be cool if you could show more code, as



1) it will show the context of what is likely to be in rsemp (or do you mean

rsTemp?)



2) ASP often misreports the line of the error.  It may be happening

somewhere nearby in the code.



> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 

Message #5 by "PUFFER, TIM" <TIM.PUFFER@T...> on Fri, 9 Nov 2001 10:34:01 -0600
Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')

Message #6 by Kyle Burns <kburns@c...> on Fri, 9 Nov 2001 11:45:20 -0500
Your "Else" clause does not execute the SQL statement and create rsEmps.



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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 11:34 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')

Message #7 by Steve Carter <Steve.Carter@t...> on Fri, 9 Nov 2001 16:50:28 -0000
Something tells me that's not your whole script.  Like maybe the fact it

doesn't contain the line that's allegedly failing?



That said, the failure line you pointed out refers to rsEmp whereas this

code talks about rsEmps.



If this turns out to be the problem, then the way to get round it is to put 



  Option Explicit 



at the top of the script, and then 



  Dim myVar



for each variable you use.  This might sound like a big task but it is well

worth it because it makes a whole bunch of errors more meaningful.  In this

instance you would get 'Variable not found' or somesuch, rather than the

slightly cryptic message you have there.



> -----Original Message-----

> From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

> Sent: 09 November 2001 16:34

> To: ASP Databases

> Subject: [asp_databases] RE: VBS runtime error

> 

> 

> Here is the script part of my asp

> <%

> 	'varFind = request.form("find")

> 	'varin = request.form("in")

> 	'response.write varfind

> 	'response.write varin

> 

> set rscn = server.createobject ("adodb.connection")

> cn = "driver={microsoft access driver (*.mdb)};" & _

> 		"dbq=" & server.MapPath("thermo.mdb")

> rscn.open  cn,"", ""

> if Request.QueryString("view") = "All" then

> 	set rsEmps = rscn.Execute("select * from empdir")

> 	TheMessage = "All Employees"

> elseif Request.QueryString("view") = "Department" then

> 	set rsEmps = rscn.Execute("select * from empdir where 

> Department 

> '" _

> 	& Request.QueryString("Department") & "'")

> 	TheMessage = "For Department " & 

> Request.QueryString("Department")

> else

> 	sqltext = "select * from empdir"

> 	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

> 		TheMessage = "Search Results"

> end if	

> %>

> Again thanks for the help.

> 

> 

> 

> > -----Original Message-----

> > From: tim.puffer@t... 

[mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 



steve.carter@t...


$subst('Email.Unsub')

Message #8 by "PUFFER, TIM" <TIM.PUFFER@T...> on Fri, 9 Nov 2001 11:39:37 -0600
I am just learning this ASP stuff, so if I ask a dumb question bear with me.

but as you can see I am try to clean this code up and use some of the

appropriate techniques.  How would I, using the proper technical, execute

the SQL statement.



-----Original Message-----

From: Kyle Burns [mailto:kburns@c...]

Sent: Friday, November 09, 2001 10:45 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Your "Else" clause does not execute the SQL statement and create rsEmps.



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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 11:34 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')



 



tim.puffer@t...


$subst('Email.Unsub')

Message #9 by Kyle Burns <kburns@c...> on Fri, 9 Nov 2001 13:21:40 -0500
The way that I would handle this particular situation would be to, instead

of opening the recordset in your If...Else structure (this is better handled

through a Select Case contruct), assign a value to the variable sqltext.

After exiting the construct, open the recordset with sqlstr as the Source

argument.  Here's how I'd handle this code (please take note of my comments

inline for other things that need addressed):



<%

'*************************************************

'* Consider using a different variable name for  *

'* your connection because most programmers use  *

'* the prefix "rs" to indicate that the variable *

'* is intended to hold a recordset object.       *

'* I would suggest a name like cnEmps for this   *

'* variable.  Also, the standard prefix for a    *

'* variable that will hold a connection object   *

'* is "cn".  Consider naming the variable that   *

'* holds your connection string something like   *

'* sConnString.					       *

'*************************************************

set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""



'*************************************************

'* Using UCase in the comparison gives you a bit *

'* of a safety net.                              *

'*************************************************

Select Case UCase(Request.QueryString("view"))

	Case "ALL"

		TheMessage = "All Employees"

		sqltext = "SELECT * FROM empdir"

	Case "DEPARTMENT"

		TheMessage = "For Department " &

Request.QueryString("Department")

		sqltext = "SELECT * FROM empdir WHERE department = '" &

Request.QueryString("Department") & "'"

	Case Else

		TheMessage = "Search Results"

		'**********************************************

		'* Two problems here.                         *

		'* 1) You need to specify a field to search.  *

		'* 2) Where is "varfind" assigned a value?    *

		'* For sake of argument, I'll assume that the *

		'* field you are searching is named "empname" *

		'**********************************************

		sqltext = "SELECT * FROM empdir WHERE empname LIKE '%" &

varfind & "%'"

		'************************************************

		'* If varfind has not been assigned a value,    *

		'* then sqltext now contains the statement:     *

		'* SELECT * FROM empdir WHERE empname LIKE '%%' *

		'* This will return all rows.                   *

		'************************************************

End Select



Set rsEmps = rscn.Execute(sqltext)

%>







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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 





-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 12:40 PM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





I am just learning this ASP stuff, so if I ask a dumb question bear with me.

but as you can see I am try to clean this code up and use some of the

appropriate techniques.  How would I, using the proper technical, execute

the SQL statement.



-----Original Message-----

From: Kyle Burns [mailto:kburns@c...]

Sent: Friday, November 09, 2001 10:45 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Your "Else" clause does not execute the SQL statement and create rsEmps.



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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 11:34 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')

Message #10 by "Drew, Ron" <RDrew@B...> on Fri, 9 Nov 2001 13:38:30 -0500
I think some of the script is missing...but I see your last else clause does

not execute the sqltext



-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...] 

Sent: Friday, November 09, 2001 11:34 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8'

> Object required: '' 

> 

> /phone/results.asp, line 76

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')

Message #11 by "PUFFER, TIM" <TIM.PUFFER@T...> on Fri, 9 Nov 2001 13:37:23 -0600
I really appreciate the help.  My answers to your questions are in the <<<<

>>> spaces below.



-----Original Message-----

From: Kyle Burns [mailto:kburns@c...]

Sent: Friday, November 09, 2001 12:22 PM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





The way that I would handle this particular situation would be to, instead

of opening the recordset in your If...Else structure (this is better handled

through a Select Case contruct), assign a value to the variable sqltext.

After exiting the construct, open the recordset with sqlstr as the Source

argument.  Here's how I'd handle this code (please take note of my comments

inline for other things that need addressed):



<%

'*************************************************

'* Consider using a different variable name for  *

'* your connection because most programmers use  *

'* the prefix "rs" to indicate that the variable *

'* is intended to hold a recordset object.       *

'* I would suggest a name like cnEmps for this   *

'* variable.  Also, the standard prefix for a    *<<<<<Thanks>>>>

'* variable that will hold a connection object   *

'* is "cn".  Consider naming the variable that   *

'* holds your connection string something like   *

'* sConnString.					       *

'*************************************************

set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""



'*************************************************

'* Using UCase in the comparison gives you a bit *

'* of a safety net.                              *

'*************************************************

Select Case UCase(Request.QueryString("view"))

	Case "ALL"

		TheMessage = "All Employees"

		sqltext = "SELECT * FROM empdir"

	Case "DEPARTMENT"

		TheMessage = "For Department " &

Request.QueryString("Department")

		sqltext = "SELECT * FROM empdir WHERE department = '" &

Request.QueryString("Department") & "'"

	Case Else

		TheMessage = "Search Results"

		'**********************************************

		'* Two problems here.                         *<<<<< What I

would like to 

		'* 1) You need to specify a field to search.  *		here

is as the user

		'* 2) Where is "varfind" assigned a value?    *

which field to 

		'* For sake of argument, I'll assume that the *

search.  this is the 

		'* field you are searching is named "empname" *

varIn you see at the 

		'**********************************************		top

of the page.  It 

		sqltext = "SELECT * FROM empdir WHERE empname LIKE '%" &

did not work 

varfind & "%'"

so I pulled it out 

		'************************************************	to

try to get this 

		'* If varfind has not been assigned a value,    *	much

to work. >>>>>

		'* then sqltext now contains the statement:     *	also

the var are 

		'* SELECT * FROM empdir WHERE empname LIKE '%%' *

filled from a search 

		'* This will return all rows.                   *

page. >>>>>>

		'************************************************

End Select



Set rsEmps = rscn.Execute(sqltext)

%>







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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 





-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 12:40 PM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





I am just learning this ASP stuff, so if I ask a dumb question bear with me.

but as you can see I am try to clean this code up and use some of the

appropriate techniques.  How would I, using the proper technical, execute

the SQL statement.



-----Original Message-----

From: Kyle Burns [mailto:kburns@c...]

Sent: Friday, November 09, 2001 10:45 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Your "Else" clause does not execute the SQL statement and create rsEmps.



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

Kyle M. Burns, MCSD, MCT

ECommerce Technology Manager

Centra Credit Union

kburns@c...



 



-----Original Message-----

From: PUFFER, TIM [mailto:TIM.PUFFER@T...]

Sent: Friday, November 09, 2001 11:34 AM

To: ASP Databases

Subject: [asp_databases] RE: VBS runtime error





Here is the script part of my asp

<%

	'varFind = request.form("find")

	'varin = request.form("in")

	'response.write varfind

	'response.write varin



set rscn = server.createobject ("adodb.connection")

cn = "driver={microsoft access driver (*.mdb)};" & _

		"dbq=" & server.MapPath("thermo.mdb")

rscn.open  cn,"", ""

if Request.QueryString("view") = "All" then

	set rsEmps = rscn.Execute("select * from empdir")

	TheMessage = "All Employees"

elseif Request.QueryString("view") = "Department" then

	set rsEmps = rscn.Execute("select * from empdir where Department 

'" _

	& Request.QueryString("Department") & "'")

	TheMessage = "For Department " & Request.QueryString("Department")

else

	sqltext = "select * from empdir"

	sqltext = sqltext & "WHERE LIKE '" & varfind & "';"

		TheMessage = "Search Results"

end if	

%>

Again thanks for the help.







> -----Original Message-----

> From: tim.puffer@t... [mailto:tim.puffer@t...]

> Sent: 08 November 2001 21:03

> To: ASP Databases

> Subject: [asp_databases] VBS runtime error

> 

> 

> here is my problem i get a runtime error from this code and i 

> am not sure 

> what it is looking for.

> 

> here is the error

> 

> Microsoft VBScript runtime error '800a01a8' 

> Object required: '' 

> 

> /phone/results.asp, line 76 

> 

> 

> and this is line 76

> <%

> 	While not rsemp.EOF

> 

> %>

> 

> thanks in advance

> 

>  



> steve.carter@t...


> $subst('Email.Unsub')

> 



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')



 



tim.puffer@t...


$subst('Email.Unsub')



 




$subst('Email.Unsub')



 



tim.puffer@t...


$subst('Email.Unsub')


  Return to Index