Up Yardım edecek mürid yok mu ya haftalardır bu sistem üzerine ugraşıyorum. :( Javascript iyi bilen bir mürit eminin 2 dk çzecektir. :)

Müridler siteme online yardım koymak için bir scripti buldum ama bu scriptin sayfaya cekerken hata veriyor sorun nedir anlmadım bir bakarsanız. Sorunu blnOperator=false olarak gsteriyor <% sub livechatStatus blnOperator = false if IsArray(Application then arrUser = Application for intCount = 1 to UBound(arrUser, 2) if arrUser(2, intCount) = true and arrUser(4, intCount) >= DateAdd("s", -20, Now then blnOperator = true end if next end if if blnOperator then response. write "<a href=""#"" onClick=""openChat ;""><img border=""0"" height=""60"" src=""/livechat/images/online. jpg"" width=""120""></a>" & vbCrLf else response. write "<a href=""#"" onClick=""openChat ;""><img border=""0"" height=""60"" src=""/livechat/images/offline. jpg"" width=""120""></a>" & vbCrLf end if end sub response. write "<html>" & vbCrLf response. write "<head>" & vbCrLf response. write "<title>Canli Destek</title>" & vbCrLf response. write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & vbCrLf response. write "<script>" & vbCrLf response. write "function openChat " & vbCrLf response. write "function getCookie {" & vbCrLf response. write "var dc = document. cookie;" & vbCrLf response. write "var prefix = name + ""="";" & vbCrLf response. write "var begin = dc. indexOf ;" & vbCrLf response. write "if (begin -1) else" & vbCrLf response. write "begin += 2;" & vbCrLf response. write "var end = document. cookie. indexOf ;" & vbCrLf response. write "if (end -1)" & vbCrLf response. write "end = dc. length;" & vbCrLf response. write "return unescape(dc. substring ;" & vbCrLf response. write "}" & vbCrLf response. write "function openMessenger " & vbCrLf response. write "</script>" & vbCrLf response. write "</head>" & vbCrLf response. write "<body>" & vbCrLf response. write "<p>" & vbCrLf livechatStatus response. write "</body>" & vbCrLf response. write "</html>" %>

Mürideler bu konuyu daha nce acmıştım. Ama o zamanki sorunıu czdüma ama başımda daha büyük bir dert var. Bu scripte yazışırken sayfa aşağı doğru kaymıyor yani adminle yazışıyorum bir süreden sonra yazışmalar cogalınca sağ tarafta sayfayı aşağı kaydırma cubugu cıkıyor ama ben otomatik olarak kaymasını istiyorum javascript kodu buldum her 5 saniyede bir sayfayı aşağı indirsindiye kod çalışıyor ama bu sisteme gmdüğümde çalışmıyor. ben sayfayı aşağı indirme kodunu chat. asp ye yerleştiriyorum. Ama gecen kodların arasında gzüme şyle bir kod çarptı"function toBottom " sanıyorum kendi zelliginde sayfayı aşağı indirme var ama çalışmıyor. Müridler bir yardım etseniz. Chat. asp <!--#include file="functions. asp"--> <% Application. Lock response. expires = 0 if IsNumeric(request then lngUser = CLng(request else lngUser = 0 end if response. write "<html>" & vbCrLf response. write "<head>" & vbCrLf response. write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & vbCrLf response. write "<script>" & vbCrLf if request = "on" then getUser ReDim arrTempUser(5, 0) for intCnt = 1 to UBound(arrUser, 2) if arrUser(0, intCnt) <> lngUser then ReDim Preserve arrTempUser(5, UBound(arrTempUser, 2) + 1) arrTempUser(0, UBound(arrTempUser, 2)) = arrUser(0, intCnt) arrTempUser(1, UBound(arrTempUser, 2)) = arrUser(1, intCnt) arrTempUser(2, UBound(arrTempUser, 2)) = arrUser(2, intCnt) arrTempUser(3, UBound(arrTempUser, 2)) = arrUser(3, intCnt) arrTempUser(4, UBound(arrTempUser, 2)) = arrUser(4, intCnt) arrTempUser(5, UBound(arrTempUser, 2)) = arrUser(5, intCnt) end if next arrUser = arrTempUser Application = arrUser response. write "window. close ;" & vbCrLf response. write "</script>" & vbCrLf response. write "</head>" & vbCrLf response. write "</html>" & vbCrLf end if if lngUser > 0 then getRoom blnTaken = false for intCount = 1 to UBound(arrRoom, 2) if lngUser = arrRoom(1, intCount) then blnTaken = true exit for end if next if blnTaken then response. write "window. close ;" & vbCrLf response. write "</script>" & vbCrLf response. write "</head>" & vbCrLf response. write "</html>" & vbCrLf response. end end if newRoom lngUser, session strName = findName else lngAdmin = findAdmin(session strName = findName end if response. write "var varLoaded=false;" & vbCrLf response. write "var varDate='';" & vbCrLf response. write "var varLast='';" & vbCrLf response. write "function callServer {" & vbCrLf response. write " if {" & vbCrLf response. write "var head=document. getElementsByTagName . item(0);" & vbCrLf response. write "var scriptTag=document. getElementById ;" & vbCrLf response. write "if head. removeChild ;" & vbCrLf response. write "script=document. createElement ;" & vbCrLf response. write "var pc=navigator. userAgent. toLowerCase ;" & vbCrLf response. write "var ie4_win=(pc. indexOf !=-1)&&(pc. indexOf !=-1)&&(parseInt >=4);" & vbCrLf response. write "if (ie4_win true){" & vbCrLf response. write "if else " & vbCrLf response. write "}else " & vbCrLf response. write "script. src='server. asp?task=rx&user=" & lngUser & "&typing='+blnTyping+'&last='+varLast+'&rnd='+Math. random ;" & vbCrLf response. write "script. type='text/javascript';" & vbCrLf response. write "script. id='loadScript';" & vbCrLf response. write "head. appendChild ;" & vbCrLf response. write "}" & vbCrLf response. write "}" & vbCrLf response. write "function toBottom {" & vbCrLf response. write "var chatBoxHTML=document. getElementById ;" & vbCrLf response. write "var sDummy=document. getElementById . scrollHeight+document. getElementById . scrolltop;" & vbCrLf response. write "document. getElementById . scrolltop=document. getElementById . scrollHeight;" & vbCrLf response. write "if " & vbCrLf response. write "blnOnline=true;" & vbCrLf response. write "}" & vbCrLf response. write "function offline {" & vbCrLf response. write "if " & vbCrLf response. write "blnOnline=false;" & vbCrLf response. write "}" & vbCrLf response. write "blnOnline=true;" & vbCrLf response. write "focal=false;" & vbCrLf response. write "function FocusTrigger " & vbCrLf response. write "function BlurTrigger " & vbCrLf response. write "window. onfocus = FocusTrigger;" & vbCrLf response. write "window. onblur = BlurTrigger;" & vbCrLf response. write "function playAlert {" & vbCrLf response. write "if {" & vbCrLf response. write "var sound=eval ;" & vbCrLf response. write "try catch " & vbCrLf response. write "try catch " & vbCrLf response. write "}" & vbCrLf response. write "}" & vbCrLf response. write "setInterval('callServer ',1500);" & vbCrLf response. write "</script>" & vbCrLf response. write "<title>" & strName & " - Online</title>" & vbCrLf response. write "</head>" & vbCrLf response. write "<body background=""images/bg_chat_board. jpg"" alink=""#000000"" text=""#000000"" link=""#000000"" vlink=""#000000"" leftmargin=""0"" marginheight=""0"" marginwidth=""0"" topmargin=""0"">" & vbCrLf response. write "<table height=""100%"" width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf response. write "<tr>" & vbCrLf response. write "<td>" & vbCrLf response. write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf response. write "<tr>" & vbCrLf response. write "<td><embed height=""0"" width=""0"" src=""images/alert. wav"" hidden=""true"" autostart=""false"" name=""soundalert"" enablejavascript=""true""></td>" & vbCrLf response. write "</tr>" & vbCrLf response. write "</table>" & vbCrLf response. write "</td>" & vbCrLf response. write "</tr>" & vbCrLf response. write "<tr height=""100%"">" & vbCrLf response. write "<td valign=""top"">" & vbCrLf response. write "<table height=""100%"" width=""100%"" border=""0"" cellpadding=""30"" cellspacing=""0"">" & vbCrLf response. write "<tr>" & vbCrLf response. write "<td>" response. write "<p id=""chatBox"" style=""width:100%; height:100%; overflow:auto; overflow-x:hidden; scrollbar-base-color:#82CDF7; scrollbar-arrow-color:#3B7695; scrollbar-3dlight-color:#9ED8F9; scrollbar-darkshadow-color:#446C82; scrollbar-face-color:#82CDF7; scrollbar-highlight-color:#BBE4FB; scrollbar-shadow-color:#2C4654;""></p>" & vbCrLf response. write "</td>" & vbCrLf response. write "</tr>" & vbCrLf response. write "</table>" response. write "</td>" & vbCrLf response. write "</tr>" & vbCrLf response. write "<tr>" & vbCrLf response. write "<td>" & vbCrLf response. write "<table height=""42"" width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbCrLf response. write "<tr><td>" response. write "<iframe height=""42"" width=""100%"" border=""0"" frameborder=""0"" name=""postmessage"" id=""postmessage"" scrolling=""no"" src=""server. asp?task=tx&user=" & lngUser & """></iframe>" response. write "</td></tr>" & vbCrLf response. write "</table></td>" & vbCrLf response. write "</tr>" & vbCrLf response. write "</table>" & vbCrLf response. write "</body>" & vbCrLf response. write "</html>" & vbCrLf Application. UnLock %> Benim Buldugum sayfayı aşağı indirmesi için buldugum script kodu <script type="text/javascript"> function pageScroll </script> </head> <body onLoad="pageScroll "> </body> Buda script indirebileceginiz adres http://moonlightchest.com/freestuff/livechat. zip

Müridler gerek kalmadı sorunu czdüm. Sorun değişkenlerdeymiş.