Clauido José

Pessoal é seguinte quero criar um grid atualizavel toda vez que o usuario insirir um novo registro ele atualiza o grid atomaticamente alguém tem algum exemplo com asp e .mdb

Ola desculpe não lembro como faz mas tem uma pagina que tem 5 checkbox com o mesmo nome bom o que eu quero e que quando eu tiver clicado em um deles ele entre numa pagina e quando eu voltar desta pagina ele deixa selecinado o mesmo checkbox que eu seleiconei. Na verdade é seguinte o que eu quero. Tenho uma pagina que estou fazendo com asp, e ajax bom e nela eu faço uma pesquisa e chamo 3 paginas, bom o que eu quero é que estiver na 3 pagina e o usuario clicar em voltar ele volte para pagina da pesquisa anterior é possivel isso? Pessoal é seguiinte estou desenvolvendo um sistema em ajax, asp com base de dados access 2003, bom é seguinte nesse sistema eu tenho uma tela principal chamada default.asp, nela eu tenho um iframe onde eu chamo todos os modulos do sistema com ajax, bom o que eu queria era que num deste modulos que tenho onde chamo uma pesquisa e depois uma tela de baixa quando estivesse na tela de baixa e o usuario clicar no botao voltar ele voltaria para a pagina da pesquisa alguém sabe como faço isso porque quando eu clico em voltar ele volta para pagina defult.asp e não monta a pesquisa porque eu chamo esta pesquisa via ajax. alguém sabe como eu posso fazer isso

Bom é seguinte eu não to conseguinte atualizar a tabela com os dados que cadastrei por exemplo a tabela inical é assim Codigo Nome 1 claudio 2 carlos 3 paulo se eu cadastra o jose por exemplo ele tem que atualizar esta tabela assim Codigo Nome 1 claudio 2 carlos 3 paulo 4 jose Enteneu? Tipo um grid feito com tabelas.

Olha não sei se é isso mas eu tenho um exemplo fiz o obejto dundas eu pego o caminho do banco de dados com o sever.map ve ser serve ok <!--#include file = "strCon.asp"--> <% Dim Conexao,objUpload,strCaminho Set objUpload = Server.CreateObject("Dundas.Upload.2") call abre_conexao strSql = "SELECT IDCategoria,Descricao FROM tbCategoria" set rsCategoria = Conexao.Execute(strSql) if Request.QueryString("ok") = "ok" then status = "Cadastro efetuado com sucesso" if Request.QueryString("atc") = "new" then objUpload.MaxFileSize = 11048576 objUpload.UseUniqueNames = False strCaminho = "images\produtos\" objUpload.Save Server.MapPath("\rec\images\produtos\") idC = Request.QueryString("id_c") idS = Request.QueryString("id_S") strProdutos = replace(objUpload.Form("txProdutos"),"'","´") strDescricao = Replace(objUpload.Form("txDescricao"),"'","´") strImagem = objUpload.Files.Item("File1").Path strImagem2 =objUpload.Files.Item("File2").Path strChImg = replace(objUpload.Form("chImagem"),"'","´") strChImg1 = replace(objUpload.Form("chImagem2"),"'","´") strQtde = objUpload.form("txQtde") strLancamento = objUpload.form("chLancamento") strPreco = Replace(objUpload.Form("txPreco"),"'","´") if preço = "" then preço = 0 preço = formatcurrency((preço)) 'response.Write(strChImg&"--<br>"&strChImg1) 'response.End() if strChImg <> "" then filename = "" else If strImagem <> "" Then filename= strCaminho & objUpload.GetFileName(objUpload.Files.Item("File1").Path) ELSE if objUpload.Form("Img") = "" then ' filename = "" else filename = objUpload.Form("Img") end if End If end if if strChImg1 <> "" then filename2 = "" else If strImagem2 <> "" Then filename1= strCaminho & objUpload.GetFileName(objUpload.Files.Item("File2").Path) ELSe if objUpload.Form("Img1") = "" then ' filename1 = "" else filename1 = objUpload.Form("Img1") end if End If end if 'response.Write(filename&"--"&filename1) 'response.End() if strLancamento = "" then strLanc = 2 else strLanc = 1 end if strInsert = "INSERT INTO TBPRODUTOS (IDCategoria,idSubCategoria,TituloProdutos," strInsert = strInsert & "DescricaoProdutos,PrecoProdutos,ImagemProdutos," strInsert = strInsert & "ImagemPqProdutos,Qtde,Lancamento) values(" strInsert = strInsert & objUpload.Form("idC") & "," & objUpload.Form("ids") &",'" strInsert = strInsert & strProdutos & "','" & strDescricao & "','" & CINT(strPreco) & "','" strInsert = strInsert & FileName & "','" & FileName1 & "'," & CINT(strQtde) & "," strInsert = strInsert & strLanc & ")" 'Response.Write(strInsert) 'response.End() Conexao.Execute(strInsert) set rsSubCategoria = Nothing status = "Cadastro efetuado com sucesso" idC="" idS="" end if Bom a tabela você pode colocar na pasta principal do seu site ou criar uma pasta chamada banco por exemplo "C:\projetos\seusite\banco\banco.mdb", e você informa o caminho com server.map ele pega o caminho do servidor entendeu?

Ola pessoal estou criando uma pagina em asp e estou usando ajax e estou um probleminha. Bom é seguinte esta pagina tem um form para cadastrar alguns aparelhos e em baixo deste form eu criou uma especie de grid para mostrar os aparelhos cadastrados. Bom gostaria do seguinte quando eu cadastrar um aparelho novo ele atualizaria este grid. Como não manjo muito de ajax estoui penando vou colocar o codigo para voce verem. Esta rotina é meu form. <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="5" class="Titulo">Dados do assinante: </td> </tr> <tr> <td width="17%" class="SubTitulo">Codigo:</td> <td colspan="4"><span class="Texto"><%=rsBaixaOs("NoOs")%></span></td> </tr> <tr> <td width="17%" class="SubTitulo">Nome:</td> <td colspan="4"><span class="Texto"><%=rsBaixaOs("NomeCliente")%></span></td> </tr> <tr> <td width="17%" class="SubTitulo">Endere&ccedil;o:</td> <td colspan="2"><span class="Texto"><%=rsBaixaOs("Endereco")%></span></td> <td width="8%" class="SubTitulo">Cep:</td> <td width="20%"><span class="Texto"><%=rsBaixaOs("Cep")%></span></td> </tr> <tr> <td width="17%" class="SubTitulo">Bairro:</td> <td><span class="Texto"><%=left(rsBaixaOs("Bairro"),50) & "..."%></span></td> <td width="23%"><span class="SubTitulo">Residencia:</span></td> <td colspan="2"><span class="Texto"><%=rsBaixaOs("TipoResidencia")%></span></td> </tr> <tr> <td width="17%" class="SubTitulo">Estado:</td> <td><span class="Texto"><%=rsBaixaOs("Estado")%></span></td> <td><span class="SubTitulo">Cidade:</span></td> <td colspan="2"><span class="Texto"><%=rsBaixaOs("Cidade")%></span></td> </tr> </table></td> </tr> <tr> <td height="93"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="5"><span class="Titulo">Dados dos da assinatura: </span></td> </tr> <tr> <td width="22%"><span class="SubTitulo"> Pontos: </span></td> <td width="29%"><span class="Texto"><%=rsBaixaOs("qtdPontos")%></span></td> <td width="19%"><span class="SubTitulo">Produto:</span></td> <td colspan="2"><span class="Texto"><%=rsBaixaOs("Descricao")%></span></td> </tr> <tr> <td><span class="Texto"><span class="SubTitulo">Pacote:</span></span></td> <td><span class="Texto"><%=rsBaixaOs("Pacote")%></span></td> <td>&nbsp;</td> <td colspan="2">&nbsp;</td> </tr> <tr> <td><span class="SubTitulo">Cod.Aparelho:</span></td> <td><span class="SubTitulo"> <input name="txCodAparelho" type="text" class="SubTitulo" id="txCodAparelho" size="10" maxlength="10" /> </span></td> <td><span class="SubTitulo">Cod.Smart:</span></td> <td colspan="2"><span class="SubTitulo"> <input name="txCodSmart" type="text" class="campo" id="txCodSmart" size="15" maxlength="15" onkeypress="Cod();return IsNumber(event);"> </span></td> </tr> <tr> <td><span class="SubTitulo">Status:</span></td> <td><span class="Texto"><span class="SubTitulo"> <select name="seStatusAP" class="campo" id="seStatusAP" style="width:50px" onchange="trazdadosStatusAp();"> <option value="0">Selecione</option> <option value="INST">INST</option> <option value="RET">RET</option> </select> <input name="codModelo" type="hidden" id="codModelo" value="<%=idModelo%>" /> </span></span></td> <td><p class="SubTitulo">Modelo:</p> </td> <td width="22%"><span class="SubTitulo"> <select name="seModelo" class="campo" id="seModelo" style="width:50px" onchange="trazdadosModelo();"> <option value="0">Selecione</option> <option value="Enchostar">Enchostar</option> <option value="Ttmicro">Ttmicro</option> <option value="Nagra">Nagra</option> <option value="Zinwell">Zinwell</option> <option value="Pvr">Pvr</option> </select> <input name="codStatusAP" type="hidden" id="scodStatus" value="<%=idStaus%>" /> </span></td> <td width="8%"><span class="Titulo"><img src="imagem/img_plus.gif" width="12" height="12" border="0" class="SubTitulo" style="cursor:hand" onclick="gravaraparelho();" /></span></td> </tr> </table></td> </tr> <tr> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="30%" class="Titulo">COD.APARELHO </td> <td width="30%" class="Titulo">COD. SMART </td> <td width="15%" class="Titulo">STATUS</td> <td width="15%" class="Titulo">Modelo</td> <td width="10%" class="Titulo">&nbsp;</td> </tr> </table></td> </tr> <tr valign="top"> <td valign="top"><div style="height:80px;overflow:auto;" ><table width="100%" border="0" cellspacing="0" cellpadding="0"> <% strSql = "select * from tabAparelhos where NoOs=" & rsBaixaOs("NoOs") if rsAparelho.state then rsAparelho.Close rsAparelho.Open strSql, Conexao, 3, 3 While not rsAparelho.Eof %> <tr> <td width="30%" class="Texto"><%=rsAparelho("CodAparelho")%></td> <td width="30%" class="Texto"><%=rsAparelho("CodSmart")%></td> <td width="15%" class="Texto"><%=rsAparelho("Status")%></td> <td width="15%" class="Texto"><%=rsAparelho("Modelo")%></td> <td width="10%" align="center"></td> </tr> <% rsAparelho.MoveNext wEnd %> <tr> <td colspan="5"><div id="divAparelhos"></div></td> </tr> </table></div></td> </tr> </table> Este é codigo ajax ele ta fazendo certo function gravaraparelho() { var validou = validarAp() if ( validou ){ var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "gravaraparelhos.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divAparelhos.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("atc=new"+"&sNoOs="+frmBaixaOs.codNoOs.value+"&scodStatus="+frmBaixaOs.codStatusAP.value+"&sModelo="+frmBaixaOs.codModelo.value+"&sCodAparelho="+frmBaixaOs.txCodAparelho.value+"&sCodSmart="+frmBaixaOs.txCodSmart.value); } } este é gravaraparelho.asp <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <!--#include file="strCon.asp"--> <% dim strTitulo,strTexto,strNew, Conexao, strSql call abreConexao() 'Response.Write("--->" & Request.QueryString("NoOs") & "<---") if Request("atc") = "new" then sCodSmart = request("sCodSmart") sCodAparelho= request("sCodAparelho") sCodStatus = Request("scodStatus") sCodModelo = request("sModelo") sNoOs = Request("sNoOs") strSql = "Select * from tabAparelhos where CodSmart = '" & sCodSmart & "'" 'response.Write(strsql) 'response.End() set rsAparelho = Conexao.Execute(strSql) if rsAparelho.Eof then strNew = "Insert into tabAparelhos (NoOs,CodAparelho,CodSmart,Status,Modelo) values (" strNew = StrNew & sNoOs & ",'" strNew = strNew & Replace(sCodAparelho,"'","´") & "','" strNew = StrNew & replace(sCodSmart,"'","´") & "','" strNew = strNew & Replace(sCodStatus,"'","´") & "','" strNew = strNew & replace(sCodModelo,"'","´") & "')" 'response.Write(strNEw) 'Response.End() Conexao.Execute(StrNew) status = "!!Registro salvo com sucesso!!" %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="30%" class="Texto"><%=sCodAparelho%></td> <td width="30%" class="Texto"><%=sCodSmart%></td> <td width="15%" class="Texto"><%=sCodStatus%></td> <td width="15%" class="Texto"><%=sCodModelo%></td> <td width="10%" align="center"></td> </tr> </table></td> </tr> </table> <% else %> <script>alert("Codigo smart já cadastrado");</script> <% end if end if %>

valeu

ola pessoal como eu recupero o valor de um ckebox que esta dentro de um loop com o javascript? Estou fazendo assim mas tadando erro. for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " } } Mas o primeiro ck ele fala que não da definido teria que criar dois for? me ajudem por favor

Como eu faço isso não tenho ideia, nunca tive que mexer com configuração de rede, e como fazer as maquinas enchegarem uma as outras preciso de um tuto de configuração de rede para iniciante. Sou meio leigo nessa parte mas gosto de desafios principalmente quando estou na minha casa.

Mas ou menos se fo do jeito que eu entendi é facil acho vou fazer um exemplo: <HTML> <BODY> <---Pagina de configuração da conexao do banco de dados--> <!---#include file = "strCon.asp"--> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Path = "e:\home\web\up_foto" upl.Save dim Conexao, strSql,caminho caminho = upl.path 'Esta função esta no strCon.asp se precisar eu posto aqui call abreConexao() strsql = "Update tabela set caminho = '" & caminho & "'" strsql = strsql & " where codigodatabela = " & request("Codigo") Conexao.Execute(strsql) %> Total de Bytes Enviados: <%=upl.TotalBytes%> se não for isso não entendi o que quer dizer como gravar no banco de dados o caminho, <% Set upl = Nothing %> </BODY> </HTML>

Como assim gravar no banco de dados com update é isso?

Bom pessoal eu vou falar uma coisa sempre que tenho que trabalhar com array eu camelo pra resolver erros que acontece. Bom é seguin te eu criei uma rotina numa pagina asp que tenho e nela eu coloquei um loop carregando um recordset e dentro deste loop eu coloquei um chekbox para o usuario selecionar um item para posteriormente atualizar na tabela bom o problema é seguinte na hora de recuperar os dados eu criei uma rotina em ajax para poder fazer isso mas acho que o for ta errdo alguém pode me ajudar a criar esse for direito obrido estou fazendo assim function gravar(iQtdeVetor) { var ck for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck = frmObjRotas.chkItem[ i ].value + "," } } for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck = ck + frmObjRotas.chkItem[ i ].value + "," } } var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "gravardados.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divAtribuiok.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("strData="+frmRotas.txData.value+"&idEmpresa=" + frmObjRotas.codobjEmpresa.value + "&idTecnico=" + frmObjRotas.codObjTecnico.value + "&sNoOs=" + ck) }

Ola pessoal tudo bem, trabalho com programação a 15 anos e agora quero partir um pouco para are de rede, bom quero montar uma pequena rede em casa com 3 pontos já tenho tudo até o roteador para configurar a banda larga. Bom gostaria de ajuda para configurar esta rede algum tutorial ou até mesmo alguma dica, o sistema operacional que estou usando nas 3 é xp mas tem uma que coloquei o win98 tb apenas para teste. alguém pode me ajudar? Há detalhe preciso tb de dicas sobre servidores proxy onde conseguir um bom e como configurar ok. Desde já agradeço a a ajuda.

Em cima desta duvida tenho outra por exemplo eu tenho um pagina onde eu tenho uma combo de empresa e outra de tecnicos bom eu chamo uma outra pagina com o ajax e nela eu tenho uma opção de atribuição nela ele vai atribuir a empresa e o tecnico igual na primeira bom a primeira é apenas consulta, a segunda já é os dados para lançar na tabela. Bom o problema é o seguinte quando vou lançar os dados da empres na combo que eu chamo pelo ajax ela me da uma mensagem de erro que o valor dela é nulo vou postar o codigo para você entenderem. Esta é a pagina principal. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Atribuicao de rotas</title> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <script language="javascript" src="jsp/ajax.js"></script> <script type="text/JavaScript"> function Limpar() { if (window.confirm("Deseja limpar a consulta?")) { document.location="rotageral.asp"; } } function Cancela() { if (window.confirm("Deseja canclear atribuição?")) { document.location="rotageral.asp"; } } function Sair() { if (window.confirm("Deseja sair?")) { document.location="conteudo.asp"; } } function trazdados() { var arr = new String(frmRotas.seEmpresa.value); arr = arr.split('|'); frmRotas.codEmpresa.value = arr[0]; var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objTecnicos.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divtecnico.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("idEmpresa=" + frmRotas.codEmpresa.value); } function trazdadosTecnicos(){ var arr = new String(frmRotas.seTecnicos.value); arr = arr.split('|'); frmRotas.codTecnico.value = arr[0]; } function trazdadosservicos(){ var arr = new String(frmRotas.seServicos.value); arr = arr.split('|'); frmRotas.codServicos.value = arr[0]; } function trazdadosstatus(){ var arr = new String(frmRotas.seStatus.value); arr = arr.split('|'); frmRotas.codStatus.value = arr[0]; } function trazdadospesquisa() { var validou = valida(); if ( validou ){ if(document.getElementById("ck").value==2){ var validar = validabusca(); if ( validar ){ var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objrotageral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divPesquisa.innerHTML = oHTTPRequest.responseText; } } oHTTPRequest.send("strData="+frmRotas.txData.value+"&sStatus="+frmRotas.codStatus.value+"&idEmpresa="+frmRotas.codEmpresa.value+"&idTecnico="+frmRotas.codTecnico.value+"&idServico="+frmRotas.codServicos.value+"&sOpcao="+frmRotas.ck.value); } } else { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objrotageral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divPesquisa.innerHTML = oHTTPRequest.responseText; } } oHTTPRequest.send("strData="+frmRotas.txData.value+"&sStatus="+frmRotas.codStatus.value+"&idEmpresa="+frmRotas.codEmpresa.value+"&idTecnico="+frmRotas.codTecnico.value+"&idServico="+frmRotas.codServicos.value+"&sOpcao="+frmRotas.ck.value); } } } function trazdados2() { var arr = new String(frmRotas.seEmpresa2.value); arr = arr.split('|'); frmRotas.codEmpresa2.value = arr[0]; var objTecnico = createXMLHTTP(); objTecnico.open("post", "objTecnicos.asp", true); objTecnico.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); objTecnico.onreadystatechange=function(){ if (objTecnico.readyState==4){ document.all.divtecnico2.innerHTML = objTecnico.responseText;}} objTecnico.send("idEmpresa=" + frmRotas.codEmpresa2.value + "&sOpcao=1"); } function trazdadosTecnicos2(){ var arr = new String(frmRotas.seTecnicos2.value); arr = arr.split('|'); frmRotas.codTecnico2.value = arr[0]; } function valida(){ if(document.frmRotas.txData.value=="") { alert("O Data é obrigatório"); document.frmRotas.txData.focus(); return false } return true } function Data() { separador = '/'; conjunto1 = 2; conjunto2 = 5; if (document.frmRotas.txData.value.length == conjunto1) { document.frmRotas.txData.value = document.frmRotas.txData.value + separador; } if (document.frmRotas.txData.value.length == conjunto2) { document.frmRotas.txData.value = document.frmRotas.txData.value + separador; } } function IsNumber(caracter) { if(document.all) { var tecla = event.keyCode; } else { if(document.layers) { var tecla = caracter.which; } } if(tecla > 47 && tecla < 58) { return true; } else { if (tecla != 8 && tecla != 13) { alert("Digite apenas números.") return false; } else { return true; } } } function mostraEsconde(id) { if (id.style.display=='none'){ id.style.display=''; }else{ id.style.display='none' } } function mostra(id) { document.getElementById('rotageral').style.display='none'; document.getElementById('rotatecnicos').style.display='none'; if (id.style.display=='none'){ id.style.display=''; }else{ id.style.display='none' } } function validachk(iQtdeVetor) { //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ if (!document.frm.chkItem.checked){ alert('Selecione pelo menos um item!'); document.frmObjRotas.chkItem.focus(); return false; } }else{ var bmarcado = false; for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ bmarcado = true; } } //Controles É ARRAY deve ser tratado com o indíce if (!bmarcado){ alert('Selecione pelo menos um item!'); return false; } } return true } function marca_desmarca(opcao,iQtdeVetor){ //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ document.frmObjRotas.chkItem.checked = opcao; }else{ for (var i=0;i<iQtdeVetor;i++){ //Controles É ARRAY deve ser tratado com o indíce document.frmObjRotas.chkItem[ i ].checked = opcao; } } } function validabusca(){ if(document.frmRotas.seEmpresa.selectedIndex==0) { alert("Selecione uma empresa"); document.frmRotas.seEmpresa.focus(); return false; } if(document.frmRotas.seTecnicos.selectedIndex==0) { alert("Selecione um tecnico"); document.frmRotas.seTecnicos.focus(); return false; } return true } function validaAtribuicao(){ if(document.frmObjRotas.seEmpresa.selectedIndex==0) { alert("Selecione uma empresa"); document.frmObjRotas.seEmpresa.focus(); return false; } if(document.frmObjRotas.seTecnicos.selectedIndex==0) { alert("Selecione um tecnico"); document.frmObjRotas.seTecnicos.focus(); return false; } return true } function gravar() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "gravardados.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divCliente.innerHTML = oHTTPRequest.responseText;}} } function marca(id) { if (id==1) { id=1 document.getElementById("ck").value=1 document.getElementById("txData").focus(); }else if (id==2){ id=2 document.getElementById("ck").value=2 document.getElementById("txData").focus(); alert("Selecione uma empresa"); }else if (id==3){ id=3 document.getElementById("ck").value=3 document.getElementById("txData").focus(); alert("Informe o endereço do assinante"); } } //--> </script> <style type="text/css"> <!-- body { margin-left: 3px; margin-top: 3px; margin-right: 3px; margin-bottom: 3px; } --> </style> </head> <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() %> <table width="740" height="380" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="2" class="SubTitulo">Ola <%=Session("Usuario")%> voc&ecirc; est&aacute; em <strong>Intranet DTH 25</strong> <strong>&raquo; Rotas &raquo; <%=status%></strong></td> </tr> <tr> <form action="gerarota.asp" method="post" name="frmRotas" id="frmRotas"> <td width="111" valign="top"><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td class="Titulo">Tipo de pesquisa: </td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" onClick="marca(1);mostra(rotageral);" value="1" checked> Pool</td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" value="2" onClick="marca(2);mostra(rotatecnicos);"> Tecnicos</td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" value="3" onClick="marca(3);"> Endereco</td> </tr> <tr> <td class="Texto" height="15"><input type="hidden" id="ck" name="ck" value="1"></td> </tr> <tr> <td class="SubTitulo" height="15"></td> </tr> <tr> <td class="SubTitulo" height="15"></td> </tr> </table></td> <td width="606"><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="6" class="Titulo">Filtro G&eacute;n&eacute;rico: </td> </tr> <tr> <td width="13%" class="SubTitulo">Dt.Agendada:</td> <td width="13%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10" onKeyPress="Data();return IsNumber(event);"></td> <td width="10%" class="SubTitulo">Status:</td> <td width="34%" class="SubTitulo"> <select name="seStatus" class="campo" id="seStatus" style="width:150px" onChange="trazdadosstatus();"> <option>Selecione</option> <option value="AB">AB - ABERTA</option> <option value="AC">AC - A CONTINUAR</option> <option value="AV">AV - ANTECIPA&Ccedil;&Atilde;O DE VISITAS</option> <option value="BC">BC - BAIXA CONCLUIDA</option> <option value="CA">CA - CANCELADAS</option> <option value="NF">NF - N&Atilde;O FEITAS</option> <option value="RP">RP - REPROGRAMADAS</option> </select> </td> <td width="13%" class="SubTitulo">Empresa:</td> <td width="17%"> <select name="seEmpresa" class="campo" style="width:120px" onChange="trazdados();"> <option value="0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("Empresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select> </td> </tr> <tr> <td colspan="6" class="Titulo">Filtro Tecnico:</td> </tr> <tr> <td class="SubTitulo">Tecnico:</td> <td colspan="4"> <div id="divtecnico"> <select name="seTecnicos" class="campo" id="seTecnicos" style="width:150px" onChange="trazdadosTecnicos();"> <option value="0">Selecione</option> </select> </div> </td> <td> <input name="codTecnico" type="hidden" id="codTecnico" value="<%=idTecnico%>" /> <input name="codEmpresa" type="hidden" id="codEmpresa" value="<%=idEmpresa%>" /> <input name="codServicos" type="hidden" id="codServicos" value="<%=idServico%>" /> <input name="codStatus" type="hidden" id="codStatus" value="<%=idStatus%>" /> </td> </tr> <tr> <td colspan="6" class="Titulo">Filtro Servi&ccedil;o:</td> </tr> <tr> <td class="SubTitulo">Servi&ccedil;o:</td> <td colspan="3" class="SubTitulo"> <select name="seServicos" class="campo" id="seServico" style="width:200px" onChange="trazdadosservicos();"> <option>Selecione</option> <option value="ATDH">ATDH - ASSISTENCIA T&Eacute;CNICA DTH</option> <option value="ATDM">ATDM - ASSISTENCIA T&Eacute;CNICA DANOS MATERIAIS</option> <option value="INST">INST- INSTALA&Ccedil;&Atilde;O PROCESSO</option> <option value="RGAT">RGAT- RETORNO GARANTIA ASSISTENCIA T&Eacute;CNICA </option> <option value="RGIN">RGIN - RETORNO GARANTIA INSTALA&Ccedil;&Atilde;O</option> <option value="SOBR">SOBR - SOBRA</option> </select> </td> <td><input name="butPesquisar" type="button" id="butPesquisar" value="BUSCAR" onClick="trazdadospesquisa();" /></td> <td><input name="butLimpar" type="button" id="butLimpar" value="LIMPAR" onClick="Limpar();"></td> </tr> </table></td> </form> </tr> <tr> <td height="280" colspan="2" align="center" valign="top"><table width="100%" height="290" border="0" align="center" cellpadding="0" cellspacing="1" class="Tabela"> <%Bg="#FFFFFF"%> <tr bgcolor="<%=Bg%>" id="rotageral"> <td width="10%" align="center" class="SubTitulo">No. Os</td> <td width="10%" align="center" class="SubTitulo">Servi&ccedil;o</td> <td width="9%" align="center" class="SubTitulo">Tipo Os </td> <td width="9%" align="center" class="SubTitulo">Periodo</td> <td width="10%" align="center" class="SubTitulo">Status</td> <td width="9%" align="center" class="SubTitulo">CEP</td> <td width="10%" align="center" class="SubTitulo">Cidade</td> <td width="10%" align="center" bgcolor="<%=Bg%>" class="SubTitulo">Bairro</td> <td width="10%" align="center" class="SubTitulo">Residencia </td> <td width="13%" align="center" class="SubTitulo" colspan="2">Selecione</td> </tr> <tr bgcolor="<%=Bg%>" id="rotatecnicos" style="display:none"> <td width="30%" align="center" class="SubTitulo">Tecnico</td> <td width="7%" align="center" class="SubTitulo">Seri&ccedil;o</td> <td width="7%" align="center" class="SubTitulo">Total</td> <td width="7%" align="center" class="SubTitulo">AB</td> <td width="7%" align="center" class="SubTitulo">AC</td> <td width="7%" align="center" class="SubTitulo">BC</td> <td width="7%" align="center" class="SubTitulo">CA</td> <td width="7%" align="center" class="SubTitulo">NF</td> <td width="7%" align="center" class="SubTitulo">RP</td> <td width="10%" align="center" class="SubTitulo">H.Inicio</td> <td width="10%" align="center" class="SubTitulo">Pesquisar</td> </tr> <tr> <td height="260" colspan="11" align="left" valign="top"><div id="divPesquisa" style="height:auto;"></div></td> </tr> </table></td> </tr> </table> </body> </html> Este é objeto do ajax <!--#include file="strCon.asp"--> <% dim strSql,Conexao call abreConexao() sOpcao = Request("sOpcao") data = Request("strData") sStatus = Request("sStatus") idServico = Request("idServico") idEmpresa = Request("idEmpresa") idTecnico = Request("idTecnico") dia = datepart ("d", data) mes = datepart ("m", dada) dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) if sOpcao = 1 or sOpcao = 2 then if sOpcao = 1 then campo = "tabDth.NoOs,tabDth.DatCompromisso,tabTipoOs.Descricao,tabDth.Periodo,tabDth.QtdPontos,tabDth.Status," campo = campo & "tabCidades.Cidade, tabCliente.Cep, tabCliente.Bairro, tabCliente.TipoResidencia," campo = campo & "tabDTh.idEmpresa,tabDth.idTecnico,tabDth.idServico" strSql = "SELECT " & campo strSql = strSql & " FROM (tabCidades INNER JOIN tabCliente ON tabCidades.idCidade = tabCliente.IdCidade) INNER JOIN " strSql = strSql & "(tabDth INNER JOIN tabTipoOs ON tabDth.idTipoOs = tabTipoOs.idTipoOs) ON tabCliente.idCliente = " strSql = strSql & "tabDth.idCliente " strSql = strSql & "WHERE tabDth.DatCompromisso=#" & strData & "#" if sStatus <> "" Then strSql = strSql & " and tabDth.Status = '" & sStatus & "' " end if if idServico <> "" then strSql = strSql & " and tabDth.idServico = '" & idServico & "'" end if if idEmpresa <> "" then strSql = strSql & " and tabDth.idEmpresa = " & idEmpresa end if if idTecnico <> "" then strSql = strSql & " and tabDth.idTecnico = " & idTecnico end if else strSql="SELECT Count(tabDth.NoOs) AS ContarNoOs,tabDth.DatCompromisso,tabDth.idEmpresa,tabDth.idServico,tabDth.idTecnico," strSql = strSql & "tabDth.HoraInicio,tabTecnicos.Tecnico, Count(tabDth.idServico) AS ContarServ FROM tabTecnicos " strSql = strSql & "RIGHT JOIN tabDth ON tabTecnicos.idTecnico = tabDth.idTecnico GROUP BY tabDth.DatCompromisso, tabDth.idEmpresa, " strSql = strSql & "tabDth.idServico, tabTecnicos.Tecnico,tabDth.idTecnico,tabDth.HoraInicio " strSql = strSql & "HAVING tabDth.DatCompromisso= #" & formataData(strData) & "# " strSql = strSql & " and tabDth.idEmpresa = " & idEmpresa strSql = strSql & " and tabDth.idTecnico = " & idTecnico strSql = strSql & " ORDER BY tabTecnicos.Tecnico" end if 'Response.Write(strsql) 'Response.End() if rsRota.state = 1 then rsRota.Close rsRota.Open strSql, Conexao, 3, 3 status = "Rota Geral" sOpt = "Geral" rs = rsRota.RecordCount 'Response.Write(strsql&"<br>total=" & rs) 'Response.End() if rsRota.RecordCount = 0 then %> <script>alert("A pesquisa não encontradas nada");</script> <% else %> <link href="css/rotageral.css" rel="stylesheet" type="text/css"> <%if sOpcao = 1 then%> <table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela1"> <tr> <td colspan="2"><div style="height:150px;overflow:auto;"><table width="100%" border="0" align="left" cellpadding="1" cellspacing="1" class="Tabela1" style="margin-left:0"> <%if not rsRota.Eof then dim i i =0 vVetor = 0 while Not rsRota.EOF if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Descricao"),30)%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Status")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Cep")%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Cidade"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Bairro"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("TipoResidencia"),10)%></td> <td width="10%" class="SubTitulo"><input name="chkItem" type="checkbox" class="campo" id="chkItem" value="<%=rsRota("NoOs")%>" /> <%if rsRota("idEmpresa") <> 0 then%> <%=rsRota("idEmpresa")%> <%end if%> - <%if rsRota("idEmpresa")<>0 then%> <%=rsRota("idTecnico")%> <%end if%> </td> </tr> <% rsRota.Movenext wEnd end if %> </table></div></td> </tr> <tr> <td width="89%"><div id="Atribui"><table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td colspan="6"><div id="divCliente"></div></td> </tr> <tr> <td width="8%">Empresa:</td> <td width="18%"> <select name="seEmpresa2" class="campo" id="seEmpresa2" style="width:120px" onChange="trazdados2();"> <option value="0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("Empresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select> </td> <td width="10%" align="center" valign="middle"><input name="butGravar" type="button" id="butGravar" value="Gravar" onClick="gravar();"></td> <td width="10%" align="center" valign="middle"><input name="butCancelar" type="button" id="butCancelar" value="Cancelar" onClick="mostraEsconde(Atribui)"></td> <td width="6%">&nbsp;</td> <td width="48%"><input name="codTecnico2" type="hidden" id="codTecnico2" value="<%=idTecnico%>" /> <input name="codEmpresa2" type="hidden" id="codEmpresa2" value="<%=idEmpresa%>" /></td> </tr> <tr> <td height="25">Tecnico:</td> <td> <div id="divtecnico2"> <select name="seTecnico2" class="campo" id="seTecnico2" style="width:150px" onChange="trazdadosTecnicos2();"> <option value="0">Selecione uma empresa</option> </select> </div> </td> <td colspan="4" align="center" valign="middle">&nbsp;</td> </tr> </table> </div></td> <td width="11%" align="center"><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="2" class="Titulo">Menu</td> </tr> <tr> <td width="15%"><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td width="85%" class="SubTitulo"><a href="#" onClick="mostraEsconde(Atribui,<%=rs%>)">Abribuir</a></td> </tr> <tr> <td><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td class="SubTitulo"><a href="#" onClick="Cancela();">Cancelar</a></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table></td> </tr> </table> <% elseif sOpcao = 2 then %> <table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela1"> <tr> <td colspan="2"><div><table width="100%" border="0" cellspacing="1" cellpadding="1"> <%While not rsRota.Eof if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if %> <tr bgcolor="<%=Bg%>"> <td width="30%" class="SubTitulo"><%=left(rsRota("Tecnico"),50)%></td> <td width="7%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="7%" align="center" class="SubTitulo"><%=rsRota("ContarNoOs")%></td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarAB,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='AB' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota1.state = 1 then rsRota1.CLose rsRota1.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota1.Eof then%> 0 <%else%> <%=rsRota1("ContarAB")%> <%end if%> </td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarAC,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='AC' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota2.state = 1 then rsRota2.CLose rsRota2.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota2.Eof then%> 0 <%else%> <%=rsRota2("ContarAC")%> <%end if%></td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarBC,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='BC' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota3.state = 1 then rsRota3.CLose rsRota3.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota3.Eof then%> 0 <%else%> <%=rsRota3("ContarBC")%> <%end if%></td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarCA,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='CA' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota4.state = 1 then rsRota4.CLose rsRota4.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota4.Eof then%> 0 <%else%> <%=rsRota4("ContarCA")%> <%end if%></td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarNF,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='NF' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota5.state = 1 then rsRota5.CLose rsRota5.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota5.Eof then%> 0 <%else%> <%=rsRota5("ContarNF")%> <%end if%></td> <% strSql = "Select " strSql = strSql & "tabDth.idTecnico,Count(tabDth.idServico) AS ContarRP,tabDth.Status," strSql = strSql & "tabDth.DatCompromisso,tabDth.idTecnico, tabDth.idServico from tabDth " strSql = strSql & "GROUP BY idTecnico,Status,DatCompromisso,idTecnico,IdServico " strSql = strSql & "HAVING tabDth.Status='RP' AND tabDth.DatCompromisso=#" & strData strSql = strSql & "# AND tabDth.idTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idServico= '" & rsRota("idServico")& "'" if rsRota6.state = 1 then rsRota6.CLose rsRota6.Open strSql, Conexao, 3, 3 %> <td width="7%" align="center" class="SubTitulo"> <%if rsRota6.Eof then%> 0 <%else%> <%=rsRota6("ContarRP")%> <%end if%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("HoraInicio")%></td> <td width="10%" align="center" class="SubTitulo"><a href="gerarotatecnicoos.asp?idEmpresa=<%=rsRota("idEmpresa")%>&amp;idTecnico=<%=rsRota("idTecnico")%>&amp;idServico=<%=rsRota("idServico")%>"><img src="imagem/icon_mini_search.gif" width="15" height="13" style="cursor:hand" border="0" /></a></td> </tr> <% rsRota.MoveNext wEnd %> </table></div></td> </tr> </table> <% end if end if end if %> <div id ="conteudo" style="display:none"> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <tr> <td colspan="10" align="center" class="SubTitulo">&nbsp;</td> </tr> </table> </div> Desde já agradeço a ajuda.

Ola pessoal estou com uma duvida quando eu crio uma pagina asp e nela eu coloco varias paginas abrindo com ajax eu tenho colocar em cada pagina um Form ou apenas na pagina principal

Este é arquivo index.asp <html> <head> <title>UPDATE COM AJAX</title> <link href="estilos.css" rel="stylesheet" type="text/css" /> <script language="javascript" src="ajax.js"></script> <script> function trazdados() { var arr = new String(frmCliente.txNome.value); arr = arr.split('|'); frmCliente.codCliente.value = arr[0]; document.getElementById("Conteudo").style.display = 'block' var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objcliente.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.Conteudo.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("Cliente=" + frmCliente.codCliente.value); } function fechar() { document.getElementById("Conteudo").style.display = 'none' } function gravar() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "gravardados.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divCliente.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("Cliente=" + frmCliente.txNomeCliente.value + "&Endereco=" + frmCliente.txEndereco.value + "&Bairro=" + frmCliente.txBairro.value + "&idCliente=" + frmCliente.codIdCliente.value); } </script> </head> <body> <form name="frmCliente" id="frmCliente" method="post" action="" onSubmit="trazdados();"> <table width="600" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="3" align="center" class="Titulo">CADASTRO DE CLIENTES </td> </tr> <tr> <td colspan="3">&nbsp;</td> </tr> <tr> <td width="17%" class="SubTitulo">Nome cliente: </td> <td colspan="2"><input name="txNome" type="text" id="txNome" size="50" maxlength="20" /></td> </tr> <tr> <td><input name="codCliente" type="hidden" id="codCliente" value="<%=Cliente%>"></td> <td colspan="2"><div id="Conteudo"> <table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td>&nbsp;</td> </tr> </table> </div></td> </tr> <tr> <td>&nbsp;</td> <td width="34%"><input name="butBusca" type="button" id="butBusca" value="LOCALIZAR" onClick="trazdados();"></td> <td width="49%">&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td colspan="2">&nbsp;</td> </tr> </table> </form> </body> </html> Este é objCliente.asp <!--#include file="strCon.asp"--> <% dim strSql,Conexao call AbreConexao() cliente = Request("Cliente") strSql = "Select * from tbCliente where Nome = '" & cliente &"'" rsCliente.Open strSql,Conexao,3,3 if rsCliente.RecordCount = 0 then %> <table width="400" border="0" cellspacing="3" cellpadding="3"> <tr> <td class="Titulo">Cliente não encontrado</td> </tr> </table> <% else %> <table width="400" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="4" align="center" class="Titulo">MANUTE&Ccedil;&Atilde;O DE CLIENTE </td> </tr> <tr> <td width="11%" colspan="4"><div id="divCliente"></div></td> <td colspan="3"></td> </tr> <tr> <td class="SubTitulo">Nome:</td> <td colspan="3"><input name="txNomeCliente" type="text" id="txNome" size="50" maxlength="50" value="<%=rsCliente("Nome")%>"></td> </tr> <tr> <td class="SubTitulo">Endereco:</td> <td colspan="3"><input name="txEndereco" type="text" id="txEndereco" size="50" maxlength="50" value="<%=rsCliente("Endereco")%>"></td> </tr> <tr> <td class="SubTitulo">Bairro:</td> <td colspan="3"><input name="txBairro" type="text" id="txBairro" size="30" maxlength="20" value="<%=rsCliente("Bairro")%>"></td> </tr> <tr> <td>&nbsp;</td> <td colspan="3"><input name="codIdCliente" type="hidden" value="<%=rsCliente("idCliente")%>"></td> </tr> <tr> <td>&nbsp;</td> <td width="11%" align="right"><input name="butGravar" type="button" id="butGravar" value="Gravar" onClick="gravar();"></td> <td width="4%">&nbsp;</td> <td width="74%"><input name="butFechar" type="button" id="butFechar" value="Fechar" onclick="fechar();"></td> </tr> </table> <% end if %> E este é gravardados.asp <!--#include file="strCon.asp"--> <% dim strSql,Conexao call AbreConexao() cliente = Request("Cliente") endereco = Request("Endereco") bairro = Request("Bairro") idCliente = Request("idCliente") strSql = "Update tbCliente set " strSql = strSql & "Nome = '" & Cliente & "'," strSql = strSql & "Endereco = '" & Endereco & "'," strSql = strSql & "Bairro = '" & Bairro & "'" strSql = strSql & " where idCliente like '" & idCliente & "'" 'Response.Write(strsql) 'Response.End() Conexao.Execute(strsql) Response.Write("Operação realizada com sucesso") %>

resolvi este tb valeu as vezes é bom quebra a cabeça

Algeum pode me dizer que erro é esse estou tentando enteder o ajax, este erro está linha que chama a div vou postar o coidgo. <html> <head> <title>UPDATE COM AJAX</title> <link href="estilos.css" rel="stylesheet" type="text/css" /> <script language="javascript" src="ajax.js"></script> <script language="javascript"> function trazdados() { var arr = new String(frmCliente.txNome.value); arr = arr.split('|'); frmCliente.codCliente.value = arr[0]; var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objcliente.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.Conteudo.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("cCliente=" + frmCliente.codCliente.value); } function gravar() { var arr = new String(frmCliente.txNome.value); arr = arr.split('|'); frmCliente.codCliente.value = arr[0]; var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "gravar.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divCliente.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("Cliente=" + frmCliente.codCliente.value); } </script> </head> <body> <form name="frmCliente" id="frmCliente" method="post" action=""> <table width="466" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="3" align="center" class="Titulo">CADASTRO DE CLIENTES </td> </tr> <tr> <td colspan="3">&nbsp;</td> </tr> <tr> <td width="35%" class="SubTitulo">Nome cliente: </td> <td colspan="2"><input name="txNome" type="text" id="txNome" size="50" maxlength="20" /></td> </tr> <tr> <td><input name="codCliente" type="hidden" id="codCliente" value="<%=Cliente%>"></td> <td colspan="2"><div id="Conteudo"> <table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td>&nbsp;</td> </tr> </table> </div></td> </tr> <tr> <td>&nbsp;</td> <td width="20%"><input name="butBusca" type="button" id="butBusca" value="LOCALIZAR" onclick="trazdados();"></td> <td width="45%">&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td colspan="2">&nbsp;</td> </tr> </table> </form> </body> </html> resolvi era tirar o language="javascript"> funcionou

pessoal é seguinte desculpe se não for aqui este tópico mas é que estou montnado uma pagina onde eu quero atualizar um banco de dados usando ajax gostaria de ter um exemplo eu já to usando umas rotinas nesta pagina para preecher combo. agora pra atualizar é diferente? alguém podeme ajudar?

resolvi este problema

Oi pessoal é seguinte sou iniciante em ajax mas já to pegando uma boa nossão dele mas ainda to apanhando um pouco. Bom é seguinte eu quero atualizar uma tabela e quero usar algumas rotinas de ajax para isso estou fazendo a pagina em asp e estou fazendo da seguinte maneira para fazer isso mas não ta dando certo. function validaAtribuicao(){ if(document.frmObjRotas.seEmpresa.selectedIndex==0) { alert("Selecione uma empresa"); document.frmObjRotas.seEmpresa.focus(); return false; } if(document.frmObjRotas.seTecnicos.selectedIndex==0) { alert("Selecione um tecnico"); document.frmObjRotas.seTecnicos.focus(); return false; } return true } function Gravar() { var validou = validaAtribuicao() if ( validou ) { var objTecnico = createXMLHTTP(); objTecnico.open("post", "gravaratruicao.asp.asp", true); objTecnico.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); objTecnico.onreadystatechange=function(){ if (objTecnico.readyState==4){ document.all.divok.innerHTML = objTecnico.responseText; } } } } //--> eu estou chamando esta função da seguinte maneira. <input name="butGravar" type="button" id="butGravar" value="Gravar" onclick="Gravar();"> Esta função eu chamo para atualizar o banco de dados. <tr> <td colspan="2"><div id="divok"></div></td> <td width="48%">&nbsp;</td> </tr> aqui é onde tem que aparecer o resultado da atualização <!--#include file="strCon.asp"--> <% dim strSql,Conexao call abreConexao() strNoOs = Request.QueryString("NoOs") stridTecnico = Request.QueryString("idTecnico") data = date dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) vItensMarcado = split(Request.Form("chkItem"),",") if not IsArray(vItensMarcado) then vItensMarcado = array(vItensMarcado) end if for i = 0 to ubound(vItensMarcado) Sql = "Select * from tabDTH where DatCompromisso = #" & strData & "# " Sql = Sql & " and NoOs = " & vItensMarcado(i) & " order by idEmpresa" set rsRota = Conexao.Execute(Sql) if not rsRota.Eof then strUpdate = "Update tabDth Set " strUpdate = StrUpdate & "idEmpresa=" & Request.Form("seEmpresa")& "," strUpdate = strUpdate & "idTecnico=" & Request.Form("seTecnicos") strUpdate = strUpdate & " where idDth=" & rsRota("idDth") Response.Write(strUpdate) Response.End() Conexao.Execute(StrSql) end if next Response.Write("ATRIBUIÇÃO OK") %> e esta é a pagina da atualização. Bom é seguinte ele ta validando certo mas não traz a atualização porque? È problema da função do ajax ou não porque sem o ajax esta função funciona.

pessoal consegui resolver este tópico erro de iniciante era apencas colocar o script do ajax na pagina principal

E Rafa sempre me salvando heim valeu mais uma vez obrigado Andrei mesmo assim consegui resolver ficou assim a pagina. <!--#include file="strCon.asp"--> <% dim strTitulo,strTexto,strNew, Conexao, strSql,sDatBaix call abreConexao() data = date-1 dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) strSql = "SELECT * FROM tabDth WHERE (((tabDth.DatCompromisso)=#" & strData & "#)) AND tabDTH.Status='AC' " if rsAcrecimo.state = 1 then rsAcrecimo.Close rsAcrecimo.Open strSql, Conexao, 3,3 'response.Write(rsAcrecimo.RecordCount) if rsAcrecimo.RecordCount >0 then while not rsAcrecimo.Eof data = date() dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) sNoOs = rsAcrecimo("NoOs") sDatComp = FormataData(mes&"/"&dia&"/"&ano) sIdTipoO = rsAcrecimo("idTipoOs") sIdProdu = rsAcrecimo("idProduto") sIdClien = rsAcrecimo("idCliente") sTipoRes = rsAcrecimo("TipoResidencia") sTermina = rsAcrecimo("Terminal") sDatSoli = FormataData(rsAcrecimo("DatSolicitada")) sQtdPont = rsAcrecimo("QtdPontos") sTarAssi = rsAcrecimo("TarAssisTecnico") sidEmpre = rsAcrecimo("idEmpresa") sIdTecni = rsAcrecimo("idTecnico") sStatus = "AB" smotivo = rsAcrecimo("idMotivoBaixa") sNoTa = rsAcrecimo("NoTa") sDatBaix = (rsAcrecimo("DatBaixa")) if sDatBaix = " " then sDatBaix = (rsAcrecimo("DatBaixa")) elseif sDatBaix <> " " then sDatBaix = FormataData(rsAcrecimo("DatBaixa")) end if sHoraIni = rsAcrecimo("HoraInicio") sHOraTer = rsAcrecimo("HoraTermino") sObsServ = rsAcrecimo("ObsServico") sContDia = rsAcrecimo("ContagemDia") sTarefa = rsAcrecimo("Tarefa") sContato = rsAcrecimo("Contato") sInfoAdc = rsACrecimo("InfoAdcionais") sDescric = rsACrecimo("Descricao") sResulta = rsACrecimo("Resultado") sObsLaud = rsACrecimo("ObsLauda") sDatInst = rsACrecimo("DatInstalacao") if sDatInst = " " then sDatInst = (rsAcrecimo("DatInstalacao")) elseif sDatBaix <> " " then sDatInst = FormataData(rsAcrecimo("DatInstalacao")) end if sTipo = rsACrecimo("Tipo") sNo = rsACrecimo("No") sComplem = rsACrecimo("Complemento") sIdUsuar = rsACrecimo("idUsuario") sAtenden = rsACrecimo("Atendente") sReAtend = rsACrecimo("REAtendente") sDatAlte = rsAcrecimo("DatAlterado") if sDatAlte = " " then sDatAlte = (rsAcrecimo("DatAlterado")) elseif sDatAlte <> " " then sDatAlte = FormataData(rsAcrecimo("DatAlterado")) end if sMotivo = rsACrecimo("idMotivoBaixa") campos = "NoOS,idTipoOS,idProduto,idCliente,TipoResidencia,Terminal,Periodo,QtdPontos," campos = campos & "TarAssisTecnico,idEmpresa,idTecnico,Status,NoTa,HoraInicio,HoraTermino,ObsServico," campos = campos & "ContagemDia,Tarefa,Contato,InfoAdcionais,Descricao,Resultado,ObsLauda,Tipo," campos = campos & "No,Complemento,Atendente,REAtendente,idMotivoBaixa" if sDatComp <> " " then campos = campos & ",DatCompromisso" end if if sDatSoli <> " " then campos = campos & ",DatSolicitada" end if if sDatBaix <> " " then campos = campos & ",DatBaixa" end if if sDatInst <> " " then campos = campos & ",DatInstalacao" end if if sDatAlte <> " " then campos = campos & ",DatAlterado" end if strSql = "Insert Into tabDTH (" & campos & ") values (" strSql = strSql & sNoOs & "," & sIdTipoO & "," & sIdProdu & "," & sIdClien & ",'" strSql = strSql & sTipoRes & "','" & sTermina & "','" & sPeriodo & "','" & sQtdPont & "','" strSql = strSql & sTarAssi & "'," & sIdEmpre & "," & sIdTecni & ",'" & sStatus & "','" strSql = strSql & sNoTa & "','" & sHoraIni & "','" & sHoraTer & "','" & sObsServ & "'," strSql = strSql & sContDia & ",'" & sTarefa & "','" & sContato & "','" & sInfoAdc & "','" strSql = strSql & sDescric & "','" & sResulta & "','" & sObsLaud & "','" & sTipo & "'," strSql = strSql & sNo & ",'" & sComplem & "','" & sAtenden & "','" & sReAtend & "'," strSql = strSql & sMotivo if sDatComp <> " " then strSql = strSql & ",#" & sDatComp & "#" end if if sDatSoli <> " " then strSql = strSql & ",#" & sDatSoli & "#" end if if sDatBaix <> " " then strSql = strSql & ",#" & sDatBaix & "#" end if if sDatInst <> " " then strSql = strSql & ",#" & sDatInst & "#" end if if sDatAlte <> " " then strSql = strSql & ",#" & sDatAlte & "#" end if strsql = strsql & ")" response.write "sql="& strSql&"<br>" Conexao.Execute(StrSql) rsAcrecimo.MoveNext 'Response.End() wEnd response.write "Total="& rsAcrecimo.RecordCount else response.write "Total="& rsAcrecimo.RecordCount end if %>

Pessoal estou quebrando a cabeça com um sistema que crei bom é o seguinte o sistema tem uma pagina que eu chamo varias paginas com o ajax. Bom primeiro eu tenho uma tela de pesquisa de banco de dados onde eu seleciono os dados para pesquisa. Ele Pesquisa a data informada, depois que ele fez isso traz o dados da empresa e abre uma combo com os dados do tecnico com ajax, esta função eu tirei aqui do site. Bom aqui ele faz certo mas meu problema que eu tenho uma dentro desta pagina uma <div> onde eu trago o conteudo desta consulta, bom ele traz certinho mas o problema é que eu tenho dentro deste conteudo que selecionar uma empresa e um tecnico igual a consulta para poder atualizar na tabela ai que ta o erro quando eu seleciono a empresa novamente ele me da um erro na linha 1007. não sei como resolver isso alguém pode me ajudar? Vou postar o codigo para você verificarem Bom primeiro a pagina principal: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Atribuicao de rotas</title> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <script language="javascript" src="jsp/ajax.js"></script> <script type="text/JavaScript"> function Limpar() { if (window.confirm("Deseja limpar a consulta?")) { document.location="rotageral.asp"; } } function Sair() { if (window.confirm("Deseja sair?")) { document.location="conteudo.asp"; } } function trazdados() { var arr = new String(frmRotas.seEmpresa.value); arr = arr.split('|'); frmRotas.codEmpresa.value = arr[0]; var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objTecnicos.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divtecnico.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("idEmpresa=" + frmRotas.codEmpresa.value); } function trazdadosTecnicos(){ var arr = new String(frmRotas.seTecnicos.value); arr = arr.split('|'); frmRotas.codTecnico.value = arr[0]; } function trazdadosservicos(){ var arr = new String(frmRotas.seServicos.value); arr = arr.split('|'); frmRotas.codServicos.value = arr[0]; } function trazdadosstatus(){ var arr = new String(frmRotas.seStatus.value); arr = arr.split('|'); frmRotas.codStatus.value = arr[0]; } function trazdadospesquisa() { var validou = valida(); if ( validou ){ var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objrotageral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divPesquisa.innerHTML = oHTTPRequest.responseText; } } oHTTPRequest.send("strData="+frmRotas.txData.value+"&sStatus="+frmRotas.codStatus.value+"&idEmpresa="+frmRotas.codEmpresa.value+"&idTecnico="+frmRotas.codTecnico.value+"&idServico="+frmRotas.codServicos.value); } } function valida(){ if(document.frmRotas.txData.value=="") { alert("O Data é obrigatório"); document.frmRotas.txData.focus(); return false } return true } function Data() { separador = '/'; conjunto1 = 2; conjunto2 = 5; if (document.frmRotas.txData.value.length == conjunto1) { document.frmRotas.txData.value = document.frmRotas.txData.value + separador; } if (document.frmRotas.txData.value.length == conjunto2) { document.frmRotas.txData.value = document.frmRotas.txData.value + separador; } } function IsNumber(caracter) { if(document.all) { var tecla = event.keyCode; } else { if(document.layers) { var tecla = caracter.which; } } if(tecla > 47 && tecla < 58) { return true; } else { if (tecla != 8 && tecla != 13) { alert("Digite apenas números.") return false; } else { return true; } } } //--> </script> <style type="text/css"> <!-- body { margin-left: 3px; margin-top: 3px; margin-right: 3px; margin-bottom: 3px; } --> </style> </head> <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() %> <table width="740" height="380" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="2" class="SubTitulo">Ola <%=Session("Usuario")%> voc&ecirc; est&aacute; em <strong>Intranet DTH 25</strong> <strong>&raquo; Rotas &raquo; <%=status%></strong></td> </tr> <tr> <form action="gerarota.asp" method="post" name="frmRotas" id="frmRotas"> <td width="111" valign="top"><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td class="Titulo">Tipo de pesquisa: </td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" value="radiobutton" />Pool</td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" value="radiobutton" />Tecnicos</td> </tr> <tr> <td class="SubTitulo"><input name="optOpcao" type="radio" value="radiobutton" /> Endereco</td> </tr> <tr> <td class="Texto" height="15"></td> </tr> <tr> <td class="SubTitulo" height="15"></td> </tr> <tr> <td class="SubTitulo" height="15"></td> </tr> </table></td> <td width="606"><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="6" class="Titulo">Filtro G&eacute;n&eacute;rico: </td> </tr> <tr> <td width="13%" class="SubTitulo">Dt.Agendada:</td> <td width="13%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10" onKeyPress="Data();return IsNumber(event);"></td> <td width="10%" class="SubTitulo">Status:</td> <td width="34%" class="SubTitulo"> <select name="seStatus" class="campo" id="seStatus" style="width:150px" onChange="trazdadosstatus();"> <option>Selecione</option> <option value="AB">AB - ABERTA</option> <option value="AC">AC - A CONTINUAR</option> <option value="AV">AV - ANTECIPA&Ccedil;&Atilde;O DE VISITAS</option> <option value="BC">BC - BAIXA CONCLUIDA</option> <option value="CA">CA - CANCELADAS</option> <option value="NF">NF - N&Atilde;O FEITAS</option> <option value="RP">RP - REPROGRAMADAS</option> </select> </td> <td width="13%" class="SubTitulo">Empresa:</td> <td width="17%"> <select name="seEmpresa" class="campo" style="width:120px" onChange="trazdados();"> <option value="0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("idEmpresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select> </td> </tr> <tr> <td colspan="6" class="Titulo">Filtro Tecnico:</td> </tr> <tr> <td class="SubTitulo">Tecnico:</td> <td colspan="4"> <div id="divtecnico"> <select name="select" class="campo" style="width:150px" onChange="trazdadosTecnicos();"> <option value="0">Selecione</option> </select> </div> </td> <td> <input name="codTecnico" type="hidden" id="codTecnico" value="<%=idTecnico%>" /> <input name="codEmpresa" type="hidden" id="codEmpresa" value="<%=idEmpresa%>" /> <input name="codServicos" type="hidden" id="codServicos" value="<%=idServico%>" /> <input name="codStatus" type="hidden" id="codStatus" value="<%=idStatus%>" /> </td> </tr> <tr> <td colspan="6" class="Titulo">Filtro Servi&ccedil;o:</td> </tr> <tr> <td class="SubTitulo">Servi&ccedil;o:</td> <td colspan="3" class="SubTitulo"> <select name="seServicos" class="campo" id="seServico" style="width:200px" onChange="trazdadosservicos();"> <option>Selecione</option> <option value="ATDH">ATDH - ASSISTENCIA T&Eacute;CNICA DTH</option> <option value="ATDM">ATDM - ASSISTENCIA T&Eacute;CNICA DANOS MATERIAIS</option> <option value="INST">INST- INSTALA&Ccedil;&Atilde;O PROCESSO</option> <option value="RGAT">RGAT- RETORNO GARANTIA ASSISTENCIA T&Eacute;CNICA </option> <option value="RGIN">RGIN - RETORNO GARANTIA INSTALA&Ccedil;&Atilde;O</option> <option value="SOBR">SOBR - SOBRA</option> </select> </td> <td><input name="butPesquisar" type="button" id="butPesquisar" value="BUSCAR" onClick="trazdadospesquisa();" /></td> <td><input name="butLimpar" type="button" id="butLimpar" value="LIMPAR" onClick="Limpar();"></td> </tr> </table></td> </form> </tr> <tr> <td height="290" colspan="2" align="center" valign="top"><table width="100%" height="280" border="0" align="center" cellpadding="0" cellspacing="1" class="Tabela"> <%Bg="#FFFFFF"%> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo">No. Os</td> <td width="10%" align="center" class="SubTitulo">Servi&ccedil;o</td> <td width="9%" align="center" class="SubTitulo">Tipo Os </td> <td width="9%" align="center" class="SubTitulo">Periodo</td> <td width="10%" align="center" class="SubTitulo">Status</td> <td width="9%" align="center" class="SubTitulo">CEP</td> <td width="10%" align="center" class="SubTitulo">Cidade</td> <td width="10%" align="center" bgcolor="<%=Bg%>" class="SubTitulo">Bairro</td> <td width="10%" align="center" class="SubTitulo">Residencia </td> <td width="13%" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr> <td height="260" colspan="10" valign="top"><div id="divPesquisa" style="height:auto;"></div></td> </tr> </table></td> </tr> </table> </body> </html> Aqui vai o objRotaGeral.asp onde esta o problema: <html> <head> <title>Rota Geral</title> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <script language="javascript" src="jsp/ajax.js"></script> <script type="text/JavaScript"> function trazdados2() { var arr = new String(frmObjRotas.seEmpresa.value); arr = arr.split('|'); frmObjRotas.codEmpresa.value = arr[0]; var objTecnico = createXMLHTTP(); objTecnico.open("post", "objTecnicos.asp", true); objTecnico.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); objTecnico.onreadystatechange=function(){ if (objTecnico.readyState==4){ document.all.divtecnico2.innerHTML = objTecnico.responseText;}} objTecnico.send("idEmpresa=" + frmObjRotas.codEmpresa.value); } function trazdadosTecnicos2(){ var arr = new String(frmObjRotas.seTecnicos.value); arr = arr.split('|'); frmObjRotas.codTecnico.value = arr[0]; } </script> </head> <body> <!--#include file="strCon.asp"--> <% dim strSql,Conexao call abreConexao() data = Request("strData") sStatus = Request("sStatus") idServico = Request("idServico") idEmpresa = Request("idEmpresa") idTecnico = Request("idTecnico") dia = datepart ("d", data) mes = datepart ("m", dada) dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabDth.DatCompromisso,tabDth.Periodo,tabDth.QtdPontos,tabDth.Status,tabCidades.Cidade" campo = campo & ",tabCliente.Cep,tabCliente.Bairro,tabCliente.TipoResidencia,tabDth.IdServico,tabTipoOs.Descricao" campo = campo & ",tabDTh.idEmpresa,tabDth.idTecnico" strSql = "SELECT " & campo strSql = strSql & " FROM tabTipoOs INNER JOIN (tabEstados INNER JOIN ((tabCidades INNER JOIN tabCliente ON " strSql = strSql & "tabCidades.idCidade = tabCliente.IdCidade) INNER JOIN tabDth ON " strSql = strSql & "tabCliente.idCliente = tabDth.idCliente) ON (tabEstados.idEstado = tabCliente.IdEstado) " strSql = strSql & "AND (tabEstados.idEstado = tabCidades.idEstado)) ON tabTipoOs.idTipoOs = tabDth.idTipoOs " strSql = strSql & "WHERE tabDth.DatCompromisso=#" & strData & "#" if sStatus <> "" Then strSql = strSql & " and tabDth.Status = '" & sStatus & "' " end if if idServico <> "" then strSql = strSql & " and tabDth.idServico = '" & idServico & "'" end if if idEmpresa <> "" then strSql = strSql & " and tabDth.idEmpresa = " & idEmpresa end if if idTecnico <> "" then strSql = strSql & " and tabDth.idTecnico = " & idTecnico end if 'Response.Write(strsql) 'response.End() if rsRota.state = 1 then rsRota.Close rsRota.Open strSql, Conexao, 3, 3 status = "Rota Geral " rs = rsRota.RecordCount if rsRota.RecordCount = 0 then %> <script>alert("A pesquisa não encontradas nada");</script> <% else %> <form name="frmObjRotas" id="frmObjRotas" method="post" action="objRotageral.asp"> <table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela1"> <tr> <td colspan="2"><div style="height:150px;overflow:auto;"><table width="100%" border="0" align="left" cellpadding="1" cellspacing="1" class="Tabela1" style="margin-left:0"> <%if not rsRota.Eof then dim i i =0 vVetor = 0 while Not rsRota.EOF if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Descricao"),30)%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Status")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Cep")%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Cidade"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Bairro"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("TipoResidencia"),10)%></td> <td width="10%" class="SubTitulo"><input name="chkItem" type="checkbox" class="campo" id="chkItem" value="<%=rsRota("NoOs")%>" /> <%if rsRota("idEmpresa") <> 0 then%> <%=rsRota("idEmpresa")%> <%end if%> - <%if rsRota("idEmpresa")<>0 then%> <%=rsRota("idTecnico")%> <%end if%> </td> </tr> <% rsRota.Movenext wEnd end if %> </table></div></td> </tr> <tr> <td width="89%" rowspan="2"><table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td width="8%">Empresa:</td> <td width="47%"> <select name="seEmpresa" class="campo" style="width:120px" onchange="trazdados2();"> <option value="0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("idEmpresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select> </td> <td width="22%" rowspan="3">&nbsp;</td> <td width="23%" rowspan="3"> <input name="codTecnico" type="hidden" id="codTecnico" value="<%=idTecnico%>" /> <input name="codEmpresa" type="hidden" id="codEmpresa" value="<%=idEmpresa%>" /></td> </tr> <tr> <td>Tecnico:</td> <td> <div id="divtecnico2"> <select name="seTecnico" class="campo" id="seTecnico" style="width:150px"> <option value="0">Selecione uma empresa</option> </select> </div> </td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table></td> <td width="11%" height="46" align="center"><label> <input name="butAtribuir" type="button" id="butAtribuir" value="ATRIBUIR" /> </label></td> </tr> <tr> <td height="30" align="center"><label> <input name="butCancelar" type="button" id="butCancelar" value="FECHAR" /> </label></td> </tr> </table> <%end if%> </form> </body> </html>

a ta entendi vou tentar depois coloco se deu certo.

é isso mesmo valeu ajudo pacas