ajax,ajax,ajax

[Clauido José]

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.