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"> </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
Please do not crosspost. Your question will be pickup up in the extensions Support Forum.
Kind regards, Patrick