Exibir link com categoria

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