Exibir link com categoria

[nldj 0]

Estou com problema no código abaixo. Quando executo a página ele roda o select top 1 e mostra na tela só o IdContato, invés de abrir o form e trazer na URL a variável ?IdContato=

 

Trata-se de uma central de atendimento que puxa de diversas origens os dados de contato cadastrados para o operador ligar. Serve para gravar o atendimento.

 

sSQL3 = "SELECT TOP 1 * FROM tblContato C WHERE C.Finalizado = 'N' AND C.Origem = 'Prospects' AND C.Email <> '' "
   IF request.QueryString("idContato") <> "" THEN
       sSQL3 = sSQL3 & " AND C.idContato > "&request.QueryString("idContato")&" "
   END IF
   sSQL3 = sSQL3 & " ORDER BY C.idContato ASC "
   SET RS3 = cnn.Execute(sSQL3)
   if not RS3.EOF then
   while not RS3.EOF	

       idContato		= RS3("idContato")

       sSQL4 = " SELECT tblFollowUp.DataCadastro AS DataCadastroFollow, idFollowUp FROM tblFollowUp WHERE idDados = "&idContato&" AND Origem IN ('Contato Prospects') ORDER BY idFollowUp DESC "
       SET RS4 = cnn.Execute(sSQL4)
       if not RS4.EOF then
           vDiasFollow = Datediff("d",RS4("DataCadastroFollow"),now())
       else
           vDiasFollow = 16
       end if

       IF cdbl(vDiasFollow) > 15 THEN

           response.Write( idContato )
           response.End()

               sSQL = " SELECT C.idContato AS idContatoCadastro,C.DataCadastro AS DataCadastroContato,C.Empresa,C.Nome,C.Email,C.DDD,C.Telefone,C.Ramal,C.Cidade,C.Estado,C.Pesquisa,C.Comentarios,A.Nome AS NomeColaborador FROM tblContato C LEFT JOIN tblFollowUp F ON C.idContato = F.idDados LEFT JOIN tblAdministradores A ON A.idAdministrador = C.idCadastro WHERE AND C.idContato > "&idContato&" "										
               SET RS = cnn.Execute(sSQL)
               if not RS.EOF then

                   idContato		= RS("idContatoCadastro")
                   Empresa		= RS("Empresa")
                   Nome		= RS("Nome")
                   Email		= RS("Email")
                   Telefone		= "("& RS("DDD") &")"& RS("Telefone") &" - R: "&RS("Ramal")
                   Cidade		= RS("Cidade")
                   Estado		= RS("Estado")
                   Pesquisa		= RS("Pesquisa")
                   Comentarios		= RS("Comentarios")
                   DataCadastro	= RS("DataCadastroContato")
                   NomeColaborador	= RS("NomeColaborador")

                   cnn.execute("INSERT INTO tblLogFollowAtendimento (idContato,idCadastro) VALUES ("&idContato&","&session("idAdministrador")&") ")

                   sSQL5 = "SELECT TOP 1 idLogFollowAtendimento, tblLogFollowAtendimento.DataCadastro FROM tblLogFollowAtendimento WHERE tblLogFollowAtendimento.idContato = "&idContato&" AND tblLogFollowAtendimento.idCadastro = "&session("idAdministrador")&" ORDER BY idLogFollowAtendimento DESC"
                   SET RS5 = cnn.Execute(sSQL5)
                   if not RS5.EOF then

                       DataCadastroLog = RS5("DataCadastro")

                   end if

               end if
               RS.close
               set RS = nothing

       ELSE

               RESPONSE.Write( sSQL3&"<br><br>"&idContato )
   response.End()
               response.Redirect("CentralTLMKT.asp?idContato="&idContato)

       END IF

   RS3.movenext
   wend	
   end if

[xanburzum 169]

ele esta executando apenas a sSQL3

sua estrutura de If esta meio confusa....

sugiro melhorá-la