I know this connection is generated from Dreamweaver UltraDev or MX.
Do you know how to use the repeat region in UltraDev or MX? It's fairly easy.
Here is my sample, no response.write use to confuse non programmers.
<%
Dim Client
Dim Client_numRows
Set Client = Server.CreateObject("ADODB.Recordset")
Client.ActiveConnection = MM_Support_STRING
Client.Source = "SELECT * FROM Client" ' assume your table name is Client
Client.CursorType = 0
Client.CursorLocation = 2
Client.LockType = 1
Client.Open()
Client_numRows = 0
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 10 ' Display how many records. In this sample we set 10 records
Dim Repeat2__index
Repeat2__index = 0
Client_numRows = Client_numRows + Repeat2__numRows
%>
<html>
<head>
<title>Test</title>
<body>
<table>
<tr>
<td>
' All records are display inside one table. If you want alternate color for each cell, you need to create another table and put the "While ((Repeat2__numRows <> 0) AND (NOT Client.EOF)) " outside the table.
<%
While ((Repeat2__numRows <> 0) AND (NOT Client.EOF))
%>
Client ID: <%=Client("ClientID")%><br>
Client: <%=Client("Client")%<br>
Address: <%=Client("Address")%><br>
Phone Number: <%=Client("PhoneNumber")%><br>
<hr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Client.MoveNext()
Wend
%>
</td>
</tr>
</table>
<%If Client.EOF Then%>
No records in table
<%
End If
%>
<%
Client.Close ' Close connection
Set Client = Nothing ' Kill and free up memory
%>
</body>
</html>
www.ex-designz.net
Dexter