Nogen der kan hjælpe ? har en killerchat6.0 jeg ska ha sat op ?

Hallo er der ingen ?

Jeg tror, de holder påske-ferie... Jeg får heller ingen svar!

Hehe underligt.. når der er så mange online.. hva er dit problem da ?

-Mit problem står lige under dit i ASP-spørgsmåls-oversigten... ('tilfædlig data'...Tastede lidt forkert :-)

-Måske kan jeg også hjælpe dig lidt... Hvis du indsætter din 'chat.asp'-side her, kan jeg da lige kigge på det...

<!-- #include file="simpelchat.inc" -->
<%
Response.Buffer = True

If request.cookies(""& Systemname &"_ban")<>"" Then
    Response.Redirect "html/ban.asp"
End If

If Application(""& Systemname &"_chatusers") = "" Then
    Application(""& Systemname &"_chatusers") = 0
End If

If Application(""& Systemname &"_chatusers") < 0 Then
    Application(""& Systemname &"_chatusers") = 0
End If

Mode = Request("mode")

If Mode = "" Then
    Response.Redirect "chat.asp?mode=error&type="
End If

If Mode = "login" Then
    If Application(""& Systemname &"_chatusers") = MaxUsers Then
        Response.Redirect "chat.asp?mode=error&type="
    Else
        For x = 1 To MaxUsers
            If Application(""& Systemname &"_chatuser_" & x) = Request("chatname") Then
                Response.Redirect "chat.asp?mode=error&type="
            End If
        Next
        For x = 1 To MaxUsers
            If Application(""& Systemname &"_chatuser_" & x) = "" Then
                Application(""& Systemname &"_chatusers") = Application(""& Systemname &"_chatusers") + 1
                Application(""& Systemname &"_chatuser_" & x) = Request("chatname")
               
                'Gemmer oplysninger om brugeren
                '------------------------------
                Application(""& Systemname &"_userinfo_IP_" & x) = Request.ServerVariables("REMOTE_ADDR")
                Application(""& Systemname &"_userinfo_BROWSER_" & x) = Request.ServerVariables("HTTP_USER_AGENT")
                Application(""& Systemname &"_userinfo_SPROG_" & x) = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
                Application(""& Systemname &"_userinfo_Onl_" & x) = now()
                Application(""& Systemname &"_userinfo_Last_" & x) = now()
                Session(""& Systemname &"_userid") = x
                '------------------------------
               
                'Gemmer admin info
                '------------------------------
                If LCase(Request("chatname")) = LCase(AdminUsername1) Then
                Session(""& Systemname &"_chatadmin") = 1
                ElseIf LCase(Request("chatname")) = LCase(AdminUsername2) Then
                Session(""& Systemname &"_chatadmin") = 1
                ElseIf LCase(Request("chatname")) = LCase(AdminUsername3) Then
                Session(""& Systemname &"_chatadmin") = 1
                ElseIf LCase(Request("chatname")) = LCase(AdminUsername4) Then
                Session(""& Systemname &"_chatadmin") = 1
                ElseIf LCase(Request("chatname")) = LCase(AdminUsername5) Then
                Session(""& Systemname &"_chatadmin") = 1
                End If
                '------------------------------
               
                Exit For
            End If
        Next
        Session(""& Systemname &"_chatname") = Request("chatname")
        Session(""& Systemname &"_chatuser") = x
        For x = MaxPublicMessages To 2 Step -1
            Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
        Next
        Application(""& Systemname &"_publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : " & Session(""& Systemname &"_chatname") & " er logget på kl. " & time & "</font></b>"
       
        If Bot_ON_OFF = "ON" Then
        For x = MaxPublicMessages To 2 Step -1
            Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
        Next
        Application(""& Systemname &"_publicmessage_1") = "<b><font color='" & TextColor2 & "'>"& Bot_Name &":</b> Velkommen til "& ChatTitle &" "& Session(""& Systemname &"_chatname") &"</font>"
        Application(""& Systemname &"_bot_lastmessage_"& Session(""& Systemname &"_chatname") &"") = "Welcome"
        End If
%>
<html>

<head>
<title><%= ChatTitle %> - KillerChatten v6.0 -=- Udviklet af Thomas Dippel</title>
<script language="JavaScript">
<!--

window.resizeTo(screen.availWidth,screen.availHeight);
window.moveTo(0,0);

function DoLogout() {
window.open('chat.asp?mode=logout&chatname=<%= Session(""& Systemname &"_chatname") %>','','width=430,height=120');
}

//-->
</script>
</head>

<frameset framespacing="1" border="0" frameborder="0" rows="*,100" onunload="java script:DoLogout();">
<%If Application(""& Systemname &"_info") <> "" Then%><frameset framespacing="1" border="0" frameborder="0" rows="15,*">
<frame src="chat.asp?mode=info" name="info" marginwidth="0" marginheight="0" scrolling="no" noresize><%End If%>   
  <frameset framespacing="1" border="0" frameborder="0" cols="180,*">
    <frameset framespacing="1" border="0" frameborder="0" rows="25,*,150">
      <frame src="chat.asp?mode=usersonline_header" marginwidth="20" marginheight="0" scrolling="no" noresize>
      <frame src="chat.asp?mode=usersonline" marginwidth="15" marginheight="15" scrolling="auto" noresize>
      <frameset framespacing="1" border="0" frameborder="0" rows="25,*">
        <frame src="chat.asp?mode=functions_header" marginwidth="20" marginheight="0" scrolling="no" noresize>
        <frame src="chat.asp?mode=functions" marginwidth="15" marginheight="15" scrolling="auto" noresize>
      </frameset>
    </frameset>
    <frameset framespacing="1" border="0" frameborder="0" rows="*,150">
      <frameset framespacing="1" border="0" frameborder="0" rows="25,*">
        <frame src="chat.asp?mode=publicmessages_header" marginwidth="25" marginheight="0" scrolling="no" noresize>
        <frame src="chat.asp?mode=publicmessages" name="publicmessages" marginwidth="20" marginheight="15" scrolling="auto" noresize>
      </frameset>
      <frameset framespacing="1" border="0" frameborder="0" rows="25,*">
        <frame src="chat.asp?mode=privatmessages_header" marginwidth="25" marginheight="0" scrolling="no" noresize>
        <frame src="chat.asp?mode=privatmessages" name="privatmessages" marginwidth="20" marginheight="15" scrolling="auto" noresize>
      </frameset>
    </frameset>
  </frameset>
<%If Application(""& Systemname &"_info") <> "" Then%></frameset><%End If%>
  <frame src="chat.asp?mode=messagepanel" name="messagepanel" marginwidth="10" marginheight="10" scrolling="no" noresize>
  <noframes>
  <body>

  </body>
  </noframes>
</frameset>

</html>
<%
    End If
End If

If Mode = "logout" Then
    If Application(""& Systemname &"_chatuser_" & Session(""& Systemname &"_chatuser")) <> "" Then
        For x = 1 To MaxPrivatMessages
            Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = ""
        Next
        For x = MaxPublicMessages To 2 Step -1
            Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
        Next
        Application(""& Systemname &"_publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : " & Session(""& Systemname &"_chatname") & " er logget af kl. " & time & "</font></b>"
        Application(""& Systemname &"_chatusers") = Application(""& Systemname &"_chatusers") - 1
        Application(""& Systemname &"_chatuser_" & Session(""& Systemname &"_chatuser")) = ""
        Session(""& Systemname &"_chatname") = ""
        Session(""& Systemname &"_chatuser") = ""
        Session(""& Systemname &"_chatadmin") = ""
    End If
%><!-- #include file="html/logout.html" --><%
End If

If Mode = "sendmessage" Then
    If Application(""& Systemname &"_chatuser_" & Session(""& Systemname &"_chatuser")) = "" Then
%>
<script language="JavaScript">
<!--
top.location.href="chat.asp?mode=error";
// -->
</script>
<%       
    Else
           
            If GemLog = 1 Then
            %>
            <!-- #include file="log/create.asp" -->
            <%
            End If
           
            response.cookies("lastcolor")=Request("tekstfarve")
           
        If Request("messageto") = "public" Then
            If InStr(LCase(Request("message")), "/me") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & Replace(Request("message"), Left(Request("message"), 3), "") & "</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/think") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & ": .oO( " & Replace(Request("message"), Left(Request("message"), 6), "") & " )</b></font>"                 
                                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/hils") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " hilser pænt på " & Replace(Request("message"), Left(Request("message"), 5), "") & " :o)</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/cht--") Then
                If Session(""& Systemname &"_chatadmin") <> "" Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Systemcolor & "'><b>Chatten&nbsp;: " & Replace(Request("message"), Left(Request("message"), 6), "") & "</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
                End If
                                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/warn--") Then
                If Session(""& Systemname &"_chatadmin") <> "" Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Systemcolor & "'><b>Chatten&nbsp;:  " & Session(""& Systemname &"_chatname") & " giver " & Replace(Request("message"), Left(Request("message"), 7), "") & " en advarsel! - Hvis du ikke stopper med det samme, smider jeg dig ud!!!</b></font>"
                End If
                                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/warn2--") Then
                If Session(""& Systemname &"_chatadmin") <> "" Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Systemcolor & "'><b>Chatten&nbsp;:  " & Session(""& Systemname &"_chatname") & " giver " & Replace(Request("message"), Left(Request("message"), 8), "") & " en KÆMPE advarsel! - <font size=4>HOLD SÅ MUND FOR FANDEN!!!!</font></b></font>"
                End If
                Response.Redirect "chat.asp?mode=publicmessages"

            ElseIf InStr(LCase(Request("message")), "/rose") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " giver en smuk rose til " & Replace(Request("message"), Left(Request("message"), 5), "") & " @--}-}---</b></font>"

Response.Redirect "chat.asp?mode=publicmessages"

            ElseIf InStr(LCase(Request("message")), "/big--") Then
                If Session(""& Systemname &"_chatadmin") <> "" Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Textcolor2 & "'><b>" & Session(""& Systemname &"_chatname") & "&nbsp;:&nbsp; <font size=4> " & Replace(Request("message"), Left(Request("message"), 6), "") & "</b></font>"
                End If
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/bye") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " siger pænt farvel til " & Replace(Request("message"), Left(Request("message"), 4), "") & " *FARVEL* :o)</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/sms") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " smiler MEGET sødt til " & Replace(Request("message"), Left(Request("message"), 4), "") & " *SMS* =:)</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/tak") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " takker og bukker pænt for " & Replace(Request("message"), Left(Request("message"), 4), "") & " :)</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/grin") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " griner sin røv i laser ;)</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            ElseIf InStr(LCase(Request("message")), "/respekt") Then
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_publicmessage_1") = "<font color='" & Request("textcolor") & "' size='3'><b>" & Session(""& Systemname &"_chatname") & ":</font><font color='ffcc00' size='3'> R E S P E K T ! ! !</b></font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            Else
            If InStr(LCase(Request("message")), ""& LCase(Bot_Name) &"") Then
                If Bot_ON_OFF = "ON" Then
                    %>
                        <!-- #include file="bot_public.asp" -->
                    <%
                Else
                    For x = MaxPublicMessages To 2 Step -1
                        Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                    Next
                    PublicMessage = Server.HTMLEncode(Request("message"))
               
                    If Request("Fed") = 1 Then
                    Bstart = "<b>"
                    Bslut  = "</b>"
                    Else
                    Bstart = ""
                    Bslut  = ""
                    End If
                   
                    If Request("Itallic") = 1 Then
                    Istart = "<i>"
                    Islut  = "</i>"
                    Else
                    Istart = ""
                    Islut  = ""
                    End If               
                End If
            Else
                For x = MaxPublicMessages To 2 Step -1
                    Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
                Next
                PublicMessage = Server.HTMLEncode(Request("message"))
           
                If Request("Fed") = 1 Then
                Bstart = "<b>"
                Bslut  = "</b>"
                Else
                Bstart = ""
                Bslut  = ""
                End If
               
                If Request("Itallic") = 1 Then
                Istart = "<i>"
                Islut  = "</i>"
                Else
                Istart = ""
                Islut  = ""
                End If
            End If
           
                Application(""& Systemname &"_publicmessage_1") = "<b>" & Session(""& Systemname &"_chatname") & " :</b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
                Response.Redirect "chat.asp?mode=publicmessages"
            End If
        Else
    If Request("messageto") = Bot_Name Then
        %>
            <!-- #include file="bot_private.asp" -->
        <%
    Else
            If InStr(LCase(Request("message")), "/jeg") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " " & Replace(Request("message"), Left(Request("message"), 4), "") & "</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " " & Replace(Request("message"), Left(Request("message"), 4), "") & "</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/tænk") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & ": .oO( " & Replace(Request("message"), Left(Request("message"), 5), "") & " )</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & ": .oO( " & Replace(Request("message"), Left(Request("message"), 5), "") & " )</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/hils") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " hilser pænt på " & Replace(Request("message"), Left(Request("message"), 5), "") & " :o)</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " hilser pænt på " & Replace(Request("message"), Left(Request("message"), 5), "") & " :o)</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/rose") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " giver en smuk rose til " & Replace(Request("message"), Left(Request("message"), 5), "") & " @--}-}---</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " giver en smuk rose til " & Replace(Request("message"), Left(Request("message"), 5), "") & " @--}-}---</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/farvel") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " siger pænt farvel til " & Replace(Request("message"), Left(Request("message"), 7), "") & " *FARVEL* :o)</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " siger pænt farvel til " & Replace(Request("message"), Left(Request("message"), 7), "") & " *FARVEL* :o)</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/sms") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " smiler MEGET sødt til " & Replace(Request("message"), Left(Request("message"), 4), "") & " *SMS* =:)</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " smiler MEGET sødt til " & Replace(Request("message"), Left(Request("message"), 4), "") & " *SMS* =:)</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/tak") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " takker og bukker pænt for " & Replace(Request("message"), Left(Request("message"), 4), "") & " :)</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " takker og bukker pænt for " & Replace(Request("message"), Left(Request("message"), 4), "") & " :)</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/grin") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " griner sin røv i laser ;)</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Actioncolor & "'><b>" & Session(""& Systemname &"_chatname") & " griner sin røv i laser ;)</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            ElseIf InStr(LCase(Request("message")), "/respekt") Then
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<font color='" & Request("textcolor") & "' size='3'><b>" & Session(""& Systemname &"_chatname") & ":</font><font color='green' size='3'> Respekt!!!</b></font>"
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<font color='" & Request("textcolor") & "' size='1'><b>" & Session(""& Systemname &"_chatname") & ":</font><font color='green' size='2'> Respekt!!!</b></font>"
                Response.Redirect "chat.asp?mode=privatmessages"
            Else
                For x = MaxPrivatMessages To 2 Step -1
                    Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_" & x-1)
                    Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x) = Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_" & x-1)
                Next
                PrivatMessage = Server.HTMLEncode(Request("message"))
                Application(""& Systemname &"_privatmessage_" & Request("messageto") & "_1") = "<b>" & Session(""& Systemname &"_chatname") & " :</b> " & PrivatMessage
                Application(""& Systemname &"_privatmessage_" & Session(""& Systemname &"_chatname") & "_1") = "<b>" & Session(""& Systemname &"_chatname") & " :</b> " & PrivatMessage
                Response.Redirect "chat.asp?mode=privatmessages"
            End If
    End If
        End If
    End If
End If

If Mode = "info" Then
%><!-- #include file="html/info.html" --><%
End If

If Mode = "usersonline_header" Then
%><!-- #include file="html/usersonline_header.html" --><%
End If

If Mode = "usersonline" Then
%><!-- #include file="html/usersonline.html" --><%
End If

If Mode = "functions_header" Then
%><!-- #include file="html/functions_header.html" --><%
End If

If Mode = "functions" Then
%><!-- #include file="html/functions.html" --><%
End If

If Mode = "publicmessages_header" Then
%><!-- #include file="html/publicmessages_header.html" --><%
End If

If Mode = "publicmessages" Then
%><!-- #include file="html/publicmessages.html" --><%
End If

If Mode = "privatmessages_header" Then
%><!-- #include file="html/privatmessages_header.html" --><%
End If

If Mode = "privatmessages" Then
%><!-- #include file="html/privatmessages.html" --><%
End If

If Mode = "messagepanel" Then
%><!-- #include file="html/messagepanel.html" --><%
End If

If Mode = "error" Then
%><!-- #include file="html/error.html" --><%
End If
%>

Kunne du hjælpe eller hva ?

-Hmmm... Nej, jeg tror ikke, jeg kan hjælpe alligevel... Men... Sandsynligvis er fejlen i din 'Simpelchat.inc'-fil... Prøv alligevel at indsætte den her også!

Lukketid?

? :)

??