%@ LANGUAGE="VBSCRIPT"%><% Response.Buffer = True
%>
Health Chat - Health & Family Welfare Department, Govt. of Tamil Nadu%
if Request("event")="head" then %>
<%end if%><%
dim auto
dim pass
if Request("event")="login" then
pass=Request.Form("password1")
if trim(pass)="" then
auto="FALSE"
else
if pass<>"bcs" then
'Response.Write pass
Response.Redirect("goa.asp")
else
auto="TRUE"
end if
end if
Response.Cookies("auto")=auto
ctr=1
count=2
'Application("ucnt")=application("ucnt") + 1
Response.Cookies("barpos")="1"
Response.Cookies("emchatlogin")=Request.Form("login")
Response.Cookies("edate")=date()
Response.Cookies("etime")=time()
'Response.Write Request.Form("login")
Application(30)=Application(29)
Application(29)=Application(28)
Application(28)=Application(27)
Application(27)=Application(26)
Application(26)=Application(25)
Application(25)=Application(24)
Application(24)=Application(23)
Application(23)=Application(22)
Application(22)=Application(21)
Application(21)=Application(20)
Application(20)=Application(19)
Application(19)=Application(18)
Application(18)=Application(17)
Application(17)=Application(16)
Application(16)=Application(15)
Application(15)=Application(14)
Application(14)=Application(13)
Application(13)=Application(12)
Application(12)=Application(11)
Application(11)=Application(10)
Application(10)=Application(9)
Application(9)=Application(8)
Application(8)=Application(7)
Application(7)=Application(6)
Application(6)=Application(5)
Application(5)=Application(4)
Application(4)=Application(3)
Application(3)=Application(2)
Application(2)=Application(1)
'if Application("date")<>date() or auto="TRUE" then
'while ctr<=30
'Application(ctr)=""
'ctr=ctr+1
'wend
'application("date")=date()
'end if
Application("1")=""& request.Cookies("emchatlogin") & " enters health room "
Response.Redirect "chat.asp"
end if
if request.Cookies("emchatlogin")="" then Response.Redirect"GOA.asp"
if mid(request.Cookies("emchatlogin"),1,1)=" " then Response.Redirect"GOA.asp"
if Request.QueryString("event")="post" then
Application(30)=Application(29)
Application(29)=Application(28)
Application(28)=Application(27)
Application(27)=Application(26)
Application(26)=Application(25)
Application(25)=Application(24)
Application(24)=Application(23)
Application(23)=Application(22)
Application(22)=Application(21)
Application(21)=Application(20)
Application(20)=Application(19)
Application(19)=Application(18)
Application(18)=Application(17)
Application(17)=Application(16)
Application(16)=Application(15)
Application(15)=Application(14)
Application(14)=Application(13)
Application(13)=Application(12)
Application(12)=Application(11)
Application(11)=Application(10)
Application(10)=Application(9)
Application(9)=Application(8)
Application(8)=Application(7)
Application(7)=Application(6)
Application(6)=Application(5)
Application(5)=Application(4)
Application(4)=Application(3)
Application(3)=Application(2)
Application(2)=Application(1)
if Request.Cookies("auto")="FALSE" then
'Application("1")="" & request.Cookies("emchatlogin") & " : "& request("text") & " (" & date() & " " & time() & ")"
Application("1")="" & request.Cookies("emchatlogin") & " : "& request("text")
else
'""& request.Cookies("emchatlogin") & " leaves health room"
'Application("1")=""& request.Cookies("emchatlogin") & " : "& request("text") & " (" & date() & " " & time() & ")"
Application("1")=""& request.Cookies("emchatlogin") & " : "& request("text")&""
end if
Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
'Map appropriate topic file
Set inStream = fileObject.openTextFile(Server.MapPath("chatlog.txt"),8,true,False)
inStream.Write ""
inStream.Writeline date() & " - " & application("1") & ""
Set inStream = Nothing
Response.Redirect "chat.asp?event=form"
end if
if request("event")="logout" then
Application(30)=Application(29)
Application(29)=Application(28)
Application(28)=Application(27)
Application(27)=Application(26)
Application(26)=Application(25)
Application(25)=Application(24)
Application(24)=Application(23)
Application(23)=Application(22)
Application(22)=Application(21)
Application(21)=Application(20)
Application(20)=Application(19)
Application(19)=Application(18)
Application(18)=Application(17)
Application(17)=Application(16)
Application(16)=Application(15)
Application(15)=Application(14)
Application(14)=Application(13)
Application(13)=Application(12)
Application(12)=Application(11)
Application(11)=Application(10)
Application(10)=Application(9)
Application(9)=Application(8)
Application(8)=Application(7)
Application(7)=Application(6)
Application(6)=Application(5)
Application(5)=Application(4)
Application(4)=Application(3)
Application(3)=Application(2)
Application(2)=Application(1)
Application("1")=""& request.Cookies("emchatlogin") & " leaves health room "
'if Application("ucnt")>0 then
'Application("ucnt")=application("ucnt") - 1
'end if
Response.Cookies("emchatlogin")=""
Response.Redirect"index.html"
end if
if request("event")="form" then
%>
|
|
?????????????? 
|
<%
end if
if request("event")="show" then
'Cookies("emchatrefresh")
if request.Cookies("emchatlogin")="" then Response.Redirect"GOA.asp"
if mid(request.Cookies("emchatlogin"),1,1)=" " then Response.Redirect"GOA.asp"
Response.Write ""
Response.Write ""
%> You have Logged in as : <%Response.write Request.Cookies("emchatlogin") %>
<%
Response.Write ""
for f=1 to 30
Response.Write Application(f) & "
"
next
end if
if request("event")="" then
if request.Cookies("barpos")="" then
%>
This page uses frames, but your browser doesn't support them.
This page uses frames, but your browser doesn't support them.
<%
end if
if request.Cookies("barpos")="1" then
%>
This page uses frames, but your browser doesn't support them.
<%
end if
end if
if request("event")="refresh" then
Response.Cookies("emchatrefresh")=request("refresh")
Response.Redirect"chat.asp"
end if
if request("event")="aptop" then
Response.Cookies("barpos")=""
Response.Redirect"chat.asp"
end if
if request("event")="aptop1" then
Response.Cookies("barpos")="1"
Response.Redirect"chat.asp"
end if
if request("event")="setup" then
%>Appearance
? 
Refresh
<%
end if
%>
