<html>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=win.dsn"
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From tblCategories Where CategoryID='2';", Conn
%>
<p><font color="red" size="10"> <%= Rs("CategoryID") %> </font></p>
<p> <%= Rs("CategoryName") %> </p>
<p> <%= Rs("Description") %> </p>
<%
Rs.close
set Rs=nothing
Conn.close
Set Conn=nothing
%>
</body>
</html>