Eu não estou consequindo me conectar

arldin · Agosto 18, 2008

Olha amigos eu consequi resolver alguns erros do webcall.

Chego ate me loco como operador libero operador me loco como ussuario ele me pede o nome departamento e operador tudo bem. Ai eu tc em entrar ai ele ficxa na pagina de conectando com o operador aquarde e não se conecta

O link e este http://www.arldinartfest.com.br/chat/default.asp

O script da pagina e este abaixo

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="common.asp" --><!--#include file="check.asp" --><%
'On Error Resume Next
Dim strQ,login_o
strQ = Request.querystring("Q")
[code]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 & "';"
'StrSQL="SELECT * FROM tblActiveUsers;"

'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

'if rs1.recordcount <= CInt("3") then
'NomeOperador = rsp("OperatorName")
'login_o = rsp("login")
'end if

'if rs1.recordcount => CInt("1") 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
'response.redirect "una.asp"
'end if
'NomeOperador = rs0("OperatorName")
'login_o = rs0("login")
'end if


%><%
	'Redirect the administrator if the password in query string matches the one in the database
	IF strAdminPass	 = QstrAdminPass THEN Response.redirect("http://www.arldinartfest.com.br/chat/chat.asp?addpass="&strAdminPass&"&ID="&intUsrID)
%><HTML><HEAD><TITLE><%=strTxttitulosite%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1"><LINK 
href="style.css" type=text/css rel=stylesheet>
<script language=javascript>
function centraliza(x,y)
{
		window.resizeTo(x,y);
		window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);

centraliza(410,350);}
</SCRIPT>

<script language=javascript>
function centraliza(x,y)
{
		window.resizeTo(x,y);
		window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);

centraliza(410,350);}
</SCRIPT>

<STYLE type=text/css>
<!--
.style1 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
}
.formulario {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}
-->
	</STYLE>

<script>

function carregar(){
var url;
url = 'remote1.asp?aux=1&depto='+document.form1.Departamento[document.form1.Departamento.selectedIndex].valu
e;
document.form1.login_o.options.length = 0;
if (document.form1.Departamento.value=="semdepto"){
window.location.href='default.asp';
}else{
addItem(document.form1.login_o,"Aguarde...carregando", "",false,document.form1.login_o.length)
}
myIframe.location = url;
//document.form1.login_o.focus()

}

function inicia(){
local1 = new Array();
var maximo1, i, campo1;
local1 = myIframe.org;
campo1 = document.form1.login_o;
maximo1 = local1.length;
document.form1.login_o.options.length = 0;
//addItem(campo1,'TODAS','',false,campo1.length);
for (i=0;i<maximo1;i++){
  addItem(campo1,local1[i][1],local1[i][0],false,campo1.length);
}
}

function addItem(obj,strText,strValue,blSel,intPos){ 
	var newOpt,i,ArTemp,selIndex; 
	selIndex = (blSel)?intPos:obj.selectedIndex; 
	newOpt = new Option(strText,strValue); 
	Len = obj.options.length+1 
	if (intPos > Len) return 
	obj.options.length = Len 
	if (intPos != Len) { 
		 ArTemp = new Array(); 
		 for(i=intPos;i<obj.options.length-1;i++) 
			  ArTemp[i] = Array(obj.options[i].text,obj.options[i].value); 
		 for(i=intPos+1;i<Len;i++) 
			  obj.options[i] = new Option(ArTemp[i-1][0],ArTemp[i-1][1]); 
	} 
	obj.options[intPos] = newOpt; 
	if (selIndex > intPos) 
		 obj.selectedIndex = selIndex+1; 
	else if (selIndex == intPos)  
		 obj.selectedIndex = intPos; 
} 
function validar(){
  if ((document.form1.login.value=="")||(document.form1.Departamento.value=="semdepto")||(document.form1.login_o.value=="0")){
  ;
	return;
}
}


</SCRIPT>

<META content="MSHTML 6.00.2900.3354" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#176093 aLink=#176093 link=#176093 bgColor=#ffffff 
leftMargin=0 background=images/image306.gif topMargin=0 
onload="java script:document.all.operadores.style.visibility = 'hidden'" 
marginwidth="0" marginheight="0">
<DIV style="DISPLAY: none; POSITION: absolute" align=left><IFRAME id=myIframe 
name=myIframe marginWidth=0 marginHeight=0 src="<%=strTxtDominio%>" width=100 
height=remote1.asp chat Arldinartfest></IFRAME></DIV>
<TABLE height=300 cellSpacing=0 cellPadding=0 width=400 border=0>
  <TBODY>
  <TR>
	<TD vAlign=top><IMG src="images/topo.gif"></TD></TR>
  <TR>
	<TD height=200>
	  <TABLE cellSpacing=0 cellPadding=2 width="98%" align=center border=0>
		<TBODY>
		<TR>
		  <TD class=main align=middle>
			<FORM id=form1 name=form1 onsubmit=java script:validar(); 
			action=chat_sort.asp method=post>
			<DIV align=center>
			<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0>
			  <TBODY>
			  <TR>
				<TD align=middle> </TD></TR>
			  <TR>
				<TD align=middle><FONT 
				  face="Verdana, Arial, Helvetica, sans-serif" size=1><%=strTxtWelcome%></FONT></TD></TR>
			  <TR>
				<TD align=middle> </TD></TR>
			  <TR>
				<TD align=middle><FONT 
				  face="Verdana, Arial, Helvetica, sans-serif" size=1>Seu 
				  nome:</FONT> <INPUT class=form size=15 name=login> </TD></TR>
			  <TR>
				<TD align=middle><IMG height=5 src="#" width=8></TD></TR>
			  <TR>
				<TD align=middle><SELECT class=form 
				  onchange="java script:carregar();document.all.operadores.style.visibility = 'visible' " 
				  name=Departamento> <OPTION value=semdepto selected>Escolha o 
					departamento:</OPTION> <OPTION 
					value=Atendimento>Atendimento</OPTION></SELECT> </TD></TR>
			  <TR>
				<TD align=middle><IMG height=5 src="#" width=8></TD></TR>
			  <TR>
				<TD id=operadores align=middle><SELECT class=form size=1 
				  name=login_o></SELECT> </TD></TR>
			  <TR>
				<TD align=middle><IMG height=5 src="#" width=8></TD></TR>
			  <TR>
				<TD align=middle><INPUT class=form type=submit value=entrar name=Submit></TD></TR>
			  <TR>
				<TD 
		align=middle> </TD></TR></TBODY></TABLE></DIV></FORM></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
	<TD height=25>
	  <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
		<TBODY>
		<TR>
		  <TD align=middle><FONT face="Verdana, Arial, Helvetica, sans-serif" 
			color=#666666 size=1>Powered by <A 
			href="http://www.arldinartfest.com.br" target=_blank>Arldinartfest 
			</A></FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>

Ai ele vai para este outro

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="common.asp" --><%
Dim addpass 								
Dim strUsername
Dim usrID						
Dim rs_q
Dim login_o

usrID = CLng(Request.querystring("ID"))
username = Request.querystring("username")
addpass = Request.querystring ("addpass")
login_o = Request.querystring ("login_o")

set rs_q = server.createobject("ADODB.RecordSet")
'rs_q.open "SELECT * FROM tblActiveUsers WHERE ID = " & usrID & " AND login = '" & login_o & "'  ",cString
rs_q.open "SELECT * FROM tblActiveUsers WHERE ID = " & usrID & "  ",cString
chat = rs_q("ChatRequest")
if chat = "5" then
response.redirect("http://www.arldinartfest.com.br/chat/chat.asp?addpass="&addpass&"&ID="&usrID&"&event=login&username="&username&"&login_o="&rs_q("Login"))
'response.redirect("http://www.arldinartfest.com.br/chat/chat.asp?addpass="&addpass&"&ID="&usrID&"&event=login&username="&username)
else
' nada
end if
%><HTML><HEAD><TITLE><%=strTxttitulosite%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE type=text/css>
<!--
.form {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #CC3300}
-->
</STYLE>

<META content="MSHTML 6.00.2900.3354" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 
background=images/image306.gif topMargin=0 
marginwidth="0" marginheight="0">
<META http-equiv=refresh content=3>
<TABLE cellSpacing=0 cellPadding=0 width=400 border=0>
  <TBODY>
  <TR>
	<TD><IMG src="images/topo.gif"></TD></TR>
  <TR>
	<TD> </TD></TR>
  <TR>
	<TD> </TD></TR>
  <TR>
	<TD> </TD></TR>
  <TR>
	<TD align=middle><FONT face="Verdana, Arial, Helvetica, sans-serif" 
size=1><!--#include file="inc_aguarde.asp" --></FONT></TD></TR></TBODY></TABLE>
<P><IMG style="WIDTH: 464px; HEIGHT: 268px" height=309 
src="images/image428.jpg" 
width=430></P></BODY></HTML>

Se alguem poder me da uma ajuda eu agradeço a toddos

Ted k' · Agosto 18, 2008

Movido de Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

Entrar

Arquivado

Eu não estou consequindo me conectar

Recommended Posts

arldin 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante