Nelson Cruz

Amigo, também estou começando agora com PHP, mas você já tentou passar a query dentro de aspas duplas? tipo $SQL = "SELECT * FROM `usuarios` WHERE carga < 100"

Pessoal, estou precisando montar uma consulta para popular um relatorio, tenho uma tablema chamada SISTB001_PENDENCIAS e SISTB002_PRODUTOS_PEND. Na tabela SISTB002_PRODUTOS_PEND eu tenho um campo COD (primary key), PRODUTO e PENDENCIA. Na tabela SISTB001_PENDENCIAS eu faço o registro de todas as pendencias. no meu relatório eu preciso listar a quantidade de pendencias por produto e tipo de pendencia, mas para montar a tabela eu preciso que os produtos que não tenham registro retornem 0. SELECT SISTB002_PRODUTOS_PEND.PRODUTO, SISTB002_PRODUTOS_PEND.PENDENCIA, COUNT(*) AS totalFROM SISTB001_PENDENCIAS RIGHT OUTER JOIN SISTB002_PRODUTOS_PEND ON SISTB001_PENDENCIAS.COD_PROD_PEND = SISTB002_PRODUTOS_PEND.COD GROUP BY SISTB002_PRODUTOS_PEND.PRODUTO, SISTB002_PRODUTOS_PEND.PENDENCIA rodando essa queri ele retorna 1 para todas os tipos de pendencia e produto.

Consegui resolver o problema trocando localhost para 127.0.0.1

Pessoal estou começando a estudar essa plataforma, estava acostumando a trabalhar com HTML + ASP + SQL. Fiz a instalação do apache + PHPMYADM e agora estou tentando fazer a instalação do wordpress, criei o banco porem não consigo me conectar ao banco. Tenho certeza que o usuario e a senha estão corretas, pois logo com elas no painel do phpmyadmin. define('DB_NAME', 'wordpress'); /** Usuário do banco de dados MySQL */ define('DB_USER', 'root'); /** Senha do banco de dados MySQL */ define('DB_PASSWORD', '123'); /** nome do host do MySQL */ define('DB_HOST', 'localhost'); /** Conjunto de caracteres do banco de dados a ser usado na criação das tabelas. */ define('DB_CHARSET', 'utf8'); /** O tipo de collate do banco de dados. Não altere isso se tiver dúvidas. */ define('DB_COLLATE', ''); http://i.imgur.com/Q393cig.jpg alguém pode me ajudar, se for preciso passo ID e senha do TeamViwer

Pessoal tenho uma informação em uma tela que precisa ser parametro de uma outra na mesma tela.. alguém poderia me ajudar a adptar um codigo a minha pagina. o codigo que está funcionando é o seguinte. [table] <tr class="rows"> <td> <b>Oper. Venda:</b>&nbsp;&nbsp;&nbsp; <select name="fLOperVend" style="width:380" onChange="ComplForm();"> <option value="">Selecione...</option> <% SQL = "SELECT tbList_Opers.login_oper, tbList_Opers.nome_oper, EMPREGADOS.IDSUPERV "&_ "FROM tbList_Opers WITH (nolock) "&_ "LEFT OUTER JOIN EMPREGADOS WITH (nolock) ON tbList_Opers.login_oper = EMPREGADOS.LOGIN "&_ "WHERE (tbList_Opers.dtdemis IS NULL) "&_ "ORDER BY tbList_Opers.nome_oper" 'response.write sql 'response.end registro.open SQL,conexao,0,1 If registro.EOF then registro.close Else arrOper = registro.getrows() CountOp = uBound(arrOper, 2) registro.close For i = 0 to CountOp %> <option value="<%=arrOper(0,i)%>"><%=arrOper(1,i)%></option> <% Next End if %> </select> <br> <b>Super. Venda:</b>&nbsp; <select name="fLSupVend" style="width:380" id="idCoord"> <option value="">Selecione...</option> <% SQL = "SELECT login_coord, nome_coord "&_ "FROM tbList_Coord with(nolock) "&_ "WHERE (dtdemis IS NULL) "&_ "ORDER BY nome_coord" registro.open SQL,conexao,0,1 If registro.EOF then registro.close Else arrCoord = registro.getrows() CountCoord = uBound(arrCoord, 2) registro.close For i = 0 to CountCoord %> <option value="<%=arrCoord(0,i)%>"><%=arrCoord(1,i)%></option> <% Next End if %> </select> </td> </tr> [/table] <script language="JavaScript"> function ComplForm(){ matr = SubmitSel.fLOperVend.value; SubmitSel.fLSupVend.value=""; switch(matr){ <% For i = 0 To CountOp %> case '<%=arrOper(0,i)%>': SubmitSel.fLSupVend.value="<%=arrOper(2,i)%>"; break; <% Next %> } } </script> preciso que ele funcione nessa página. <tr bgcolor="#F5F8FF"> <td><img src="../Imagens/Blank.GIF" width="10" height="5"></td> <td class="Arial9_CZE_B" align="right">Setor:&nbsp;</td> <td colspan="4"> <select name="cboSetor" class="Arial9_CZE" onChange="ComplForm();"> <option value="">Selecione...</option> <% varSQL="SELECT * FROM SISTB05_SETOR" Set rsC = Server.CreateObject("ADODB.Recordset") rsC.open varSQL,varConSIOUV,3,1 If NOT rsC.EOF OR NOT rsC.BOF Then do while not rsC.eof %> <option value="<%=rsC("COD_SETOR")%>"><%=rsC("SETOR")%></option> <% rsC.movenext loop end if rsC.close set rsC=nothing varSQL="" %> </select> </td> </tr> <tr bgcolor="#F5F8FF"> <td><img src="../Imagens/Blank.GIF" width="10" height="5"></td> <td class="Arial9_CZE_B" align="right">Assunto:&nbsp;</td> <td colspan="4"><select name="cboAssunto" id="Setor"class="Arial9_CZE" > <option value="" selected>-escolha-</option> <% varSQL="SELECT * FROM SISTB06_ASSUNTO" Set rsC = Server.CreateObject("ADODB.Recordset") rsC.open varSQL,varConSIOUV,3,1 If NOT rsC.EOF OR NOT rsC.BOF Then do while not rsC.eof %> <option value="<%=rsC("COD_ASSUNTO")%>"><%=rsC("ASSUNTO")%></option> <% rsC.movenext loop end if rsC.close set rsC=nothing varSQL="" %> </select></td> </tr> Onde o que for selicionado na cboSetor altere as opções de assunto.

Pessoal, Estou com um desenvolvimento em que preciso pegar a matricula de um funcionario e fazer uma busca no banco de dados e devolvar na mesma página o nome do funcionario e seu supervisor. Queria saber como usar essa matricula que a pessoa digitou na minha pagina para fazer a buscar e imprimir os valores na mesma pagina. <tr bgcolor="#F5F8FF"> <td><img src="../Imagens/Blank.GIF" width="10" height="5"></td> <td class="Arial9_CZE_B" align="right">Feedback:&nbsp;</td> <td><select name="cboFeedBack" class="Arial9_CZE" onChange="document.getElementById('frmCadastro').submit()"> <option value="" selected>-escolha-</option> <% varSQL="SELECT * FROM SISTB09_FEEDBACK" Set rsC = Server.CreateObject("ADODB.Recordset") rsC.open varSQL,varConSIOUV,3,1 If NOT rsC.EOF OR NOT rsC.BOF Then do while not rsC.eof %> <option value="<%=rsC("COD_FEEDBACK")%>"><%=rsC("FEEDBACK")%></option> <% rsC.movenext loop end if rsC.close set rsC=nothing varSQL="" %> </select></td> <td class="Arial9_CZE_B" align="right">Matricula:</td> <td colspan="2"><input name="txtMatricula" type="text" class="Arial9_CZE" id="txtMatricula" size="30" maxlength="7"> <img src="../Imagens/Atualizar.jpg" width="20" height="17"></td> </tr> <tr bgcolor="#F5F8FF"> <td><img src="../Imagens/Blank.GIF" width="4" height="5"></td> <td class="Arial9_AZ_B" align="right">Operador:</td> <td class="Arial9_CZE_B"></td> <td class="Arial9_AZ_B" align="right">Supervisor:</td> <td colspan="2" class="Arial9_CZE_B"></td> </tr>

Pessoal sou novato na area e estou com um trabalho para entregar e não estou conseguindo resolver. Fiz um questionario para ser aplicado na minha empresa, porem não sei como recuperar as respostas para gravar no banco. Será que alguém pode me ajudar? <% response.Expires = 0 %> <% response.ExpiresAbsolute = Now() - 1 %> <% response.addHeader "pragma","no-cache" %> <!--#include file="func_login.asp"--> <!--#include file="novoINFO/_Estilos.asp"--> <% mrLogon = Request.ServerVariables("LOGON_USER") If mrLogon = "" then Response.Redirect "http://info.rj.caixa" End if 'Busco informações do usuário RetLogin = Ret_Info_Login() mrLogin = retlogin(0) mrDominio = retlogin(2) 'Critico o domínio if (mrDominio <> "RIODEJANEIRO") and (mrDominio <> "COREDF") and (mrLogin <> "C045320") and (mrLogin <> "C073156") and (mrLogin <> "C037635") and (mrLogin <> "C048902") then Response.Redirect "erro.asp?mensagem=Sistema não disponível para o seu domínio!" Response.end end if Set conexao = Server.CreateObject("ADODB.Connection") Set rsResposta = Server.CreateObject("ADODB.Recordset") Set rsPergunta = Server.CreateObject("ADODB.Recordset") conexao.CommandTimeout = 600 conexao.ConnectionTimeout = 600 server.ScriptTimeout=600 cntServidor = "SERVER=RXXXX;uid=saGITEL;pwd=XXXX;driver={SQL Server};database=INFO;" conexao.Open cntServidor %> <HTML> <HEAD> <TITLE>PESQUISA</TITLE> <script language="javascript"> function validar(){ alert("Entrei"); } </script> </HEAD> <BODY> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td class="Arial10_CZE_B">Caro Operador,<br><br> Visando a permanente melhoria de nossas atividades, pedimos que você responda ao questionário abaixo, considerando os feedbacks recebidos do(a) monitor (a) _______________ . Não é necessário se id entificar e, desde já, agradecemos sua participação. </td> </tr> </table> <FORM method="post" name="SubmitSel" action="pesQualidade.asp?Exibir=Sim" onSubmit="java script:return validar()" > <table border="0" cellpadding="0" cellspacing="0"> <% SQL = "SELECT cod_pergunta, " &_ " des_pergunta, " &_ " tip_pergunta " &_ " FROM tb_pergunta " &_ " WHERE cod_prova = 1 " &_ " ORDER BY cod_pergunta" rsPergunta.Open SQL, conexao,0,1 Do while not rsPergunta.EOF %> <br> <br> <tr> <td class="Arial10_CZE_B"><%=rsPergunta("des_pergunta")%></td> <tr><br> <% SQL = "SELECT CAST(tb_questionario.cod_pergunta AS varchar(4)) + '_' + CAST(tb_questionario.cod_resposta AS varchar(4)) AS id," &_ " tb_questionario.cod_resposta, " &_ " tb_resposta.des_resposta, " &_ " tb_resposta.opt_permite_desc " &_ " FROM tb_questionario INNER JOIN " &_ " tb_resposta ON tb_questionario.cod_resposta " &_ " = tb_resposta.cod_resposta " &_ " WHERE tb_questionario.cod_pergunta = " & rsPergunta("cod_pergunta") rsResposta.Open SQL, conexao,0,1 %> <table border="0" cellpadding="0" cellspacing="0"> <% Do while not rsResposta.EOF if rsPergunta("tip_pergunta") = "D" then %> <tr> <td><input id=<% =rsPergunta("cod_pergunta") %> name="<% =rsPergunta("cod_pergunta") %>" type="text" maxlength="350" size="150" ></td> </tr> <% elseif rsPergunta("tip_pergunta") = "E" then %> <tr> <td><input id=<% =rsPergunta("cod_pergunta") %> name="<% =rsPergunta("cod_pergunta") %>" value="<% =rsResposta("cod_resposta") %>" type="radio"> </td> <td class="Arial10_CZE"><%=rsResposta("des_resposta")%></td> </tr> <% elseif rsPergunta("tip_pergunta") = "M" then %> <tr> <td><input id=<% =rsPergunta("cod_pergunta") %> name="<% =rsPergunta("cod_pergunta") %>" value="<% =rsResposta("cod_resposta") %>" type="checkbox"> </td> <td class="Arial10_CZE"><%=rsResposta("des_resposta")%> &nbsp; <% if rsResposta("opt_permite_desc") = "S" then %> <input id=<% =rsPergunta("cod_pergunta") %> name="<% =rsPergunta("cod_pergunta") %>" type="text" maxlength="350" size="40"> <% end if %> </td> </tr> <% end if rsResposta.MoveNext Loop %> </table> <% rsResposta.close rsPergunta.MoveNext Loop rsPergunta.close %> </table> <TABLE width="100%"> <TR> <td align="center"> <INPUT align="left" type="submit" class="botao" value="Enviar"> </td> </TR> </TABLE> </form> <% set registro = nothing conexao.close set resposta = nothing set conexao = nothing %> </BODY> </HTML>

O erro estava aqui.. Do while not resposta.EOF %> <tr BGCOLOR="#3366CC"><td><FONT COLOR="WHITE"><B><%=resposta("des_resposta")%><B></FONT></td> <% resposta.MoveNext Loop Agora estou com um outro problema, com esse meu codigo eu leio todas as respostas possiveis para todas as perguntas, queria saber como faço para ler apenas as respostas correspondetes da pergunta em questão. No meu banco tb_resposta eu tenho um campo chamado cod_pergunta onde eu registro de qual pergunta é aquela resposta. Como posso fazer isso

Bareta, todos os campos estão corretos, inclusives executo elas no SQL e roda normal. Estou precisando mt de uma luz para resolver esse problema.

Pessoal estou fazendo uma pesquisa de satisfação na minha empresa, e estou tento esse seguinte erro na minha página. Ela imprime a pergunta e da erro na hora de listar as respostas. ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /pesQualidade.asp, line 135 <% response.Expires = 0 %> <% response.ExpiresAbsolute = Now() - 1 %> <% response.addHeader "pragma","no-cache" %> <!--#include file="func_login.asp"--> <% mrLogon = Request.ServerVariables("LOGON_USER") If mrLogon = "" then Response.Redirect "http://info.rj.caixa" End if 'Busco informações do usuário RetLogin = Ret_Info_Login() mrLogin = retlogin(0) mrDominio = retlogin(2) 'Critico o domínio if (mrDominio <> "RIODEJANEIRO") and (mrDominio <> "COREDF") and (mrLogin <> "C045320") and (mrLogin <> "C073156") and (mrLogin <> "C037635") and (mrLogin <> "C048902") then Response.Redirect "erro.asp?mensagem=Sistema não disponível para o seu domínio!" Response.end end if Set conexao = Server.CreateObject("ADODB.Connection") Set resposta = Server.CreateObject("ADODB.Recordset") Set registro = Server.CreateObject("ADODB.Recordset") conexao.CommandTimeout = 600 conexao.ConnectionTimeout = 600 server.ScriptTimeout=600 cntServidor = "SERVER=RJ7399sr003;uid=saGITEL;pwd=adm7399;driver={SQL Server};database=INFO;" conexao.Open cntServidor 'Busco as informações do formulário If request("fResp") = "" then mrResp = NULL Else mrResp = request("fResp") End if If request("fObs") = "" then mrObs = NULL Else mrObs = request("fObs") End if if request("Exibir") = "" then mrExibir = NULL else mrExibir = request("Exibir") end if %> <HTML> <HEAD> <TITLE>PESQUISA</TITLE> <script language="javascript"> mrclicou = 0; function validar(){ mrclicou = mrclicou + 1 if(mrclicou > 1){ alert("Já está sendo processado, aguarde!"); return false; } if(SubmitSel.fResp.value==""){ alert("A resposta se faz necessária"); SubmitSel.fResp.focus(); return false; } } </script> <style type="text/css"> <!-- .style1 {color: #000000} --> </style> </HEAD> <BODY background="fundo.jpg"> <FORM method="post" name="SubmitSel" action="pesQualidade.asp?Exibir=Sim"> <table width="100%"> <tr> <td align="left"> <table align="center" BORDER="1" WIDTH=50%> <% SQL = "SELECT cod_pergunta, des_pergunta FROM tb_pergunta "&_ "ORDER BY cod_pergunta" registro.Open SQL, conexao,0,1 If registro.EOF then Else Do while not registro.EOF %> <tr BGCOLOR="#3366CC"><td><span class="style1"><B><%=registro("des_pergunta")%><B></span></td> </tr> <% registro.MoveNext %> </table> <table width="100%"> <tr> <td align="left"> <table align="center" BORDER="1" WIDTH=50%> <% SQL = "SELECT cod_resposta, des_resposta FROM tb_resposta "&_ "ORDER BY cod_resposta" resposta.Open SQL, conexao,0,1 If resposta.EOF then Else Do while not resposta.EOF %> <tr BGCOLOR="#3366CC"><td><FONT COLOR="WHITE"><B><%=registro("des_resposta")%><B></FONT></td> <td ALIGN="CENTER"> <input type="radio" class="semborda" name="fResp" value="<%=registro("cod_resposta")%>"></td></tr> <% resposta.MoveNext Loop End if resposta.close Loop End if registro.close %> </table> </td> </table> <TABLE width="100%"> <TR> <td align="center"> <b><font size="4">Deixe aqui seu elogio, crítica ou sugestão.</font></b> </td> </TR> <TR> <td align="center"> <textarea name="fObs" rows=5 cols=50></textarea> <INPUT align="left" type="submit" class="botao" value="Enviar" onClick="java script:return validar()"> </td> </TR> </TABLE> <% if mrExibir = "Sim" then registro.Open "tb_PesqQualidade",conexao,3,3 registro.AddNew registro("Login_Oper")= mrLogin registro("Data") = Now() registro("Cod_Pergunta") = 1 registro("Cod_Resposta") = mrResp registro("Obs") = mrObs registro.Update registro.close %> <script> alert("Obrigado pela participação!"); window.close(); </script> <% end if %> <% set registro = nothing conexao.close set resposta = nothing set conexao = nothing %> </BODY> </HTML> alguém pode me ajudar?

Pessoal estou passando por um problema e já estou ficando sem cabelo... Vou postar meu codigo e no final o que está acontecendo. <style type="text/css"> <!-- a.link_azul:Link{ font-family: Arial, Helvetica, sans-serif; font-size: 11px; color:#0039BA; font-weight: bold; text-decoration:none} a.link_azul:hover{ font-family: Arial, Helvetica, sans-serif; font-size: 11px; color:#0039BA; font-weight: bold; font-style:inherit; text-decoration:underline} a.link_azul:visited{ font-family: Arial, Helvetica, sans-serif; font-size: 11px; color:#0039BA; font-weight: bold; text-decoration:none} a.link_azul:active { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color:#0039BA; font-weight: bold; text-decoration:none} --> </style> <table width="776" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="776" class="text-voce_esta" bgcolor="#F5F8FF">&nbsp;&nbsp;&nbsp;Voc&ecirc; est&aacute; em: <a href="../../../_Inicio.asp" class="link_azul">Início</a> <span class="text-azul">></span> <a href="#" class="link_azul">Atendimento</a> <span class="text-azul">&gt; </span><span class="link_azul"><a href="../FGTSSD.asp" class="link_azul">FGTS/SD</a></span><span class="text-azul"> &gt; </span><span class="text-laranja">Atualiza&ccedil;&atilde;o de endere&ccedil;os </span></td> </tr> </table> Nesse codigo somente o link de FGTS/SD está funcionando normalmente... o restando não aparece o sublicando quando passo o mouse.

Boa tarde pessoal. Tenho uma página em minha empresa para cadastro de noticias... porem os usuarios reclamam muito de ter que digitar comandos em HTML para mudar uma cor ou fonte. alguém teria um modelo como esse aqui do forum, com botões para inserir uma cor ou fonte.?

Pessoal, eu uso essa estrutura de menu que funciona muito bem. porem depois de tanto tempo usando esse tipo de menu em minha empresa surgiu a necessidade de ter um submenu, alguém teria uma dica para mim?? <% Dim varSQLMenu3 Dim rsLMenu3 Dim varSQLMenu4 Dim rsLMenu4 Dim varSQLMenu5 Dim rsLMenu5 ConectarBancoINFO varSQLMenu3="SELECT * FROM tbMenu where cod=3 ORDER BY Ordem" Set rsLMenu3 = Server.CreateObject("ADODB.Recordset") rsLMenu3.open varSQLMenu3,varConINFO,0,3 If NOT rsLMenu3.EOF OR NOT rsLMenu3.BOF Then varSQLMenu4="SELECT * FROM tbMenu where cod=4 ORDER BY Ordem" Set rsLMenu4 = Server.CreateObject("ADODB.Recordset") rsLMenu4.open varSQLMenu4,varConINFO,0,3 If NOT rsLMenu4.EOF OR NOT rsLMenu4.BOF Then varSQLMenu5="SELECT * FROM tbMenu where cod=5 ORDER BY Ordem" Set rsLMenu5 = Server.CreateObject("ADODB.Recordset") rsLMenu5.open varSQLMenu5,varConINFO,0,3 If NOT rsLMenu5.EOF OR NOT rsLMenu5.BOF Then %> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#C96E02"><img src="imagensMenu/Blank.GIF" width="1" height="23"border="0"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnInicio.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnVendas.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td background="ImagensMenu/btnAtendimento.gif" bgcolor="#C96E02" onMouseOver="layer_menu_01.style.display=''" onMouseOut="layer_menu_01.style.display='none'" width="96" height="23"> <div id="layer_menu_01" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC"> <% Do While NOT rsLMenu3.EOF %> <tr> <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu3.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu3.Fields.Item("LabelMenu").value%></strong></font></span></td> </tr> <tr> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> </tr> <% rsLMenu3.MoveNext Loop %> </table> </div></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td background="ImagensMenu/btnQualidade.gif" bgcolor="#C96E02" onMouseOver="layer_menu_02.style.display=''" onMouseOut="layer_menu_02.style.display='none'" width="96" height="23"> <div id="layer_menu_02" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC"> <% Do While NOT rsLMenu4.EOF %> <tr> <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu4.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu4.Fields.Item("LabelMenu").value%></strong></font></span></td> </tr> <tr> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> </tr> <% rsLMenu4.MoveNext Loop %> </table> </div></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td background="ImagensMenu/btnRH.gif" bgcolor="#C96E02" onMouseOver="layer_menu_03.style.display=''" onMouseOut="layer_menu_03.style.display='none'" width="96" height="23"> <div id="layer_menu_03" style="position:absolute; top:125px; z-index:3; display: none" onMouseOut="this.style.display='none'"> <table width="100" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF" bgcolor="#0066CC"> <% Do While NOT rsLMenu5.EOF %> <tr> <td bgcolor="#012A86" valign="middle"><p align="center"><img src="ImagensMenu/Seta_Submenu.GIF" height="21" width="16"></p></td> <td valign="middle" bgcolor="#012A86"><span style=cursor:hand onClick=window.open('<%=rsLMenu5.Fields.Item("LinkMenu").value%>','_self')><font color="#dae3f6" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rsLMenu5.Fields.Item("LabelMenu").value%></strong></font></span></td> </tr> <tr> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="20"></td> <td bgcolor="#0066CC"><img src="ImagensMenu/Blank.gif" height="1" width="300"></td> </tr> <% rsLMenu5.MoveNext Loop %> </table> </div></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnAcesso-rapido.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnBoletim.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnAniversariantes.gif" width="96" height="23" border="0"></a></td> </tr> </table> <% End If rsLMenu3.Close Set rsLMenu3=Nothing End If rsLMenu4.Close Set rsLMenu4=Nothing End If rsLMenu5.Close Set rsLMenu5=Nothing DesconectarBancoINFO %>

Pessoal estou com um problea... no meu trabalho eu uso o SQL server 2000 como em casa eu tenho o SEVEN tive que instalar o SQL server 2008 express. minha string para o 2000 é essa. varStringConexaoINFO = "SERVER=RJ7399XXX;uid=padrão;pwd=123456;driver={SQL Server};database=INFO;" Como ficaria essa string para o SQL server 2008 usando o windows autentication?

Agradeço quem tentou me ajudar mais o problema já foi resolvido.. coloquei o menu dentro de uma <table>. o problema esava acontecendo porque defini o coldspan em 7. vivendo e aprendendo

Pessoal estou fazendo um site e estou encontrando um erro que nunca vi na vida... Vamos ver se alguém pode me ajudar... pode ser que seja algo simples que não estou conseguindo ver. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="_Funcoes.asp"--> <html> <head> <title>INFO/RJ</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); </script> <style type="text/css"> <!-- .style1 { font-family: Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> <!--#include file="_estilos.asp"--> </head> <body bgcolor="#0E348C" leftmargin="0" topmargin="0"> <center> <table width="776" border="0" cellpadding="0" cellspacing="0" bordercolor="#E1EAFF"> <tr> <td colspan="7"><img src="Imagens/Topo.GIF" width="776" height="101"></td> </tr> <tr> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="1" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="96" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="1" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="96" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="1" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="580" height="1"></td> <td bgcolor="#C96E02"><img src="Imagens/Blank.GIF" width="1" height="1"></td> </tr> <!--#include file="_Menu.asp"--> <tr> <td colspan="7"><img src="Imagens/sombra_azul_abaixo_menu.GIF" width="776" height="17"></td> </tr> <tr> <td colspan="7"> <table width="776" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="55" bgcolor="#F5F8FF">&nbsp;</td> </tr> <tr> <td height="602" bgcolor="#F5F8FF"><img src="Imagens/Blank.GIF" width="25" height="1"></td> </tr> </table> </td> </tr> <tr bgcolor="#F5F8FF"> <td height="30" colspan="7"><img src="Imagens/Blank.GIF" width="776" height="30"></td> </tr> </table> </center> </body> </html> E esse é o codigo do meu menu. <tr> <td bgcolor="#C96E02"><img src="imagensMenu/Blank.GIF" width="1" height="23"border="0"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnInicio.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnVendas.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnAtendimento.gif" width="96" height="23" border="0"></a></td> <td bgcolor="#C96E02"><img src="ImagensMenu/btnMenuLaranja_DivBotoes.GIF" width="1" height="23"></td> <td bgcolor="#C96E02"><a href=""><img src="ImagensMenu/btnQualidade.gif" width="96" height="23" border="0"></a></td> </tr> Esqueci de colocar o que está acontecendo.. Se eu colocar mais de 3 botões no menu eles ficam fora da página... na verdade se eu colocar mais do q 6 <td> </td> eles ficam fora da página.

'********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() 'Dim conexao, registro, cntServidor set conexao = CreateObject("ADODB.Connection") set registro = CreateObject("ADODB.Recordset") set rs_historico = CreateObject("ADODB.Recordset") cntServidor = "Network Library=dbnmpntw;SERVER=RJ7399SR003;uid=suporte;pwd=adm7399;driver={SQL Server};database=SUPORTE;" conexao.CommandTimeout = 0 conexao.Open cntServidor tSQL = "SELECT H.cod AS cod_hist, C.cod AS cod_cham, S.nome AS situacao, C.descricao AS descr_cham, RIGHT(C.logn_inc, 7) AS logn_inc, ABRIU.NOME AS nme_inc, RIGHT(C.logn_alt, 7) AS logn_alt, ALTEROU.NOME AS nme_alt, H.descricao AS resp_cham, RIGHT(C.logn_inc, 7) + '@mail.caixa' as email " tSQL = tSQL + "FROM EMPREGADOS ALTEROU " tSQL = tSQL + "RIGHT OUTER JOIN tbChamados C " tSQL = tSQL + "INNER JOIN EMPREGADOS ABRIU ON RIGHT(C.logn_inc, 7) = ABRIU.LOGIN " tSQL = tSQL + "RIGHT OUTER JOIN tbSituacao S " tSQL = tSQL + "RIGHT OUTER JOIN tbHistorico H ON S.cod_sit = H.cod_sit ON C.cod = H.codcham ON ALTEROU.LOGIN = RIGHT(H.logn_inc, 7) " tSQL = tSQL + "WHERE (H.dt_envio_pendente IS NULL) and (H.cod_sit in(3))" registro.open tSQL, conexao, 3, 3 Set objConfig = CreateObject("CDO.Configuration") With objConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.correio.caixa" .Update End With ' Instantiate the CDO Message object. Set objMail = CreateObject("CDO.Message") If registro.EOF then Else Do while not registro.EOF email_destino = registro("email") '=======================Mensagem do envio de email================================ 'conteúdo da mensagem strBody = "<html><head>" & vbCrLf & vbCrLf & _ "</head><body> <b>MENSAGEM AUTOMATICA - SIATEL -CERAT/RJ</b>" & vbCrLf & _ "<br><br>NRº DO CHAMADO: " & registro("cod_cham") &"" & _ "<br><br>SITUAÇÃO: " & registro("situacao") &"" & _ "<br><br>DESCRIÇÃO: " & registro("descr_cham") & "" & _ "<br><br>RESPOSTA: " & registro("resp_cham") & "" & _ "<br><br>RESPONDIDO POR: " & registro("logn_alt") &" - " & registro("nme_alt") & "" & _ "<br><br>EQUIPE - SUPORTE TECNOLÓGICO." strBody = strBody & "</body></html>" With objMail Set .Configuration = objConfig .From = "ceratrj03@mail.caixa" .To = email_destino .CC = "c077237@mail.caixa,p606747@mail.caixa" .Subject = "MSG AUTOMATICA - SIATEL - CERAT/RJ" .HtmlBody = strBody .Send End With tSQL = "select dt_envio_pendente from tbhistorico where cod = " & registro("cod_hist") rs_historico.open tSQL, conexao, 3, 3 rs_historico("dt_envio_pendente") = now() rs_historico.update rs_historico.close registro.movenext loop End if registro.close set registro = nothing set rs_historico = nothing SET objMail = nothing Main = DTSTaskExecResult_Success End Function Essa DTS está dando o seguinte erro. "Falha na conexão do transporte com o servidor". erro na linha 66 alguém poderia me ajudar com esse problema??

Pessoal estou querendo uma coisa que deve ser simples mais não para mim. =D Preciso fazer com que a minha macro click em cada 22 segundos, independente de onde estiver o mouse.

Pesssoal estou precisando elaborar um aplicativo que presione o botão esquerdo do mouse a cada 22 segundas durante por 1000 vezes, alguém sabe como faço isso.

O erro está dando nessa parte do codigo. Dim varData As Datetime varData = sess0.Screen.GetString(20, 32, 2) & "/" & sess0.Screen.GetString(20, 37, 2) & "/" & sess0.Screen.GetString(20, 42, 4) If CDate(varData) >= CDate(rsC("DataAgend")) Then rsC.Edit rsC("Data") = varData rsC.Update rsC.Edit rsC("Contrato") = sess0.Screen.GetString(4, 32, 32) rsC.Update

Pessoal estou com um problema ao rodar uma macro, a macro já está feita. porem toda vez que eu coloco ela para rodar ela para em algum momento dando erro no tempo de execução. porem se fecho e abro de novo ela da erro em outro registro. não é um erro especifico por erro na programação. alguém sabe o que pode ser isso??

Isso, essa macro vai se conectar em um outro sistema para pegar algunas informações. vendo aqui direito eu deveria usar um for para pegar dados de três linhas, mais não estou conseguindo. está dando erro de loop sem do. Private Sub cmdPasso2_Click() Dim varData As String '********** iniciar variáveis ************************** Dim sess0, x As Object Dim system As Object Dim rsR As Recordset Dim mteste, wper As String Dim vEXTRA As String Dim b, z, s, n As Long '**************** P R I N C I P A L ************************* Dim rs, ts As Recordset Dim varPos As Currency Dim varEvo As Currency '************************************************************** Set system = CreateObject("EXTRA.System") ' varArquivo = Dir("c:\Arquivos de programas\Attachmate\E!E2K\Sessions\RedeCaixa2.edp") ' começo da abertura do EXTRA =================================================== If (system Is Nothing) Then MsgBox "Não foi possível criar o objeto EXTRA. Anulando execução da macro !." Stop End If ' If varArquivo <> "" Then ' vEXTRA = "c:\Arquivos de programas\Attachmate\E!E2K\EXTRA.exe " + _ ' "c:\Arquivos de programas\Attachmate\E!E2K\Sessions\RedeCaixa2.edp" ' Else ' vEXTRA = "e:\Arquivos de programas\Attachmate\E!E2K\EXTRA.exe " + _ ' "e:\Arquivos de programas\Attachmate\E!E2K\Sessions\RedeCaixa2.edp" ' End If ' GoSub Tempo ' Shell vEXTRA Set sess0 = system.ActiveSession ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' If sess0.Screen.GetString(17, 16, 17) <> "SELECIONE A OPCAO" Then ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' End If ' sess0.Screen.putstring "5", 17, 38, 1 ' sess0.Screen.putstring "20", 17, 41, 2 ' sess0.Screen.SendKeys ("<ENTER>") ' GoSub Tempo ' If sess0.Screen.GetString(13, 2, 8) = "AMBIENTE" Thens ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' End If ' sess0.Screen.putstring "c088264", 16, 19, 7 ' sess0.Screen.putstring "vit1204", 16, 42, 7 ' sess0.Screen.SendKeys ("<ENTER>") ' ' GoSub Tempo ' If sess0.Screen.GetString(4, 22, 21) = "SISTEMA DE APLICACOES" Then ' GoSub Tempo ' GoSub Tempo ' GoSub Tempo ' End If sess0.Screen.putstring "05", 5, 15, 2 sess0.Screen.putstring "20", 6, 15, 2 sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo If sess0.Screen.GetString(4, 22, 21) = "SISTEMA DE APLICACOES" Then GoSub Tempo GoSub Tempo GoSub Tempo End If Dim varTipo As String Dim rsC As Recordset Set rsC = CurrentDb.OpenRecordset("tbResultado", dbOpenDynaset) If rsC.RecordCount <> 0 Then Do While Not rsC.EOF If Len(rsC("cpfcnpj")) <= 11 Then sess0.Screen.putstring "1", 6, 13, 1 sess0.Screen.SendKeys ("<ENTER>") ElseIf Len(rsC("cpfcnpj")) > 11 Then sess0.Screen.putstring "2", 6, 13, 1 sess0.Screen.SendKeys ("<ENTER>") End If GoSub Tempo If sess0.Screen.GetString(9, 3, 6) = "NUMERO" Then GoSub Tempo GoSub Tempo GoSub Tempo End If sess0.Screen.putstring " ", 9, 16, 12 sess0.Screen.putstring " ", 9, 31, 2 sess0.Screen.putstring Left(rsC("cpfcnpj"), Len(rsC("cpfcnpj")) - 2), 9, 16, Len(Left(rsC("cpfcnpj"), Len(rsC("cpfcnpj")) - 2)) sess0.Screen.putstring Right(rsC("cpfcnpj"), 2), 9, 31, 2 sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo If sess0.Screen.GetString(22, 4, 18) = "DV DO CPF INVALIDO" Then rsC.Edit rsC("Erro") = 1 rsC("Ocorrencia") = sess0.Screen.GetString(22, 4, 18) rsC.Update GoTo Pula End If If sess0.Screen.GetString(22, 4, 22) = "NUMERO DO CPF INVALIDO" Then rsC.Edit rsC("Erro") = 2 rsC("Ocorrencia") = sess0.Screen.GetString(22, 4, 22) rsC.Update GoTo Pula End If If sess0.Screen.GetString(23, 4, 54) = "TECLE <ENTER> PARA VERIFICAR A EXISTENCIA DE CONTRATOS" Then sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo For s = 10 To 16 n = 11 If sess0.Screen.GetString(n, 2, 9) = "LIQUIDADO" Then sess0.Screen.putstring "s", s, 15, 1 sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo varData = sess0.Screen.GetString(20, 32, 2) & "/" & sess0.Screen.GetString(20, 37, 2) & "/" & sess0.Screen.GetString(20, 42, 4) If CDate(varData) >= CDate(rsC("DataAgend")) Then MsgBox "Grava" Else 'MsgBox "Não grava" End If sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") n = n + 3 b = 1 End If s = s + 3 Next ' MsgBox sess0.Screen.GetString(22, 4, 18) ' End Pula: rsC.MoveNext Loop End If rsC.Close MsgBox "Fim" Exit Sub Tempo: For b = 1 To 50000000 Next Return End Sub

Pessoal estou apanhando um pouco da lógica e gostaria de contar com a ajuda de vocês. Estou criando uma macro para manipular um sistema na minha empresa. e não estou conseguindo montar os ifs em um determinado ponto. Estou testando isso, mais se isso for falso teria que testar outras três linhas para depois voltar com a minha macro e fazer um outro registro. If sess0.Screen.GetString(11, 2, 6) = "NORMAL" Then If sess0.Screen.GetString(23, 4, 54) = "TECLE <ENTER> PARA VERIFICAR A EXISTENCIA DE CONTRATOS" Then sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo If sess0.Screen.GetString(11, 2, 6) = "NORMAL" Then sess0.Screen.putstring "s", 10, 15, 1 sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo sess0.Screen.SendKeys ("<ENTER>") GoSub Tempo GoSub Tempo varData = sess0.Screen.GetString(20, 32, 2) & "/" & sess0.Screen.GetString(20, 37, 2) & "/" & sess0.Screen.GetString(20, 42, 4) If CDate(varData) >= CDate(rsC("DataAgend")) Then MsgBox "Grava" Else 'MsgBox "Não grava" End If sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") GoSub Tempo sess0.Screen.SendKeys ("<PF3>") b = 1 End If End If ' MsgBox sess0.Screen.GetString(22, 4, 18) ' End Pula: rsC.MoveNext Loop End If rsC.Close MsgBox "Fim" Exit Sub Tempo: For b = 1 To 50000000 Next Return End Sub

Pessoal sou muito novato em banco de dados, e estou com um problema. Tenho uma consulta feita, porem quando o resultado é NULL da erro na minha página asp. gostaria de saber como deve acertar isso na minha procedure. SELECT tbmotivousuario.login_oper, tbmotivousuario.nome_oper, CASE WHEN (tbMotivoUsuario.[Tempo Total])<> '' THEN (SUM(dbo.ConvertParaSegundos(tbMotivoUsuario.[Tempo Total])/dbo.ConvertParaSegundos(tbusersdepart.ativos))) * 100 ELSE 0 END AS [TELIGO], tbmotivousuario.data FROM tbmotivousuario with(nolock) RIGHT OUTER JOIN tbusersdepart ON tbMotivoUsuario.login_oper = tbusersdepart.login_oper AND tbusersdepart.data = tbmotivousuario.data WHERE (tbmotivousuario.data BETWEEN '08/08/2011' and '08/10/2011') AND (tbmotivousuario.[motivo do estado] = 'Pausa - Teligo Inop -TNO') AND (tbmotivousuario.login_oper in ('P514782', 'P521237','P564764', 'P602979')) GROUP BY tbMotivoUsuario.login_oper, tbMotivoUsuario.nome_oper, tbmotivousuario.data, tbMotivoUsuario.[Tempo Total] )PAUSA_TELIGO_INOP ) PAUSA_TELIGO_INOP ON tblogon_logoff.login_oper = PAUSA_TELIGO_INOP.login_oper AND tblogon_logoff.data = PAUSA_TELIGO_INOP.data

Esse codigo eu salvo com extensão .vbs e eu crio ele pelo notepad, deve ser por isso que está dando errado. Esse que você me passo está ok, porem não consigo iniciar ele pelo dos. Deixa eu explicar o porque preciso do DOS, tenho uma bat para padronizar os micros verificar criar atalhos na area de trabalho dos usuarios da minha empresa e remover perfis antigos, e no fim a bat chama essa minha VBS. ("Cscript Discador_PA.vbs")