Chat. Il codice chat più breve del mondo per una chat di poche pretese.
		Stampa	Torna Indietro
Linguaggio: ASP	Autore: Sconosciuto		Data Archiviazione: 26/10/2003

<%

' Messaggio inserito nella lista
if request.form("messaggio") <>"" then
if request.form("nickname")="" then
nick = "Anonimo"
else
nick=request.form("nickname")
end if

application.lock
application("messaggi")="<b>* "& nick &" -</b> "& request.form("messaggio")&"|"&"<br>" & application("messaggi")

end if

' lista messaggi
vmsg = split(application("messaggi"), "|")
redim preserve vmsg(8)
application.unlock

for i=0 to 8
response.write vmsg(i)
next

%>
<form name="f" method="post">
Nickname: <input type="text" name="nickname" size="10" value="<%= request.form("nickname") %>"><br>
Messaggio: <input type="text" name="messaggio" size="30">
<input type="submit" value="Invia/aggiorna">
</form>