<%@ Language=VBScript %>
<%
Dim aChatRoom, aUserList
aChatRoom = Application("ChatRoom")
aUserList = Application("UserList")
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>" & "<chatxml>"
Dim i
For i = 1 To UBound(aChatRoom)
	Response.Write aChatRoom(i)
	Response.Write aUserList(i)
Next
Response.Write "</chatxml>"
%>
