11 Jan: Porting my JScript code to VBScript

Hope you can help with this question of mine, I've downloaded your site code, and I'm looking to use a portion of it in a site I'm building. However, when I use your code I get:

Microsoft VBScript compilation error '800a0401'

Expected end of statement
/../header.asp, line 4
Application.Lock ( );

^ pointing to ;

What do I do to get this to function correctly James?

I don't get asked this much, but perhaps that's because most people just give up, think "crappy code" and move on!

Since I converted some of my code to VBScript recently I thought I'd share my findings - you'll see that it isn't that difficult to port my code to VBScript. (To see why you may want to work in one language or the other, see Why use JavaScript instead of VBScript?)

Here's what I did:

• surround strings with " rather than '
• change // before a comment to '
• change if (..) {..} else {..} to If .. Then .. Else .. End If - note the ( ) { } all disappear. 'one-line' If statements still need the End If
• change for (i=0; i<3; i++) {..} to For i=0 To 2 .. Next
• change while (!oRS.EOF) {..} to While 0 = oRS.EOF .. Wend
• change return a; to nameoffunction = a, followed by Exit Function
• change } at end of function with End Function
• remove all remaining { } ; characters

This isn't a complete list, but it'll get you a long way. I recommend making a quick pass through the code first making these changes, then running the page. The browser will show you what still doesn't make sense. I'll update this page as I remember other necessary changes.