473,230 Members | 1,410 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,230 software developers and data experts.

Weird VBScript Syntax error in an ASP page -> '800a03ea'

I'm hoping someone can help me solve this error since I am at a total
loss here. Usually I don't bother posting on any forums or groups on
the internet and prefer to solve stuff myself but this is a total
mistery.

I have a function inside an ASP page as a result of which I get the
following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin/dev/Order/process.asp, line 160

Function heenEncode(string)
^

I developed this function in a seperate ASP page and it worked with no
problems what so ever. However when I finished developing it and
proceeded to implement it in my another ASP page I suddenly got this
weird error suggesting that there's something wrong with my syntax.

Here is the function:

<%
Function heenEncode(string)
x = Len(string)
y = Len(string)
a = 1

Set d = Server.CreateObject("Scripting.Dictionary")

Do While x>0
T = heen(Mid(string,a,1))
d.Add x, T
a = a + 1
x = x - 1
Loop

Do While y>0
TT = TT + d.Item(y)
y = y - 1
Loop

Set d = Nothing
heenEncode = TT
End Function
Function heen(letter)
dim ArHeb,ArEng

ArHeb =Array("","","","","","","","","","","" ,"","","","","","","","","","","",""," ","","","")
ArEng =Array("a","b","c","d","e","f","g","h","i","j","k" ,"l","m","n","o","p","q","r","s","t","u","v","w"," x","y","z","@")

x = 26

Do While (x > -1)
If letter = ArHeb(x) Then
letterT = ArEng(x)
End If

x = x - 1
Loop

If letterT = "" Then
heen = letter
Else
heen = letterT
End If
End Function
%>

The 2nd function is a part of the first function, but it's not defined
within the first function so please don't start suggesting that as a
possible cause for the problem, plus it worked fine on a seperate ASP
page just as it is.

Any help would be greatly appreciated, since I read through some of
the posts here regarding this error, but I couldn't find any solution
that will work for my specific situation.

Thanks!!
Jul 19 '05 #1
5 14496
I put it into VB 6.0 and it complained about the use of 'string' as a variable name - it's a
reserved word of course as the definition of a datatype.

Change it.

Chris.

"NanQuan" <na*****@walla.co.il> wrote in message
news:a9**************************@posting.google.c om...
I'm hoping someone can help me solve this error since I am at a total
loss here. Usually I don't bother posting on any forums or groups on
the internet and prefer to solve stuff myself but this is a total
mistery.

I have a function inside an ASP page as a result of which I get the
following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin/dev/Order/process.asp, line 160

Function heenEncode(string)
^

I developed this function in a seperate ASP page and it worked with no
problems what so ever. However when I finished developing it and
proceeded to implement it in my another ASP page I suddenly got this
weird error suggesting that there's something wrong with my syntax.

Here is the function:

<%
Function heenEncode(string)
x = Len(string)
y = Len(string)
a = 1

Set d = Server.CreateObject("Scripting.Dictionary")

Do While x>0
T = heen(Mid(string,a,1))
d.Add x, T
a = a + 1
x = x - 1
Loop

Do While y>0
TT = TT + d.Item(y)
y = y - 1
Loop

Set d = Nothing
heenEncode = TT
End Function
Function heen(letter)
dim ArHeb,ArEng

ArHeb
=Array("","","","","","","","","","","" ,"","","","","","","","","","",""," ","
","","","")
ArEng
=Array("a","b","c","d","e","f","g","h","i","j","k" ,"l","m","n","o","p","q","r","s","t","u","v","w ","
x","y","z","@")

x = 26

Do While (x > -1)
If letter = ArHeb(x) Then
letterT = ArEng(x)
End If

x = x - 1
Loop

If letterT = "" Then
heen = letter
Else
heen = letterT
End If
End Function
%>

The 2nd function is a part of the first function, but it's not defined
within the first function so please don't start suggesting that as a
possible cause for the problem, plus it worked fine on a seperate ASP
page just as it is.

Any help would be greatly appreciated, since I read through some of
the posts here regarding this error, but I couldn't find any solution
that will work for my specific situation.

Thanks!!
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004
Jul 19 '05 #2
Thanks for the suggestion Chris but that wasn't the problem. I changed
it to 'str', and then to 'blah' just to make sure. But I got the exact
same error message.

As I already mentioned I tested the same function on a seperate ASP
page and it worked perfectly just as it is. This problem only appeared
when I tried to implement it in another ASP page. So there's nothing
wrong with it's syntax.
"Chris Barber" <ch***@blue-canoe.co.uk.NOSPAM> wrote in message news:<e4**************@TK2MSFTNGP12.phx.gbl>...
I put it into VB 6.0 and it complained about the use of 'string' as a variable name - it's a
reserved word of course as the definition of a datatype.

Change it.

Chris.

"NanQuan" <na*****@walla.co.il> wrote in message
news:a9**************************@posting.google.c om...
I'm hoping someone can help me solve this error since I am at a total
loss here. Usually I don't bother posting on any forums or groups on
the internet and prefer to solve stuff myself but this is a total
mistery.

I have a function inside an ASP page as a result of which I get the
following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin/dev/Order/process.asp, line 160

Function heenEncode(string)
^

I developed this function in a seperate ASP page and it worked with no
problems what so ever. However when I finished developing it and
proceeded to implement it in my another ASP page I suddenly got this
weird error suggesting that there's something wrong with my syntax.

Here is the function:

<%
Function heenEncode(string)
x = Len(string)
y = Len(string)
a = 1

Set d = Server.CreateObject("Scripting.Dictionary")

Do While x>0
T = heen(Mid(string,a,1))
d.Add x, T
a = a + 1
x = x - 1
Loop

Do While y>0
TT = TT + d.Item(y)
y = y - 1
Loop

Set d = Nothing
heenEncode = TT
End Function
Function heen(letter)
dim ArHeb,ArEng

ArHeb
=Array("","","","","","","","","","","" ,"","","","","","","","","","",""," ","
","","","")
ArEng
=Array("a","b","c","d","e","f","g","h","i","j","k" ,"l","m","n","o","p","q","r","s","t","u","v","w ","
x","y","z","@")

x = 26

Do While (x > -1)
If letter = ArHeb(x) Then
letterT = ArEng(x)
End If

x = x - 1
Loop

If letterT = "" Then
heen = letter
Else
heen = letterT
End If
End Function
%>

The 2nd function is a part of the first function, but it's not defined
within the first function so please don't start suggesting that as a
possible cause for the problem, plus it worked fine on a seperate ASP
page just as it is.

Any help would be greatly appreciated, since I read through some of
the posts here regarding this error, but I couldn't find any solution
that will work for my specific situation.

Thanks!!
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004

Jul 19 '05 #3
NanQuan wrote:
Thanks for the suggestion Chris but that wasn't the problem. I changed
it to 'str', and then to 'blah' just to make sure. But I got the exact
same error message.

As I already mentioned I tested the same function on a seperate ASP
page and it worked perfectly just as it is. This problem only appeared
when I tried to implement it in another ASP page. So there's nothing
wrong with it's syntax.

So doesn't it make sense that there is something wrong with the way you
"implemented" it? Provide some details so we can attempt to help you.

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"
Jul 19 '05 #4
OK, the line that is showing as the error is not the actual source of the problem. The source of
the problem lies above this line. The reason that the compiler is complaining is that the new
Function declaration cannot be started because of a prior issue.

Try this:

<%

Response.Write heenEncode("Test String")
'Line below is for PrimalScript testing.
'WScript.Echo Response.Write heenEncode("Test String")

Function heenEncode(pstrString)
Dim x, y, a, d, T, TT

x = Len(pstrString)
y = Len(pstrString)
a = 1

'This line is for PrimalScript testing.
'Set d = CreateObject("Scripting.Dictionary")
Set d = Server.CreateObject("Scripting.Dictionary")

Do While x>0
T = heen(Mid(pstrString,a,1))
d.Add x, T
a = a + 1
x = x - 1
Loop

Do While y>0
TT = TT + d.Item(y)
y = y - 1
Loop

Set d = Nothing

heenEncode = TT

End Function
Function heen(pstrLetter)
Dim ArHeb, ArEng
Dim x, letterT

ArHeb
=Array("","","","","","","","","","","" ,"","","","","","","","","","",""," ","
","","","")
ArEng
=Array("a","b","c","d","e","f","g","h","i","j","k" ,"l","m","n","o","p","q","r","s","t","u","v","w ","
x","y","z","@")

x = 26

Do While (x > -1)
If pstrLetter = ArHeb(x) Then
letterT = ArEng(x)
End If
x = x - 1
Loop

If letterT = "" Then
heen = pstrLetter
Else
heen = letterT
End If

End Function

%>

This worked in both PrimalScript (Interdev debugging) and as an .asp page in my local IIS (Windows
XP Pro).

Maybe you have a different version of the VBScript engine on that box?

Chris.
"NanQuan" <na*****@walla.co.il> wrote in message
news:a9**************************@posting.google.c om...
Thanks for the suggestion Chris but that wasn't the problem. I changed
it to 'str', and then to 'blah' just to make sure. But I got the exact
same error message.

As I already mentioned I tested the same function on a seperate ASP
page and it worked perfectly just as it is. This problem only appeared
when I tried to implement it in another ASP page. So there's nothing
wrong with it's syntax.
"Chris Barber" <ch***@blue-canoe.co.uk.NOSPAM> wrote in message
news:<e4**************@TK2MSFTNGP12.phx.gbl>...
I put it into VB 6.0 and it complained about the use of 'string' as a variable name - it's a
reserved word of course as the definition of a datatype.

Change it.

Chris.

"NanQuan" <na*****@walla.co.il> wrote in message
news:a9**************************@posting.google.c om...
I'm hoping someone can help me solve this error since I am at a total
loss here. Usually I don't bother posting on any forums or groups on
the internet and prefer to solve stuff myself but this is a total
mistery.

I have a function inside an ASP page as a result of which I get the
following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin/dev/Order/process.asp, line 160

Function heenEncode(string)
^

I developed this function in a seperate ASP page and it worked with no
problems what so ever. However when I finished developing it and
proceeded to implement it in my another ASP page I suddenly got this
weird error suggesting that there's something wrong with my syntax.

Here is the function:

<%
Function heenEncode(string)
x = Len(string)
y = Len(string)
a = 1

Set d = Server.CreateObject("Scripting.Dictionary")

Do While x>0
T = heen(Mid(string,a,1))
d.Add x, T
a = a + 1
x = x - 1
Loop

Do While y>0
TT = TT + d.Item(y)
y = y - 1
Loop

Set d = Nothing
heenEncode = TT
End Function
Function heen(letter)
dim ArHeb,ArEng

ArHeb
=Array("","","","","","","","","","","" ,"","","","","","","","","","",""," "," ","","","")
ArEng
=Array("a","b","c","d","e","f","g","h","i","j","k" ,"l","m","n","o","p","q","r","s","t","u","v","w "," x","y","z","@")

x = 26

Do While (x > -1)
If letter = ArHeb(x) Then
letterT = ArEng(x)
End If

x = x - 1
Loop

If letterT = "" Then
heen = letter
Else
heen = letterT
End If
End Function
%>

The 2nd function is a part of the first function, but it's not defined
within the first function so please don't start suggesting that as a
possible cause for the problem, plus it worked fine on a seperate ASP
page just as it is.

Any help would be greatly appreciated, since I read through some of
the posts here regarding this error, but I couldn't find any solution
that will work for my specific situation.

Thanks!!
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004
Jul 19 '05 #5
Thanks to everyone, but I found the Cause for this problem. Apparently
I had a subroutine above the line that the debugger pointed at in
which there was an open "Sub xxx" without an "End Sub".

It sounds really stupid, but the reason I missed it is because the sub
which was causing the problem was supposed to be a comment --> '

It was at the top of about 10 lines in a row that were comments, so I
didn't notice that I had forgotten to add a --> ' before the line.

Plus the debugger really threw me off course saying the problem was
specificaly with another line, when in fact it was at a totally
different location. So I didn't even thing to look elswhere at first.

Again, I really appreciate your time and effort in trying to help me
solve this problem.

Thanks Everyone!!!
Jul 21 '05 #6

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

29
by: Christopher Brandsdal | last post by:
If I have a .ASP page that runs JScript code - is it possible to include an ..ASP page that runs VBscript???
1
by: amit | last post by:
I am trying to compile the sample program genwin.sqc, using nsqlprep which is used to precompile embedded sql in C. I am getting weird errors and that is because windows.h is included in the...
3
by: s_m_b | last post by:
Anyone ever seen this before? A page that generates a calendar view, works just fine without 'option explicit' . Add this in, but have missed some dim statements out in error, so page should...
3
by: Joe Caverly | last post by:
Hi, I'm using Visual C++ 32-bit Professional Edition 5.0 Using Microsoft Knowledge Base Article 181473 as a basis, I'm trying to transform this VB Code; Dim sc As Object Dim code As String...
9
by: Pete | last post by:
Does anyone have a simple html vbscript or other type of snippet they can share that appends a record to a access database via ADO or DAO? I would like to allow users that don't have Microsoft...
6
by: gh0st54 | last post by:
Hi I have a weird javascript error that only happens on my live server when i open the page http://www.imrated.co.uk/reg.aspx i get the error 'Problems with this page ... blablabla Line : 3...
2
by: WisTex | last post by:
I've come across a very weird problem. Virtual includes work on all my ASP pages on the entire website, including those in subdirectories, yet they won't work on a particular page I created, even...
6
by: John Kotuby | last post by:
Hi all, I am simply trying to include the Option Explicit declaration at the top of an ASP page and am getting an error: Error Type: Microsoft VBScript compilation (0x800A0400) Expected...
2
by: Beemer Biker | last post by:
I put together a few lines of vbscript so I could dump the contents of a string to my C drive. It worked fine in a small test.htm where I put the vbscript at the top of the file. It failed to...
2
by: tunk | last post by:
I dont know where to start my question so let me tell you my story :) The ASP that cause me trouble is running on IIS that set ASP default language to JScript instead of VBScript. This ASP page...
0
by: VivesProcSPL | last post by:
Obviously, one of the original purposes of SQL is to make data query processing easy. The language uses many English-like terms and syntax in an effort to make it easy to learn, particularly for...
3
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 3 Jan 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). For other local times, please check World Time Buddy In...
0
by: jianzs | last post by:
Introduction Cloud-native applications are conventionally identified as those designed and nurtured on cloud infrastructure. Such applications, rooted in cloud technologies, skillfully benefit from...
0
by: abbasky | last post by:
### Vandf component communication method one: data sharing ​ Vandf components can achieve data exchange through data sharing, state sharing, events, and other methods. Vandf's data exchange method...
2
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 7 Feb 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:30 (7.30PM). In this month's session, the creator of the excellent VBE...
0
by: stefan129 | last post by:
Hey forum members, I'm exploring options for SSL certificates for multiple domains. Has anyone had experience with multi-domain SSL certificates? Any recommendations on reliable providers or specific...
1
by: davi5007 | last post by:
Hi, Basically, I am trying to automate a field named TraceabilityNo into a web page from an access form. I've got the serial held in the variable strSearchString. How can I get this into the...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.