467,075 Members | 1,093 Online
Bytes | Developer Community
Ask Question

Home New Posts Topics Members FAQ

Post your question to a community of 467,075 developers. It's quick & easy.

execute + ArraySearch causes "Expected end of statement" error - Why?

Here is the function ArraySearch:

'--------------------------------------------------------------------------------------
'ArraySearch will return an integer value indicating the first
occurrence of a string
'within an array. for now it only does a case-sensitive
first-occurrence search.
'
'Created by Phil Powell on 6/28/2002
'--------------------------------------------------------------------------------------
Function ArraySearch(myArray, myString)
Dim i
ArraySearch = -1
for i = LBound(myArray) to UBound(myArray)
if strcomp(myArray(i), myString) = 0 and ArraySearch < 0 then
ArraySearch = i
next
End Function
Ok now here is the offending code:

formVarsArray = array("gbID", "firstname", "lastname", "email", "url",
"fave_bands", "gb_entry")

....

if ArraySearch(formVarsArray, key) >= 0 then
execute(key & " = """ & Request.Form(key) & """" & vbcrlf)
if key = "gbID" then gbID = CInt(gbID)
end if

When running this code I get the following error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/soa/val_cma/gb_listing_edit.asp, line 46

Here is line 46:
execute(key & " = """ & Request.Form(key) & """" & vbcrlf)

I am trying to dynamically set all variables whose names are keys in
the Request.Form collection object to their perspective values, for
example

Request.Form("firstname") = "Phil"
therefore firstname will = "Phil" also

So, basically, what's up? Why is this breaking?

Phil
Jul 19 '05 #1
  • viewed: 4752
Share:
1 Reply
I hate the execute statement. It should be removed. Okay, not really...

Maybe you mean:

execute("response.write key & "" = "" & Request.Form(key) & vbcrlf")

Ray at home

"Phil Powell" <so*****@erols.com> wrote in message
news:1c**************************@posting.google.c om...
Here is the function ArraySearch:

'
When running this code I get the following error:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/soa/val_cma/gb_listing_edit.asp, line 46

Here is line 46:
execute(key & " = """ & Request.Form(key) & """" & vbcrlf)

Jul 19 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

3 posts views Thread by Jon | last post: by
6 posts views Thread by BaWork | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.