<%


Set strConnString = Server.CreateObject("ADODB.Connection")

strConnString.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..") & "\data\chat.mdb;"
Application("MsgRefreshDelay") = 2
Application("IdleTime") = 2
	Application("KickOutTime") = 10
	Application("UserControlScroll") = true
	Application("MessageNumber") = 10
	
varSQL = "SELECT * FROM SETUP WHERE SETUPID = 1;"
Set rs=Server.CreateObject("ADODB.recordset")
rs.Open varSQL, strConnString, 0, 1

%>