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

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Chris Barber (chris_at_blue-canoe.co.uk.NOSPAM)
Date: 10/17/04 

Date: Sun, 17 Oct 2004 16:11:35 +0100

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" <nanquan@walla.co.il> wrote in message
news:a94677ba.0410170534.38c0b87d@posting.google.com...
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" <chris@blue-canoe.co.uk.NOSPAM> wrote in message
news:<e4qWuU9sEHA.2316@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" <nanquan@walla.co.il> wrote in message
> news:a94677ba.0410160903.6025d3da@posting.google.com...
> 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

Relevant Pages

  • Re: Weird VBScript Syntax error in an ASP page -> 800a03ea
    ... I developed this function in a seperate ASP page and it worked with no ... weird error suggesting that there's something wrong with my syntax. ... If letterT = "" Then ... The 2nd function is a part of the first function, ...
    (microsoft.public.inetserver.asp.general)
  • Weird VBScript Syntax error in an ASP page -> 800a03ea
    ... I developed this function in a seperate ASP page and it worked with no ... weird error suggesting that there's something wrong with my syntax. ... If letterT = "" Then ... The 2nd function is a part of the first function, ...
    (microsoft.public.inetserver.asp.general)
  • Re: Weird VBScript Syntax error in an ASP page -> 800a03ea
    ... Thanks for the suggestion Chris but that wasn't the problem. ... As I already mentioned I tested the same function on a seperate ASP ... > weird error suggesting that there's something wrong with my syntax. ...
    (microsoft.public.inetserver.asp.general)