CHAT hjælp ????
Jeg ved ikke rigtigt hvordan jeg får min chat til at ud skrive i en andre frame...Koden har jeg indtil videre er =
<%
font = "<font face='Garamond' size='3'>"
page_header = ""
response.buffer = false
logoff_url = ""
antal_linier = 10
max_nicks = 30
mode = request.form("mode")
response.write "<html><head><script language='JavaScript'><!--" & vbcrlf
response.write " function ClearAndFocus() {" & vbcrlf
response.write " document.getname.tmptext.focus();" & vbcrlf
response.write " document.getname.Besked.value = document.getname.tmptext.value;" & vbcrlf
response.write " document.getname.tmptext.value = '';" & vbcrlf
response.write " }" & vbcrlf
response.write "--></script></head>"
response.write "<body onload='java script:document.getname.tmptext.focus();'>" & font
response.write "<form name='getname' action='c.asp' Method='Post' onSubmit='ClearAndFocus();'>"
response.write "<input type='hidden' name='mode' value='send'>"
response.write "<input type='hidden' name='Besked'>Besked : "
response.write "<input type='text' name='tmptext' size='35'> <input type='submit' value='Send'>"
response.write "</form>"
response.write "</font><!--" & vbcrlf
response.write " document.getname.tmptext.focus" & vbcrlf
response.write "--></body></html>" & vbcrlf
strBesked = request.form("Besked")
arrCmds = Split(strBesked, " ")
strTo = Request("writeto")
for x = antal_linier to 2 step -1
application("line_" & x) = application("line_" & x-1)
next
If Len(strBesked) > 0 Then
If arrCmds(0) = "/think" Then
application("line_1") = "<font face='Tahoma, Arial' color=" & strTextColor & ">" & strFaceType & "*" & strUsername & " . . o o O O ( " & Comb(arrCmds, 1) & " ) *" & strNoFaceType & "</font>"
else
application("line_1") = "<b><font color='" & text_color & "'>" & Comb(arrCmds, 0) & "</b></font>"
end if
end if
Sub FlushLines()
Application.Lock
For x = 1 To antal_linier
Application("line_" & x) = ""
Next
Application.UnLock
End Sub
Function Comb(text1, text2)
For intArrayIndex = text2 To UBound(text1)
strArr = text1(intArrayIndex): If strArr = "" Then strArr = " "
strComb = strComb & " " & strArr
Next
Comb = LTrim(RTrim(strComb))
End Function
<b>Her udskrive den det...
Men hvordan får jeg den til at gøre det i et andet vindue...</b>
for x = 1 to antal_linier
response.write "<body bgcolor='' text=black link=black alink=black vlink=black topmargin='10' leftmargin='10'>" & font
if session("debug") = "Yes" Then
response.write "application(line_"& x & ")" & application("line_" & x) & "<br>"
else
response.write application("line_" & x) & "<br>"
end if
next
%>
