<meta http-equiv="Content-Language" content="it">
<link rel="stylesheet" type="text/css" href="chat.css">
<base target="msg">
<body class=messages topmargin="0" leftmargin="0" rightmargin="0">
<script>
parent.msg.forms[0].chat='';
</script>
<%
Response.Expires = 10
Response.Buffer = True
if request.form("azione")="msg" and len(request.form("chat"))>0 then
'AGGIUNGI MESSAGGIO
arrmsg = Application("msg")
arrmsg = arrmsg & "#§#" & Now() &_
"|#|" & Session("ID") & "|#|" &_
Request.Form("chat")
Application.Lock
Application("msg") = arrmsg
Application.UnLock
Response.Redirect("chat.asp#fondo")
end if
'recupero messaggi
Response.write "<HTML><HEAD>"
Response.write "<META http-equiv=""REFRESH"" content=""5; url=#fondo"">"
Response.write "</HEAD>"
arrMsg = Application("msg")
if len(arrMsg) >0 then
arrMsg = Split(arrMsg, "#§#")
for j = 1 to ubound(arrMsg)
msg = Split(arrMsg(j), "|#|")
Response.write "[*]<font face=Arial Size=2 color=gray>"
Response.write msg(0)
Response.write "</font><font face=Arial Size=2 color=#333333>"
Response.write " [ "
Response.write msg(1) & " ] - "
Response.write "</font><font face=Arial Size=2 color=#FF0000>"
Response.write msg(2) & "</font>"
next
Response.write "<a name=fondo></a>"
end if
%>
Rispondi quotando
