﻿<?xml version="1.0" encoding="utf-8"?><rss version="2.0"><channel><title>syntax error</title><link>http://www.visualbasicscript.com/</link><description /><copyright>(c) VBScript Forum</copyright><ttl>30</ttl><item><title>Re: syntax error (token)</title><description> What exactly is the error message and at what line ? &lt;br&gt;  &lt;br&gt;  </description><link>http://www.visualbasicscript.com/fb.ashx?m=18510</link><pubDate>Mon, 28 Mar 2005 18:43:10 GMT</pubDate></item><item><title>Re: syntax error (didorno)</title><description> Kaan Acar, The If statements need a correction, I think the &lt;br&gt; syntax is &lt;br&gt; &lt;pre class="prettyprint"&gt;
If condition Then
Thing1
Else
Thing2
End If
&lt;/pre&gt; &lt;br&gt; so 'Then' must be on the same line as 'If'. &lt;br&gt; If you try the vbscript part on its own, as a .vbs file, then you get &lt;br&gt; the error message. </description><link>http://www.visualbasicscript.com/fb.ashx?m=18509</link><pubDate>Sat, 26 Mar 2005 11:53:06 GMT</pubDate></item><item><title>syntax error (Kaan Acar)</title><description> &amp;lt;SCRIPT language='VBScript'&amp;gt; &lt;br&gt; Dim obj &lt;br&gt; set obj = CreateObject(\"UEKAE.Download\") &lt;br&gt; Call obj.DownloadFile() &lt;br&gt; set obj = Nothing &lt;br&gt; DownloadFile = 0 &lt;br&gt; If Err.Number = 424 &lt;br&gt; Then  MsgBox \"Sistemde ba?vurunuz.\", 16, \"Uyary\" &lt;br&gt; else &lt;br&gt; window.location=\"c:/NewFolder/xxx.doc\" &lt;br&gt; end If &lt;br&gt; &amp;lt;/SCRIPT&amp;gt; &lt;br&gt;  &lt;br&gt;  &lt;br&gt; i got this script this script is working but i want to add some code this script. but when i execute this script i got a syntax error. Please help me to find out what is going wrong &lt;br&gt;  &lt;br&gt;  &lt;br&gt; &amp;lt;SCRIPT language='VBScript'&amp;gt; &lt;br&gt; Dim obj &lt;br&gt; set obj = CreateObject(\"UEKAE.Download\") &lt;br&gt; Call obj.DownloadFile() &lt;br&gt; set obj = Nothing &lt;br&gt; DownloadFile = 0 &lt;br&gt; If Err.Number = 424 &lt;br&gt; Then  MsgBox \"Error\", 16, \"Uyary\" &lt;br&gt; else &lt;br&gt; Dim obj1 &lt;br&gt; set obj1 = CreateObject(\"UEKAE.Crypto\") &lt;br&gt; Call obj1.DecryptFileWithoutMenu() &lt;br&gt; set obj1 = Nothing &lt;br&gt; DecryptFile = 0 &lt;br&gt; If Err.Number = 424 &lt;br&gt; Then MsgBox \"Error.\", 16, \"Uyary\" &lt;br&gt; else &lt;br&gt; window.location=\"c:/NewFolder/xxx.doc\" &lt;br&gt; end If &lt;br&gt; end If &lt;br&gt; &amp;lt;/SCRIPT&amp;gt; &lt;br&gt;  </description><link>http://www.visualbasicscript.com/fb.ashx?m=2361</link><pubDate>Wed, 16 Mar 2005 06:37:51 GMT</pubDate></item></channel></rss>
