Forums

ADOBE CREATIVE SUITE

This topic is locked

Nested Repeat Regions

Andrew Baker

Posted 22 Nov 2005 14:29:56

has voted

Vote

22 Nov 2005 14:29:56 Andrew Baker posted:

Hi Everyone

I am having a bit of trouble sorting this one out and getting my recordsets to work. I get this message

ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/20050915darbysintranet/People/StaffProfile.asp, line 369

Here is the recordsets i am using.
<pre id=code>
<%
Dim RSStaffProfileFull__MMColParam
RSStaffProfileFull__MMColParam = "1"
If (Request.QueryString("FEName"

<> ""

Then
RSStaffProfileFull__MMColParam = Request.QueryString("FEName"

End If
%>
<%
Dim RSStaffProfileFull
Dim RSStaffProfileFull_numRows

Set RSStaffProfileFull = Server.CreateObject("ADODB.Recordset"

RSStaffProfileFull.ActiveConnection = MM_darbys1_STRING
RSStaffProfileFull.Source = "SELECT * FROM TBLStaffProfile WHERE FEName LIKE '%" + Replace(RSStaffProfileFull__MMColParam, "'", "''"

+ "%'"
RSStaffProfileFull.CursorType = 0
RSStaffProfileFull.CursorLocation = 2
RSStaffProfileFull.LockType = 1
RSStaffProfileFull.Open()

RSStaffProfileFull_numRows = 0
%>
<%
Dim RSExperts
Dim RSExperts_numRows

Set RSExperts = Server.CreateObject("ADODB.Recordset"

RSExperts.ActiveConnection = MM_darbys1_STRING
RSExperts.Source = "SELECT * FROM tblExperts"
RSExperts.CursorType = 0
RSExperts.CursorLocation = 2
RSExperts.LockType = 1
RSExperts.Open()

RSExperts_numRows = 0
%>
</pre id=code>

Here is the first repeat region
<pre id=code>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RSStaffProfileFull_numRows = RSStaffProfileFull_numRows + Repeat1__numRows
%>
</pre id=code>
Here is the the table with the repeat region
<pre id=code>
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="290"> <%=(RSStaffProfileFull.Fields.Item("FEName"

.Value)%>
<%=(RSStaffProfileFull.Fields.Item("StaffAimIns"

.Value)%>     <%=(RSStaffProfileFull.Fields.Item("OldAimCode"

.Value)%></td>
<td width="6"> </td>
<td colspan="2"><%=(RSStaffProfileFull.Fields.Item("Team"

.Value)%>
<%=(RSStaffProfileFull.Fields.Item("Floor"

.Value)%> Floor-
<%=(RSStaffProfileFull.Fields.Item("Building"

.Value)%></td>
</tr>
<tr valign="top">
<td rowspan="10"><div align="center"><img src="../images/Staff/<%=(RSStaffProfileFull.Fields.Item("PicturePath"

.Value)%>" width="144" height="194"></div></td>
<td colspan="3"><div align="center">
HOLIDAY LISTINGS</div></td>
</tr>
<tr valign="top">
<td> </td>
<td width="74"> </td>
<td width="300"> </td>
</tr>
<tr valign="top">
<td> </td>
<td>Telephone</td>
<td><%=(RSStaffProfileFull.Fields.Item("Telephone"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td>e-mail</td>
<td><%=(RSStaffProfileFull.Fields.Item("Email"

.Value)%>@darbys.co.uk</td>
</tr>
<tr valign="top">
<td> </td>
<td>Mobile</td>
<td><%=(RSStaffProfileFull.Fields.Item("Mobile"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td>Home Office</td>
<td><%=(RSStaffProfileFull.Fields.Item("HomeOffice"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td>Fax</td>
<td><%=(RSStaffProfileFull.Fields.Item("Fax"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td> </td>
<td>Expertise</td>
<td</pre id=code>
'Here is the code to the second repeat region
<pre id=code>
<%
FilterParam = RSStaffProfileFull.Fields.Item("FEName"

.Value
RSExperts.Filter = "FEName=" & FilterParam 'THIS IS THE LINE WHERE THE ERROR IS
While (NOT RSExperts.EOF)
%>
<%=(RSExperts.Fields.Item("Expertise"

.Value)%>,  
<%
RSExperts.MoveNext()
Wend
%> </td>
</pre id=code>
 ' End of the second repeat region

Followed by rest of table
<pre id=code>
</tr>
<tr valign="top">
<td><%=(RSStaffProfileFull.Fields.Item("JobTitle"

.Value)%></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td>£<%=(RSStaffProfileFull.Fields.Item("HourlyRate"

.Value)%> / ph</td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td><%=(RSStaffProfileFull.Fields.Item("Partner"

.Value)%></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td><%=(RSStaffProfileFull.Fields.Item("TeamLeader"

.Value)%></td>
<td> </td>
<td>Secretary</td>
<td><%=(RSStaffProfileFull.Fields.Item("Secretary"

.Value)%></td>
</tr>
<tr valign="top">
<td><%=(RSStaffProfileFull.Fields.Item("FirstAider"

.Value)%></td>
<td> </td>
<td>Telephone</td>
<td><%=(RSStaffProfileFull.Fields.Item("SecTelephone"

.Value)%></td>
</tr>
<tr valign="top">
<td><%=(RSStaffProfileFull.Fields.Item("EvecChairTrained"

.Value)%></td>
<td> </td>
<td>e-mail</td>
<td><%=(RSStaffProfileFull.Fields.Item("SecEmail"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="top">
<td colspan="4"><%=(RSStaffProfileFull.Fields.Item("ExtraInfo"

.Value)%></td>
</tr>
<tr valign="top">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</pre id=code>

Here is the end of the first repeat region

<pre id=code>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RSStaffProfileFull.MoveNext()
Wend
%>
</pre id=code>

Here is the end of the Recordsets

<pre id=code>
<%
RSStaffProfileFull.Close()
Set RSStaffProfileFull = Nothing
%>
<%
RSExperts.Close()
Set RSExperts = Nothing
%>
</pre id=code>

I am sorry about all the code but i just wanted to make sure you understood exactly what i needed to be worked out.

Thank you for your help
Baker <pre id=code> </pre id=code> <pre id=code> </pre id=code> <pre id=code> </pre id=code>

Replies

Andrew Baker

Replied 22 Nov 2005 14:35:38

22 Nov 2005 14:35:38 Andrew Baker replied:

Sorry everyone i forgot to state i am using ASP (VBScript)
Version of Dreamweaver MX
Version Extention - Hand written code

Sorry again. First time posting.

Reply to this topic

Latest Extensions

App Connect Summernote File Upload Upload different files in Summernote Editor
App Connect Summernote Simple, yet powerful and modern WYSIWYG Editor
Bootstrap 4 Dynamic Table Generator 2 Automatically generate dynamic data tables
Bootstrap 4 Dynamic Form Generator 2 Auto generate perfect Bootstrap 4 dynamic forms in seconds
App Connect Bootstrap 4 Dynamic Paging Generator Auto generate awesome dynamic Bootstrap 4 paging in seconds
App Connect Event Calendar The most powerful full-sized event calendar for Dreamweaver
DMXzone App Connect Next generation client side framework for data-driven web sites and apps
DMXzone Database Custom Query Create advanced, complex custom SQL queries with ease

Latest Videos

Using App Connect Autocomplete Learn how to add autocomplete functionality on your page, using the App Connect Autocomplete
Creating Custom SQL Queries Learn how to create custom SQL Queries with DMXzone Database Custom Query
Restricting Access to Your Pages Learn how to restrict access to your pages, using DMXzone Security Provider 2
Adding Log Out Functionality with DMXzone Security Provider 2 Learn how to add log out functionality to your page with DMXzone Security Provider 2
Creating a Log In Page with DMXzone Security Provider 2 Learn how to create a log in page with DMXzone Security Provider 2
Setting Up Site Security Settings Learn how to setup your site security, using DMXzone Security Provider 2
Generating an Update Record Form Learn how to create an update record form, using the Bootstrap 4 Dynamic Form Generator 2
Generating an Insert Record Form Learn how to create an insert record form, using the Bootstrap 4 Dynamic Form Generator 2