This is a forum where members new and old can come to ask questions and get info and opinions. It is not a place to advertise your business or have other forms of advertising, whether it be in your posts or signature.

All links in the forum will not be indexed by Search Engines and any unapproved forms of advertising or spam will be dealt with accordingly, deleted, and that member's account banned.

Forums

Overview » Bugs » Microsoft VBScript compilation error '800a03ee'
Reply

Microsoft VBScript compilation error '800a03ee'

Nicholas Maloney
Member



Since: 17 Feb 2006
Posts: 13
Posted 21 Nov 2009 16:08:05

I am having huge errors using the latest version of form validator in existing forms. CS4, SQL server, ASP VB script.

Here is the form before I apply Form validator

<td nowrap align="right">Organisation:</td>
<td><input name="organisation" type="text" value="<%=(Recordset1.Fields.Item("organisation".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input type="text" name="email" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Tel:</td>
<td><input type="text" name="tel" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address1:</td>
<td><input type="text" name="address1" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address2:</td>
<td><input type="text" name="address2" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">City:</td>
<td><input type="text" name="city" value="<%=(Recordset2.Fields.Item("city".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">County:</td>
<td><input type="text" name="county" value="<%=(Recordset1.Fields.Item("county".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Postcode:</td>
<td><input type="text" name="postcode" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">USERNAME MUST BE UNIQUE </div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Username:</td>
<td><input type="text" name="username" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">
<p>PASSWORD MUST BE UNIQUE (between 8 - 15 letters)<br />
</p>
</div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Password:</td>
<td><input name="password" type="text" value="" size="32"> </td>
</tr>


Now after form validator ...


form action="<%=MM_editAction%>" method="POST" name="form3" id="form3">
<table align="center">
<tr valign="baseline">
<td width="69" align="right" nowrap>First name:</td>
<td width="357"><input name="fname" type="text" value="<%= dmxSetValue("", FormRequest("fname") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Last name:</td>
<td><input name="llname" type="text" value="<%= dmxSetValue("", FormRequest("llname") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Role:</td>
<td><label>
<select name="role" id="role">
<option <%= dmxSetSelectOption("xxx",FormRequest("role",false) %> value="xxx">Please choose a role</option>
<%
While (NOT Recordset7.EOF)
%>
<option <%= dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value)%>",FormRequest("role",false) %> value="<%=(Recordset7.Fields.Item("Role".Value)%>"><%=(Recordset7.Fields.Item("Role".Value)%></option>
<%
Recordset7.MoveNext()
Wend
If (Recordset7.CursorType > 0) Then
Recordset7.MoveFirst
Else
Recordset7.Requery
End If
%>
</select>
</label></td>
</tr>

<tr valign="baseline">
<td nowrap align="right">Organisation:</td>
<td><input name="organisation" type="text" value="<%= dmxSetValue((Recordset1.Fields.Item("organisation".Value), FormRequest("organisation") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input name="email" type="text" value="<%= dmxSetValue("", FormRequest("email") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Tel:</td>
<td><input name="tel" type="text" value="<%= dmxSetValue("", FormRequest("tel") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address1:</td>
<td><input type="text" name="address1" value="<%= dmxSetValue("", FormRequest("address1") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address2:</td>
<td><input type="text" name="address2" value="<%= dmxSetValue("", FormRequest("address2") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">City:</td>
<td><input type="text" name="city" value="<%= dmxSetValue((Recordset2.Fields.Item("city".Value), FormRequest("city") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">County:</td>
<td><input type="text" name="county" value="<%= dmxSetValue((Recordset1.Fields.Item("county".Value), FormRequest("county") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Postcode:</td>
<td><input type="text" name="postcode" value="<%= dmxSetValue("", FormRequest("postcode") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">USERNAME MUST BE UNIQUE </div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Username:</td>
<td><input type="text" name="username" value="<%= dmxSetValue("", FormRequest("username") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">
<p>PASSWORD MUST BE UNIQUE (between 8 - 15 letters)<br />
</p>
</div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Password:</td>
<td><input name="password" type="text" value="<%= dmxSetValue("", FormRequest("password") %>" size="32" />
<% dmxval1.GenerateError "form3","password","ajaxexistscond","../validatorAjax/dmxValidatorAjax15.asp,," %></td>
</tr>


<tr valign="baseline">
<td nowrap align="right">&nbsp;</td>
<td><input type="submit" onclick="YY_checkform('form1','fname','#q','0','Field \'fname\' is not valid.','llname','#q','0','Field \'llname\' is not valid.','organisation','#q','0','Field \'organisation\' is not valid.','email','#S','2','Field \'email\' is not valid.','tel','#q','0','Field \'tel\' is not valid.','username','#q','0','Field \'username\' is not valid.','password','#q','0','Field \'password\' is not valid.','role','#q','1','Field \'role\' is not valid.');return document.MM_returnValue" value="Add Student">
<input name="cohort" type="hidden" id="cohort" value="<%=(Recordset4.Fields.Item("cohortname".Value)%>" />
<input name="lea" type="hidden" id="lea" value="<%=(Recordset2.Fields.Item("authority".Value)%>" />
<input name="Country" type="hidden" id="Country" value="UK" /></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form3" />
</form>

Producing the eror FIRST

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/Tutoradmin/multiplereg.asp, line 682

Response.Write(dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value))
---------------------------------------------------------------^

Line 682 is:

<option <%= dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value)%>",FormRequest("role",false) %> value="<%=(Recordset7.Fields.Item("Role".Value)%>"><%=(Recordset7.Fields.Item("Role".Value)%></option>

Validator has done this to all fields in every form I use. Can you shed any light on this and then I'll ask about why the CSS styling does not work!

I am having huge errors using the latest version of form validator in existing forms. CS4, SQL server, ASP VB script.

Here is the form before I apply Form validator

<td nowrap align="right">Organisation:</td>
<td><input name="organisation" type="text" value="<%=(Recordset1.Fields.Item("organisation".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input type="text" name="email" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Tel:</td>
<td><input type="text" name="tel" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address1:</td>
<td><input type="text" name="address1" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address2:</td>
<td><input type="text" name="address2" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">City:</td>
<td><input type="text" name="city" value="<%=(Recordset2.Fields.Item("city".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">County:</td>
<td><input type="text" name="county" value="<%=(Recordset1.Fields.Item("county".Value)%>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Postcode:</td>
<td><input type="text" name="postcode" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">USERNAME MUST BE UNIQUE </div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Username:</td>
<td><input type="text" name="username" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">
<p>PASSWORD MUST BE UNIQUE (between 8 - 15 letters)<br />
</p>
</div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Password:</td>
<td><input name="password" type="text" value="" size="32"> </td>
</tr>


Now after form validator ...


form action="<%=MM_editAction%>" method="POST" name="form3" id="form3">
<table align="center">
<tr valign="baseline">
<td width="69" align="right" nowrap>First name:</td>
<td width="357"><input name="fname" type="text" value="<%= dmxSetValue("", FormRequest("fname") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Last name:</td>
<td><input name="llname" type="text" value="<%= dmxSetValue("", FormRequest("llname") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Role:</td>
<td><label>
<select name="role" id="role">
<option <%= dmxSetSelectOption("xxx",FormRequest("role",false) %> value="xxx">Please choose a role</option>
<%
While (NOT Recordset7.EOF)
%>
<option <%= dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value)%>",FormRequest("role",false) %> value="<%=(Recordset7.Fields.Item("Role".Value)%>"><%=(Recordset7.Fields.Item("Role".Value)%></option>
<%
Recordset7.MoveNext()
Wend
If (Recordset7.CursorType > 0) Then
Recordset7.MoveFirst
Else
Recordset7.Requery
End If
%>
</select>
</label></td>
</tr>

<tr valign="baseline">
<td nowrap align="right">Organisation:</td>
<td><input name="organisation" type="text" value="<%= dmxSetValue((Recordset1.Fields.Item("organisation".Value), FormRequest("organisation") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input name="email" type="text" value="<%= dmxSetValue("", FormRequest("email") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Tel:</td>
<td><input name="tel" type="text" value="<%= dmxSetValue("", FormRequest("tel") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address1:</td>
<td><input type="text" name="address1" value="<%= dmxSetValue("", FormRequest("address1") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Address2:</td>
<td><input type="text" name="address2" value="<%= dmxSetValue("", FormRequest("address2") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">City:</td>
<td><input type="text" name="city" value="<%= dmxSetValue((Recordset2.Fields.Item("city".Value), FormRequest("city") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">County:</td>
<td><input type="text" name="county" value="<%= dmxSetValue((Recordset1.Fields.Item("county".Value), FormRequest("county") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Postcode:</td>
<td><input type="text" name="postcode" value="<%= dmxSetValue("", FormRequest("postcode") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">USERNAME MUST BE UNIQUE </div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Username:</td>
<td><input type="text" name="username" value="<%= dmxSetValue("", FormRequest("username") %>" size="32"> </td>
</tr>
<tr valign="baseline">
<td colspan="2" align="right" nowrap><div align="center">
<p>PASSWORD MUST BE UNIQUE (between 8 - 15 letters)<br />
</p>
</div></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Password:</td>
<td><input name="password" type="text" value="<%= dmxSetValue("", FormRequest("password") %>" size="32" />
<% dmxval1.GenerateError "form3","password","ajaxexistscond","../validatorAjax/dmxValidatorAjax15.asp,," %></td>
</tr>


<tr valign="baseline">
<td nowrap align="right">&nbsp;</td>
<td><input type="submit" onclick="YY_checkform('form1','fname','#q','0','Field \'fname\' is not valid.','llname','#q','0','Field \'llname\' is not valid.','organisation','#q','0','Field \'organisation\' is not valid.','email','#S','2','Field \'email\' is not valid.','tel','#q','0','Field \'tel\' is not valid.','username','#q','0','Field \'username\' is not valid.','password','#q','0','Field \'password\' is not valid.','role','#q','1','Field \'role\' is not valid.');return document.MM_returnValue" value="Add Student">
<input name="cohort" type="hidden" id="cohort" value="<%=(Recordset4.Fields.Item("cohortname".Value)%>" />
<input name="lea" type="hidden" id="lea" value="<%=(Recordset2.Fields.Item("authority".Value)%>" />
<input name="Country" type="hidden" id="Country" value="UK" /></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form3" />
</form>

Producing the eror FIRST

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/Tutoradmin/multiplereg.asp, line 682

Response.Write(dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value))
---------------------------------------------------------------^

Line 682 is:

<option <%= dmxSetSelectOption("<%=(Recordset7.Fields.Item("Role".Value)%>",FormRequest("role",false) %> value="<%=(Recordset7.Fields.Item("Role".Value)%>"><%=(Recordset7.Fields.Item("Role".Value)%></option>

Validator has done this to all fields in every form I use. Can you shed any light on this and then I'll ask about why the CSS styling does not work!
Patrick Julicher
Official Representative



Since: 04 Feb 2002
Posts: 1,208
Replied 21 Nov 2009 21:55:21
Hi Nicholas,

Please do not crosspost. Your question will be pickup up in the extensions Support Forum.

Kind regards, Patrick

Reply to this topic

Message
Reply
Follow us on Facebook Follow us on twitter Subscribe to the RSS feed
Activate your free membership today | Login | Currency