<% dim cgi_names(5), cgi_values(5), domain, port, room, percent, width, height, i 'create temporary arrays cgi_names(0) = "domain" cgi_values(0) = "www.ldschat.com" cgi_names(1) = "port" cgi_values(1) = ":8569" cgi_names(2) = "room" cgi_values(2) = "Lobby" cgi_names(3) = "percent" cgi_values(3) = "true" cgi_names(4) = "width" cgi_values(4) = 99 cgi_names(5) = "height" cgi_values(5) = 94 'update necessary vars in arrays i=0 for each vName in cgi_names vName = request.QueryString(vName) If not vName = "" then cgi_values(i) = vName end if 'response.write(cgi_names(i)&"="&cgi_values(i)&" ") & vbcr i = i+1 next 'populate variables domain = cgi_values(0) port = cgi_values(1) room = cgi_values(2) percent = cgi_values(3) width = cgi_values(4) height = cgi_values(5) 'set up all rooms dim rooms(12) rooms(0) = "Lobby" rooms(1) = "Teen" rooms(3) = "SingleAdult" rooms(6) = "YoungAdults" rooms(7) = "Married" rooms(9) = "GospelDiscussion" rooms(10) = "InternationalLobby" rooms(11) = "Kids" rooms(12) = "Parenting" 'actually write it out %>
In order to use this chat application you will need flash 6 or later and Javascript.
Download Flash |