Clauido José

valeu obrigado

Ola pessoal estou com uma duvida existe alguma maneira para bular o servido proxy de uma rede da empresa? Oi sou eu de novo o problema é seguinte trabalho numa empresa grande e como analista programador o pessoal aqui me liberou o meu pc para poder trabalhar com IIS e instalar o MSN bom o problema ta no MSN não sei porque cargas ele não ta abrindo já instalei ele no Firewalll e tudo não sei se é o antivirus a gente tem um servidor proxy será que é isso? ou sera que é o antivirus que é McAffe?

foi isso mesmo rafa valeu vivendo e aprendendo tb nunca passei por isso dei um boot e resolver rsrsrsrs o vida.

Pessoal minha maquina ficou loca bom é seguinte eu fiz um script em para importar um banco de dados mas deu um problema eu fechei o browser bom pra minha supresa o script não parou a tabela que estou importando continua recebendo os dados do script não sei como resolver isso alguém pode me ajudar não sei é aqui que eu posto mas se não for desculpe me ajudem?

Ola pessoal gostaria de saber como faço para me increver no toneio e como faço para envair meu script já ta quase pronto.

resolvi mais graças a forum valeu obrigado agora ao outro tópico da função ajax será que alguém pode me ajudar estou empacado.

cara eu tenho um jeito mais facil pra enviar email mas você precisa ter o cdont.dll intalado na seu windows se quizer eu posto o script aqui ok.

Ei rafinha salvou minha pele mais uma vez mas o que me ajudou tb foi pesquisar aqui no forum, o script ficou assim pra você te uma ideia o response.expire não deu certo ai que eu fiz o seguinte antes do select eu coloquei o response.Buffer = True e Server.ScriptTimeout = 999999 antes do loop começar eu coloquei o Response.Flush e antes dele pular o registro com o rsAcrecimo.Movenext eu coloquei Response.Clear() vou colocar o codigo pra você olharem e pra ajudar valeu mais uma. <!--#include file="strCon.asp"--> <% dim strTitulo,strTexto,strNew, Conexao, strSql,sDatBaix call abreConexao() Response.Buffer = True Server.ScriptTimeout = 999999 data = date-1 dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "DTH.NoOs,DTH.Cliente,DTH.Endereco,DTH.Bairro,DTH.Cep,DTH.Cidade,DTH.ESTADO,DTH.Tipo_Residencia" strSql = "SELECT " & campo & " FROM DTH " strSql = strSql & "where DTH.ESTADO= '" & Request("ESTADO") & "'" if rsAcrecimo.state = 1 then rsAcrecimo.Close rsAcrecimo.Open strSql, Conexao, 3,3 'response.Write(rsAcrecimo.RecordCount) dim i i = 0 Response.Flush if rsAcrecimo.RecordCount >0 then while not rsAcrecimo.Eof 'Variaves do campo DTH sNoOs11 = rsAcrecimo("NoOs") sClient = rsAcrecimo("Cliente") sEndere = rsAcrecimo("Endereco") sBairro = rsAcrecimo("Bairro") sCep010 = rsAcrecimo("Cep") sCidade = rsAcrecimo("Cidade") sEstado = rsAcrecimo("Estado") sTipoRe = rsAcrecimo("Tipo_Residencia") 'Procura a cidade do cliente strSql = "Select * from tabCidades where Cidade = '" & rsAcrecimo("Cidade") & "'" if rsCidade.state = 1 then rsCidade.close set rsCidade = Conexao.Execute(strSql) if not rsCidade.Eof then sIdEsta = rsCidade("idEstado") sIdCida = rsCidade("idCidade") else sIdCida = 0 end if rsCidade.Close strSql = "Select * from tabEstados where idEstado = " & sIdEsta 'Response.Write(strsql) 'Response.end() if rsEstado.state = 1 then rsEstado.Close set rsEstado = Conexao.Execute(strSql) if not rsEstado.Eof then sIdEsta = rsEstado("idEstado") else sIdEsta = 0 end if rsEstado.Close strSql = "Select * from tabCliente where NomeCliente = '" & rsAcrecimo("Cliente") & "'" 'response.Write(strSql) 'response.End() if rsCliente.state = 1 then rsCliente.Close set rsCliente = Conexao.Execute(strSql) if rsCliente.eof then 'Inserindo os registro na tabela tabDth campo = "NoOs,NomeCliente,Endereco,Bairro,Cep,IdEstado,idCidade,TipoResidencia" strSql= "Insert Into tabCliente (" & campo & ") values (" strSql = strSql & sNoOs11 & ",'" & sClient & "','" & sEndere & "','" & sBairro & "','" strSql = strSql & sCep010 & "'," & sIdEsta & "," & sIdCida & ",'" & sTipoRe & "')" i = i + 1 end if Conexao.Execute(strSql) Response.Clear() rsAcrecimo.MoveNext wEnd response.write ("Total="& rsAcrecimo.RecordCount & "<br>Total i:" & i) %> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <% else response.write "Total="& rsAcrecimo.RecordCount end if' %>

valeu rafa estou testando o response.expire depois eu vejo se vai dar certo ok

vou tentar rafa depois eu vejo o que consigo outra coisa esta tabela vou usar em uma intranet sera que vai me dar problema tb?

É deculpe rafael eu pensei que tinha resolvido o problema mas continua dando este erro o que pode ser Bom cara é seguinte eu fiz uma mesclagem do meu banco de dados pegando alguns registros menores e percebi que o poblema não ta no meu script mas sim no IIS bom gostaria de saber qual o tempo maximo de execução de script porque eu já aumentei o tempo maximo de conexao para 10000 mesmo assim da erro por exemplo quando tenho um uma mesclagem com mais de 20000 registro ele me da essa mensagem agora quando tenho um regestro menor que 20000 ele executa beleza então não o problema do meu script mas sim do IIS certo alguém pode me ajudar?

Bom pessoal to importando uma tabela atinga que tenho para um tabela nova que crei por exemplo na tabela atinga eu não tinha a tabela de estado e tabela de cidade bom o que estou fazendo na tabela nova eu procuro na tabela de cidade o campo cidades da tabela antinga e sucessivamente na tabela de estado com o campo do estado e gravo na tabela nova o id do estado e id da cidade bom o problema que essa tabela antina tem 18247 só de um estado e quando estou executando esta função de importação ele me da o seguinte errro: e grava apenas 12281 registros alguém pode me ajudar com esse erro?

cara é seguinte andei dando uma depurada no codigo e percebi que o problema não é meu codigo mas sim a tabela antinga que ta zuada os campos não estao batando com o campos novos vou ter que verficar registro por registro valeu mas resolvi.

cara aqui na empresa não abre esse site por causa do servidor proxy não tem outro site que possa ver como fazer?

Ola pessoal estou com um problemão tenho que importar uma tabela de um banco de dados access para outra tabela do mesmo banco fizemos uma ateração na tabela e preciso atualizara nova tabela com a atinga ela tem 525000 registro bom meu problema ta no tempo Server.ScriptTimeout quando execute a pagina de importação ele da este erro: Como posso resolver?

È seguinte ele ta entrando já debuguei ele com alert ele faz a atualização com o banco mas o que acontece que ele não atualiza vou resumir o codigo para você entender. Esta é a função ajax. //-->Função que chama o programa para gravar dados da atribuição function gravaratribuicao(iQtdeVetor,sdata) { var ck=new Array(); var ck2 var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " } } var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objrotageral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==1) { document.all.conteudo.innerHTML = oHTTPRequest.responseText; } } oHTTPRequest.send("sOpcao=1"+"&ok=ok"+"&strData="+sdata+"&idEmpresa="+frmObjRotas.codobjEmpresa.value+"&idTecnico="+frmObjRotas.codObjTecnico.value +"&sNoOs="+ck) //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ document.frmObjRotas.chkItem.checked = false; }else{ for (var i=0;i<iQtdeVetor;i++){ //Controles É ARRAY deve ser tratado com o indíce document.frmObjRotas.chkItem[ i ].checked = false; } } document.getElementById("Atribui").style.display="none" } O objrotageral é mesmo arquivo que eu chamo o ajax sera que é isso?

Desculpe como posso cancelar os outros?

essa rotina está em php o site que estou fazendo esta em asp alguém tem algum exemplo? outra coisa eu fiz um exemplo mas ele mostra muito rapido porque

Ola pessoal gostaria de ter um exemplo de como carregar um preload com ajax tenho um gif pra isso

pra ode eu envio o script?Como eu me casdastro no torneio?

Ola pessoal estou com problema numa rotina em ajax que fiz bom é seguinte esta rotina chama uma pagina para atualizar um banco de dados mas na verdade esta pagina ele é mesma que que eu chamo o ajax o problema é seguinte a primeira vez que eu entro na tela ela execute beleza mas a segunda vez ela não chama o ajax alguém pode me ajudar vou postar a pagina para você verem. <link href="css/rotageral.css" rel="stylesheet" type="text/css"> <!--#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) 'Traz dadps das rotas selecinados geral 'Response.Write("opção="&sOpcao) 'response.End() if sOpcao = 1 then if Request("ok")="ok" then sNoOs=Request("sNoOs") vItensMarcado = split(sNoOs,",") 'Response.Write("teste"&sNoOs) 'response.End() if not IsArray(vItensMarcado) then vItensMarcado = array(vItensMarcado) end if for i = 0 to ubound(vItensMarcado) if vItensMarcado(i) <> "" then strSql = "Select * from tabDTH where DatCompromisso = #" & formataData(strData) & "# " strSql = strSql & " and NoOs = " & vItensMarcado(i) 'Response.Write(strsql) 'response.End() set rsRota = Conexao.Execute(StrSql) if not rsRota.Eof then if idEmpresa = "" then idEmpresa = 0 end if if idTecnico = "" then idTecnico = 0 end if strSql = "Update tabDth Set " strSql = StrSql & "idEmpresa=" & cint(idEmpresa) & "," strsql = strSql & "idTecnico=" & cint(idTecnico) strSql = strSql & " where idDth=" & rsRota("idDth") 'response.Write("<Br>"&strSql) 'response.End() Conexao.Execute(StrSql) end if end if next idEmpresa = "" idTecnico = "" end if 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=#" & formataData(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 = "Pool" 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 %> <div id="divAtribuir"> <form name="frmObjRotas" id="frmObjRotas" method="post" action=""> <table width="730" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela"> <tr> <td colspan="5" valign="top"><table width="730" height="36" border="0" cellpadding="2" cellspacing="2"> <tr> <td colspan="7"><span class="SubTitulo">Ola <%=Session("Usuario")%> voc&ecirc; est&aacute; em <strong>Sistema Integrado DTH 25 &raquo; Resultado </strong> <strong>&raquo;</strong> Pesquisar <strong>&raquo; Rotas &raquo; Pool </strong></span></td> </tr> <tr> <td width="2%"><img src="imagem/icon_seta.gif" width="6" height="11" /></td> <td width="8%"><a href="#" class="SubTitulo" onclick="mostraEsconde('Atribui',<%=rs%>)">Abribuir</a></td> <td width="2%"><img src="imagem/icon_seta.gif" width="6" height="11" /><a href="#" onclick="mostraEsconde('ReAtribui',<%=rs%>)"></a></td> <td width="9%"><a href="#" class="SubTitulo" onclick="mostraEsconde('ReAtribui',<%=rs%>)">Reatribuir</a></td> <td width="2%"><img src="imagem/icon_seta.gif" width="6" height="11" /><a href="#" class="SubTitulo" onclick="Cancela();"></a></td> <td width="6%"><a href="#" class="SubTitulo" onclick="Cancela();">Fechar</a></td> <td width="71%">&nbsp;</td> </tr> </table></td> </tr> <tr> <td colspan="5" valign="top"><table width="730" border="0" cellpadding="3" cellspacing="3"> <%Bg="#FFFFFF"%> <tr bgcolor="<%=Bg%>" id="rotageral"> <td width="50" height="15" align="center" class="SubTitulo">No. Os</td> <td width="50" align="center" class="SubTitulo">Servi&ccedil;o</td> <td width="50" align="center" class="SubTitulo">Tipo Os </td> <td width="50" align="center" class="SubTitulo">Periodo</td> <td width="35" align="center" class="SubTitulo">Status</td> <td width="90" align="center" class="SubTitulo">CEP</td> <td width="90" align="center" class="SubTitulo">Cidade</td> <td width="90" align="center" bgcolor="<%=Bg%>" class="SubTitulo">Bairro</td> <td width="90" align="center" class="SubTitulo">Residencia </td> <td width="30" align="center" class="SubTitulo">&nbsp;</td> <td width="30" align="center" class="SubTitulo">&nbsp;</td> <td width="30" align="center" class="SubTitulo"><p>&nbsp;</p></td> </tr> </table></td> </tr> <tr> <td height="380" colspan="5" valign="top"><div style="height:380px;overflow:auto;"><table width="730" border="0" cellpadding="3" cellspacing="3" class="Tabela1" style="margin-left:0"> <%if not rsRota.Eof then dim i i =0 vVetor = 0 while Not rsRota.EOF sData=rsRota("datCompromisso") if rsRota("idEmpresa")=0 and rsRota("idTecnico") = 0 then if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if elseif rsRota("idEmpresa")<>0 and rsRota("idTecnico")=0 then if Bg="#1C5180" then Bg="#5082B4" else Bg="#1C5180" end if elseif rsRota("idEmpresa")= 0 and rsRota("idTecnico")<>0 then Bg="#ECE8D7" elseif rsRota("idEmpresa") <> 0 and rsRota("idTecnico")<>0 then Bg="#0033FF" end if %> <tr bgcolor="<%=Bg%>"> <td width="50" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="50" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="50" align="center" bgcolor="<%=Bg%>" class="SubTitulo"><%=left(rsRota("Descricao"),25)%></td> <td width="42" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="42" align="center" bordercolor="#FFFFFF" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Status")%></td> <td width="78" align="center" class="SubTitulo"><%=rsRota("Cep")%></td> <td width="78" align="center" class="SubTitulo"><%=left(rsRota("Cidade"),10)%></td> <td width="78" align="center" class="SubTitulo"><%=left(rsRota("Bairro"),10)%></td> <td width="78" class="SubTitulo"><%=left(rsRota("TipoResidencia"),15)%></td> <td width="30" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="30" class="SubTitulo"><%=rsRota("idTecnico")%></td> <td width="30" align="center" class="SubTitulo"><input name="chkItem" type="checkbox" id="chkItem" value="<%=rsRota("NoOs")%>" /></td> </tr> <% rsRota.Movenext wEnd end if %> </table></div></td> <td width="92%" colspan="3"><div id="Atribui" style="display:none"> <table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td height="15" colspan="6"><div id="divAtribuiok" style="height:15px"><%=sData%></div></td> </tr> <tr> <td width="8%" class="SubTitulo">Empresa:</td> <td width="18%"> <select name="seobjEmpresas" class="campo" id="seobjEmpresas" 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="gravaratribuicao('<%=rs%>','<%=sData%>');"></td> <td width="10%" align="center" valign="middle"><input name="butCancelar" type="button" id="butCancelar" value="Sair" onClick="mostraEsconde('Atribui','<%=rs%>')"></td> <td width="6%">&nbsp;</td> <td width="48%"> <input name="codObjTecnico" type="hidden" id="codObjTecnico" value="<%=idTecnico%>" /> <input name="codobjEmpresa" type="hidden" id="codobjEmpresa" value="<%=idEmpresa%>" /></td> </tr> <tr> <td class="SubTitulo">Tecnico:</td> <td colspan="5"> <div id="divtecnico2" style="height:15px"> <select name="seObjTecnicos" class="campo" id="seTecnico2" style="width:150px" onChange="trazdadosTecnicos2();"> <option value="0">Selecione uma empresa</option> </select> </div> </td> </tr> </table></div></td> </tr> </table> </form> </div> <% end if end if %> A função ajax function gravaratribuicao(iQtdeVetor,sdata) { var ck=new Array(); var ck2 var s = 0 for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ ck += frmObjRotas.chkItem[ i ].value + ", " } } 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.divAtribuir.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("sOpcao=1"+"&ok=ok"+"&strData="+sdata+"&idEmpresa="+frmObjRotas.codobjEmpresa.value+"&idTecnico="+frmObjRotas.codObjTecnico.value +"&sNoOs="+ck) //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ document.frmObjRotas.chkItem.checked = false; }else{ for (var i=0;i<iQtdeVetor;i++){ //Controles É ARRAY deve ser tratado com o indíce document.frmObjRotas.chkItem[ i ].checked = false; } } document.getElementById("Atribui").style.display="none" }

puxa consegui resolver mais uma quebrando a cabeça fiz umas atlerações no codigo assima ficou legal que quiser pode ser uma pode ideia pra grid valeu. A vai a pagina principal. <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="5" class="Titulo">Dados dos da assinatura:</td> </tr> <tr> <td width="22%" class="SubTitulo">Pontos: </td> <td width="29%" class="Texto"><%=qtdPonto%></td> <td width="19%" class="SubTitulo">Produto:</td> <td colspan="2" class="Texto"><%=Descricao%></td> </tr> <tr> <td class="SubTitulo">Pacote:</td> <td class="Texto"><%=Pacote%></td> <td>&nbsp;</td> <td colspan="2" class="SubTitulo"> <input name="codStatusAP" type="hidden" id="scodStatus" value="<%=idStaus%>" /> <input name="codModelo" type="hidden" id="codModelo" value="<%=idModelo%>" /> </td> </tr> <tr> <td class="SubTitulo">Cod.Aparelho:</td> <td class="SubTitulo"><input name="txCodAparelho" type="text" class="SubTitulo" id="txCodAparelho" size="10" maxlength="10" /></td> <td class="SubTitulo">Cod.Smart:</td> <td colspan="2" class="SubTitulo"><input name="txCodSmart" type="text" class="campo" id="txCodSmart" size="15" maxlength="15" onkeypress="Cod();return IsNumber(event);" /></td> </tr> <tr> <td class="SubTitulo">Status:</td> <td class="Texto"> <select name="seStatusAP" class="campo" id="seStatusAP" style="width:70px" onchange="trazdadosStatusAp();"> <option value="0">Selecione</option> <option value="INST">INST</option> <option value="RET">RET</option> </select> </td> <td class="SubTitulo">Modelo:</td> <td width="22%"> <select name="seModelo" class="campo" id="seModelo" style="width:70px" 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> </td> <td width="8%" class="Titulo"><img src="imagem/img_plus.gif" width="12" height="12" border="0" class="SubTitulo" style="cursor:hand" onclick="gravaraparelho();" /></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0" cellpadding="3" cellspacing="3" class="Tabela1"> <tr> <td width="30%" class="SubTitulo">Cod.Aparelho</td> <td width="30%" class="SubTitulo">Cod.Smart</td> <td width="20%" class="SubTitulo">Satus</td> <td width="20%" class="SubTitulo">Modelo</td> </tr> </table></td> </tr> <tr> <td><div id="divAparelho" style="height:50px;overflow:auto"><!--#include file="objAparelhos.asp" --></div></td> </tr> </table> O codigo ajax para atualizar a tabela. function gravaraparelho() { if (window.confirm("Deseja gravar o aparelho?")) { var validou = validarAp() if ( validou ){ var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objAparelhos.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divAparelho.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("atc=ok"+"&sNoOs="+frmBaixaOs.codNoOs.value+"&scodStatus="+frmBaixaOs.codStatusAP.value+"&sModelo="+frmBaixaOs.codModelo.value+"&sCodAparelho="+frmBaixaOs.txCodAparelho.value+"&sCodSmart="+frmBaixaOs.txCodSmart.value); } } } E efim o objeto o nosso segredo. <!--#include file ="strCon.asp"--> <% call abreConexao() sNoOs=Request("sNoOs") sCodAparelho = Request("sCodAparelho") sCodSmart = Request("sCodSmart") scodStatus=Request("scodStatus") scodModelo=Request("sModelo") if Request("atc")="ok" then strSql = "Select * from tabAparelhos where CodSmart = '" & sCodSmart & "'" 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) else status = "!!Codigo Smart já cadastrado!!" end if end if %> <link href="css/rotageral.css" rel="stylesheet" type="text/css" /> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#FFFFFF"> <td width="100%" colspan="5" class="SubTitulo"><div id="divGravaApa"><%=Status%></div></td> </tr> </table></td> </tr> <tr valign="top"> <td valign="top"><div id="divAparelhos"><table width="100%" border="0" cellspacing="3" cellpadding="3"> <% strSql = "select * from tabAparelhos where NoOs=" & sNoOs 'response.Write(strsql) 'response.End() 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="20%" class="Texto"><%=rsAparelho("Status")%></td> <td width="20%" class="Texto"><%=rsAparelho("Modelo")%></td> </tr> <% rsAparelho.MoveNext wEnd %> </table> </div></td> </tr> </table> Valeu pessoal mais uma vez consegui quebrando a cabeça.

isso não ta trazendo a atualização do db o ajax ta certo mas no grid não ta atualizando entendeu.

Está é a pagina do meu cadastro onde tenho o grid e o formulario para cadastrar. <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> Este é o grid que falei vai em baixo do formulario para cadastar <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> Esta rotina é qual eu chamo o ajax para gravar na tabela. function gravaraparelho() { if (window.confirm("Deseja gravar o aparelho?")) { 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); } } } esta é rotina para atualizar a tabela gravaraparelhos.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!!" else %> <script>alert("Codigo smart já cadastrado");</script> <% end if end if %>

não é seguinte eu tenho o grid criado já mas o que eu quero é quando eu for inserir um registro novo ele atualize este registro no grid atomaticamente como um datagrid do vb entende só que estou usando ajax tb paragar atualizar a tabela entendeu