> Her er vinduet med selve chatten (der hvor alle beskeder ligger):
> <html>
>
> <head>
> <meta http-equiv="refresh" content="1">
> </head>
>
> <body bgcolor="#FFFFFF">
> <font face="Verdana" size="2">
> <%
> Dim convo
> convo = Application("conversation")
> If Len(convo) > 2000 Then
> convo = Left(convo, 2000)
> Application.Lock
> Application("conversation") = convo
> Application.Unlock
> End If
> Response.Write convo
> %>
>
> </body>
> </html>
>
> Og her er siden med formen hvor du skriver din besked:
> <html>
>
> <body bgcolor="#FFFFFF" onload="document.form1.Say.focus()">
>
> <%
> If trim(Request.Form("say")) <> "" Then
> Application.Lock
> Application("conversation") = "<b>" & Session("name") & ": </b>" & _
> Request.Form("say") & "<br>" & Application("conversation")
> Application.Unlock
> End If
> %>
>
> <form action="say.asp" method="POST" name="form1">
> <font face="Verdana" size="1">Send: <input type="text" size="80"
name="Say"
> style="font-family: Verdana; font-size: 8 pt; border-style: solid;
> border-width: 1">
> <input type="submit" value="Send" style="font-family: Verdana; font-size:
8
> pt; border-style: solid; border-width: 1">
>
> </form>
> </body>
> </html>
>
>
> Håber du kan hjælpe moi!
>
> Hilsen MaRk!
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials
Ok.. Nedenstående er sådan jeg ville gøre..
Det skulle være lige til at kopiere ind.
<html>
<head>
<meta http-equiv="refresh" content="1">
<!-- Er 1 sekund ikke lige i underkanten..? Jeg vil synes 3 er passende men
det er helt op til dig selv.. -->
</head>
<body bgcolor="#FFFFFF">
<font face="Verdana" size="2">
<!-- Nedenstående asp har jeg ændret en hel del i da måden du har gjort det
på nu, ikke er så god.-->
<%
Say = Server.HTMLEncode(Request.Form("Say"))
'NEDENSTÅENDE LINJE KAN DU ÆNDRE SÅ ANTALLET AF LINIER I CHATTEN PASSER TIL
DIT VALG
AntalLinier = 20
LinieNr = AntalLinier
If Say <> "" Then
Application.Lock
Do While LinieNr > 1
Application(LinieNr) = Application(LinieNr - 1)
LinieNr = LinieNr - 1
Loop
Application(LinieNr) = "<b>" & Session("name") & ":</b> " & Say & "<br>"
Application.Unlock
End If
LinieNr = 1
Do While LinieNr < AntalLinier + 1
Response.Write Application(LinieNr)
LinieNr = LinieNr + 1
Loop
%>
</body>
</html>
************************************************************
<html>
<body bgcolor="#FFFFFF" onload="document.form1.Say.focus()">
<form action="say.asp" method="POST" name="form1">
<!-- FORMEN SKAL IKKE LÆNGERE PEGE HEN TIL SAMME SIDE MEN TIL DEN SIDE DER
VISER CHATTEN.-->
<font face="Verdana" size="1">Send: <input type="text" size="80" name="Say"
style="font-family: Verdana; font-size: 8 pt; border-style: solid;
border-width: 1">
<input type="submit" value="Send" style="font-family: Verdana; font-size: 8
pt; border-style: solid; border-width: 1">
</form>
</body>
</html>
Der kan godt være nogen fejl i for jeg har ikke lige tid til at teste det.
Men dem håber jeg da selv du kan rette hvis der altså er nogen.
Håber du kan bruge det.
Ellers skriv igen
--
MK
http://www.msdesign.dk
Professionelt webdesign til fornuftige priser