chat - udskriver kun 1 linie i chatvinduet
Jeg er igang med at lave en chat, hvilket jeg ikke har rodet med før, men en gang skal jo være den første.Jeg har lige et par problemer med den chat jeg er igang med.
1) Som overskriften siger, når man vil sende en chatbesked fra form feltet overskriver den bare den linie som står der i forvejen, så den kun udskriver den linie der er blevet skrevet sidst, jeg har kigget på det hele dagen og jeg kan ikke finde nogle fejl i det.
2) Hver gang siden selv-opdaterer skriver den: "brugernavn" er er logged på kl. dato/tid og det er jo lissom ikke meningen, meningen er selvfølgelig at den skal skrive når de kommer online, hvilket jeg også har prøvet på i koden, men kan ikke få det til at virke.
Her er hele koden:
<!--#include file="includes/functions.asp"-->
<!--#include file="includes/conn.asp"-->
<!--#include file="includes/autologin.asp"-->
<%
page = Request.Querystring("p")
If Session("AdminPass") = "OK" Then
Set conntemp = Server.CreateObject("ADoDB.Connection")
conntemp.Open DSN
Set rsChatSettings = conntemp.execute("SELECT U_CHAT_LINIER, U_CHAT_PRIV_LINIER, U_CHAT_UPDATERATE FROM USERS WHERE UID = "& Session("AdminID"))
AntalLinier = Clng(rsChatSettings("U_CHAT_LINIER"))
AntalPrivLinier = Clng(rsChatSettings("U_CHAT_PRIV_LINIER"))
UpdateRate = Clng(rsChatSettings("U_CHAT_UPDATERATE"))
End If
If page = "" Then
Response.Write "<html>"& vbCrLf &_
" <head>"& vbCrLf &_
" <title> cichlide-net.dk </title>"& vbCrLf &_
" <script language=""JavaScript"" src=""includes/scripts.js""></script>"& vbCrLf &_
" <link rel=""stylesheet"" type=""text/css"" href=""includes/style.css"">"& vbCrLf &_
" <frameset cols=""*,80"" frameborder=""yes"" border=""0"" framespacing=""0"">"& vbCrLf &_
" <frameset rows=""*,80"" frameborder=""yes"" border=""0"" framespacing=""0"">"& vbCrLf &_
" <frame src=""chat.asp?p=main"" name=""chat_frame"" scrolling=""auto"">"& vbCrLf &_
" <frame src=""chat.asp?p=send"" name=""besked_frame"" scrolling=""no"" noresize>"& vbCrLf &_
" </frameset>"& vbCrLf &_
" <frame src=""chat.asp?p=online"" name=""brugere_frame"" scrolling=""auto"" noresize>"& vbCrLf &_
" </frameset>"& vbCrLf &_
" </head>"& vbCrLf &_
"</html>"& vbCrLf
End If
If page = "main" Then
If Not Session("AdminPass") = "OK" Then
Response.Redirect "chat.asp?p=fejl"
Else
If Application(Session("AdminUser") &"_login") = "" Then
For x = AntalLinier TO 2 STEP -1
Application("offnlbeskeder_"& x) = Application("offnlbeskeder_"& x-1)
Next
Application("offnlbeskeder_1") = "<font color=""#FF0000""><b>"& Session("AdminUser") &" er logged på kl. "& Now &"</b></font>"
Application(Session("AdminUser") &"_login") = "yes"
End If
Response.Write "<html>"& vbCrLf &_
" <head>"& vbCrLf &_
" <script language=""JavaScript"" src=""includes/scripts.js""></script>"& vbCrLf &_
" <link rel=""stylesheet"" type=""text/css"" href=""includes/style.css"">"& vbCrLf &_
" <meta http-equiv=""Refresh"" content="""& UpdateRate &""">"& vbCrLf &_
" </head>"& vbCrLf &_
" <body>"& vbCrLf
For x = 1 TO AntalLinier
Response.Write Application("offnlbeskeder_"& x) &"<br>"& vbCrLf
Next
Response.Write " </body>"& vbCrLf &_
"<html>"& vbCrLf
End If
End If
If page = "send" Then
Response.Write "<html>"& vbCrLf &_
" <head>"& vbCrLf &_
" <script language=""JavaScript"" src=""includes/scripts.js""></script>"& vbCrLf &_
" <link rel=""stylesheet"" type=""text/css"" href=""includes/style.css"">"& vbCrLf &_
" </head>"& vbCrLf &_
" <body>"& vbCrLf &_
" <form action=""chat_frame.asp?p=send"" target=""chat_frame"" method=""post"">"& vbCrLf &_
" <input type=""text"" name=""Besked"" size=""30""> <input type=""submit"" name=""SendBesked"" value="" Send "">"& vbCrLf &_
" </form>"& vbCrLf &_
" </body>"& vbCrLf &_
"<html>"& vbCrLf
Bedsked = Request.Form("SendBesked")
If Bedsked <> "" Then
For x = AntalLinier TO 2 STEP -1
Application("offnlbeskeder_"& x) = Application("offnlbeskeder_"& x-1)
Next
Application("offnlbeskeder_1") = Session("AdminUser") &": "& Bedsked
End If
End If
%>
På forhånd tak!
