<%
dim db,rs,sql,name,message
session("mcat")=request.querystring("cat")
set db=server.createobject("adodb.connection")
db.open "chat1"
set rs=server.createobject("adodb.recordset")
sql="select * from message where mcat='" & session("mcat") & "';"
rs.open sql,db
%>
