webcall script

[Nelson Cruz 0]

Pessoal, sei que esse sistema é antigo, porem estou tentando usar fiz alguma correções, porem não consigo alterar a página chamada script, quando entro da o seguinte erro.

 

function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } document.write("IMAGEM DO CHAT");

 

o codigo da página é esse

<!--#include file="common.asp" -->
function MM_openBrWindow(theURL,winName,features) { //v2.0
 window.open(theURL,winName,features);
}

<%
Dim strQ,login_o
strQ = Request.querystring("Q")
IF strQ = "1" THEN strQ = strTxtAdminRequest ELSE strQ = "" END IF
%>
<%
'Set some variables
Dim rsChatRequest2 'Chat request record sheet

'Open a new connection to the database
adoCon.Open cString

'Create new SQL string
StrSQL="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';"

'Create new record sheet
set rsChatRequest2	=Server.CreateObject("ADODB.Recordset")

'Set cursor and locktypes
rsChatRequest2.CursorType = 2
rsChatRequest2.LockType = 3

'Open row data where the logged in users IP equals the IP in the database
rsChatRequest2.open StrSQL, CString

'Set
rsChatRequest2.fields("ChatRequest")=0

rsChatRequest2.Update

'Close record sheet and clean up
rsChatRequest2.Close
Set rsChatRequest2 = Nothing

set rs1 = server.createobject("ADODB.RecordSet")
StrSq1="SELECT * FROM tblSettings"
rs1.open StrSq1,cString,3,3

set rsp = server.createobject("ADODB.RecordSet")
StrSqp="SELECT * FROM tblSettings where o_online = 1"
rsp.open StrSqp,cString
if rsp.EOF then
%>
document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat/email.asp','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/images/off.gif></a>"); 
<%
else
%>
document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat/','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/images/on.gif></a>"); 
<%
NomeOperador = rsp("OperatorName")
login_o = rsp("login")
end if

'if rs1.recordcount => CInt("3") then
'set rs0 = server.createobject("ADODB.RecordSet")
'StrSq0_0="SELECT TOP 1 * FROM tblSettings where o_ocupado <> 1 AND o_online = 1 order by id desc "
'rs0.open StrSq0_0,cString
'if rs0.EOF then
%><!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat/email.asp','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat/images/off.gif></a>");--><%
'else
%><!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat/','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat/images/on.gif></a>");--><%
'NomeOperador = rs0("OperatorName")
'login_o = rs0("login")
'end if
'end if
%>

[Vinicius Ianni 189]

Aparentemente, o codigo ASP está correto, embora exista um trecho comentado, como está acusando um erra no js, se quiser posso mover para o pessoal do javascript para ver se eles acham onde está o erro.

Testou o codigo descomentando o trecho comentado ?

[xanburzum 169]

esse código js você fez ele traves do Dreamweaver ?

ele gera algum erro com linha e numero do erro ?

verifique se o path esta correto ?

[Nelson Cruz 0]

Esse sistema eu peguei pronto, ele está disponivel nesse link

 

Qual é a parte do codigo que devo tirar o comentário?

[Vinicius Ianni 189]

No final do código postado, tem algumas linhas com ' na frente, isso faz com que o código não seja interpretado pelo servidor por ser um comentário.