Forums

This topic is locked

Microsoft VBScript compilation error '800a03ee'

Posted 21 Nov 2009 16:08:05
1
has voted
21 Nov 2009 16:08:05 Nicholas Maloney posted:
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!

Replies

Replied 21 Nov 2009 21:55:21
21 Nov 2009 21:55:21 Patrick Julicher replied:
Hi Nicholas,

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

Kind regards, Patrick

Reply to this topic