read200.asp
<html>
<body>
<p><big><big>Categories</big></big> </p>
<hr size="1" align="left">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=win.dsn"
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From tblCategories", Conn
%>
<table border="1" width="670">
<tr bgcolor="gray">
<td width="155" height="11">
<p></p>
</td>
<td width="159" height="11">
<p><b>Name</b></p>
</td>
<td width="334" height="11">
<p><b>Description</b></p>
</td>
</tr>
<%
while not Rs.eof
%>
<tr>
<td width="155" height="3">
<form method="post" action="readcontent2.asp">
<p>
<input type="hidden" name="txtCID" value="<%=Rs("CategoryID")%>">
<input type="submit" name="formbutton1">
</p>
</form>
</td>
<td width="159" height="3">
<p><%=Rs("CategoryName")%></p>
</td>
<td width="334" height="3">
<p><%=Rs("Description")%></p>
</td>
</tr>
<%
Rs.movenext
Wend
Rs.close
set Rs=nothing
Conn.close
Set Conn=nothing
%>
</table>
<p align="left"><strong>SQL:</strong> <font face="Times New Roman" size="3" color="#000000">Select *
From
tablename</font></p>
<p align="left"><a href="main.asp">Main</a></p>
</body>
</html>
