Can someone please help,
I am trying to make a dynamic table populated with records from a access database. I want the table filled from left to right, and with record4 starting a new row.
But i only get this far.
Dim RsQmenu
Set RsQmenu = Server.CreateObject("ADODB.Recordset")
RsQmenu.ActiveConnection = MM_connCMS_STRING
RsQmenu.Source = "SELECT * FROM subs WHERE QuickMenu = 'Y' order by subItemno"
RsQmenu.Open()
QuickHead= (RsQmenu.Fields.Item("subItemHead").Value)
%>
</head>
<body>
<%
Response.Write("<table width=100% border=0 cellspacing=10 class=bottomlinks>")
Do until RsQmenu.EOF
Response.Write("<tr>")
Response.Write("<td align=left valign=top>"&QuickHead&"</td>")
Response.Write("<td align=left valign=top>"&QuickHead&"</td>")
Response.Write("<td align=left valign=top>"&QuickHead&" </td>")
Response.Write("</tr>")
RsQmenu.Movenext()
Loop
Response.Write("</table>")
%>
Thanks in advance...
Jaco