Microsoft JScript compilation error '800a03ec'

[blacksmith77]

Recieved following error message:

Microsoft JScript compilation error '800a03ec'

Expected ';'

/Machine_Service_Site/Pages/Quote_request3.ASP, line 384

Dim Form: Set Form = CreateObject("ScriptUtils.ASPForm")
----^


Here is part of the code that it is referring to the message.


<%
Dim Form: Set Form = CreateObject("ScriptUtils.ASPForm");
If Form.State = 0 Then
Form.Files.Save "C:\Uploads"
Description = Form("Description") 'Do something with <input
name=description>
Else
'Handle other form states, errors.
End If
%>
<input name="submit" type="submit" value="Upload the
files >>">
<br>
<br>
File 1 :
<input type="file" name="File1">
<br>
<br>
File 2 :
<input type="file" name="File2">
<br>
<br>
File 3 :
<input type="file" name="File3">
<br>
<br>
Description :
<input name="Description">
<br>
<br>
<br />
</Div></td>
<td width="15%">&nbsp;</td>
<td width="13%">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr class="Custom_Service5">
<td colspan="6"><div align="center"><br>
<input name="Submit" type="submit"
onClick="MM_validateForm('txtcompany','','R','txtContact','','R','txtAdress1','','R','txtCity','','R','txtstate','','R','txtZip','','R','txtPhone','','R','txtFax','','R','txtEmail,'','R','txtpartname1','','R','txtpartnumber1','','R','txtrev1','','R','txtquantity1','','R','txtdateneed1','','R','txtpartname2','','R','txtpartnumber2','','R','txtrev2','','R','txtquantity2','','R','txtdateneed2','','R','txtpartname3','','R','txtpartnumber3','','R','txtrev3','','R','txtquantity3','','R','txtPartDescrip','','R','txtspecapp','','R','file','','R','file2','','R','file3','','R','file4','','R','file5','','R');return
document.MM_returnValue" value="Submit Request">
&nbsp;&nbsp;
<input name="reset" type="reset" id="reset"
value="Reset">
</div></td>
</tr>
</table>
</form></td>