<%
dim conn,rs,sql
dbpath=server.mappath("chatdb/chatdb.asp")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
set rs=server.createobject("adodb.recordset")
%>
