Display Page

<%RESPONSE.BUFFER = TRUE%> <%=""%> <%=""%> <%=""%> <%="Display Page"%> <%=""%> <%=""%> <% on error resume next call main() if err.number > 0 then call global_asa(err.number) end if %> <% Sub main() Dim tmpUser,tmpTimesaid,tmpIP,tmpMesssage tmpUser=Application("User") tmpTimesaid=Application("timesaid") tmpIP=Application("ip") tmpMesssage=Application("message") call create_headings() call display_body(Application("Tplace"),1,tmpUser,tmpTimesaid,tmpIP,tmpMesssage) call display_body(Application("Tplaces"),Application("Tplace")+1,tmpUser,tmpTimesaid,tmpIP,tmpMesssage) call terminate_table() end sub Sub global_asa(temp) response.write temp 'this if section implace of global.asa Application.lock Application("Tplace")=1 Application("Tplaces")=25 redim Temp(25) Application("User")=Temp Application("timesaid")=Temp Application("ip")=Temp Application("message")=Temp Application.unlock End Sub sub create_headings() Response.Write date & "
" & formatdatetime(time,3) Response.Write " " Response.Write "" 'Response.Write "" Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" if session("IP") then Response.Write "" Response.Write "" else Response.Write "" end if Response.Write "" Response.Write "" end sub sub display_body(firstpos,endpos,tmpUser,tmpTimesaid,tmpIP,tmpMesssage) for x = firstpos to endpos step - 1 Response.Write "" Response.Write "" Response.Write "" Response.Write "" if session("IP") then Response.Write "" Response.Write "" else if instr(tmpMesssage(x),"http") = 0 then Response.Write "" else Response.Write "" end if end if Response.Write "" Response.Write "" next end sub sub terminate_table() Response.Write "" Response.Write "" Response.Write "" Response.Write "" if session("IP") then Response.Write "" Response.Write "" else Response.Write "" end if Response.Write "" Response.Write "" Response.write "

" & " " & "	" & " Chat with Gogs " & "	" & " " & "
" & " " & "	" & " Time	" & " User	" & " Message" & SPACE(45) & "	" & " I.P.	" & " Message" & SPACE(40) & "	" & " " & "
" & " " & "	" & tmpTimesaid(x) & " " & "	" & tmpUser(x) & " " & "	" & tmpMesssage(x) & " " & "	" & tmpIP(x) & " " & "	" & tmpMesssage(x) & " " & "	" & _ "" _ & tmpMesssage(x) & " " & "	" & " " & "
" & " " & "	" & " " & "	" & " " & "	" & " " & "	" & " " & "	" & " " & "	" & " " & "

" end sub %> <%=""%> <%=""%>

Chat with Gogs

Time

User

Message" & SPACE(45) & "

I.P.

Message" & SPACE(40) & "