hdcyberman

Pessoal, estou precisando justamente do codigo abaixo, mas nao to conseguindo botar pra rodar..
Uso um banco sql. Qual é a minha necessidade nesse codigo? na clausula Where ela identifica se um cliente em titulos em aberto e retorna alguns campos. só que um cliente pode ter mais de um titulo. entao usei o codigo de voces pra filtrar pelo codigo do cliente, pra listar os titulos.
Atualmente da o seguinte erro:

Microsoft OLE DB Provider for SQL Server error '80040e07'
Syntax error converting the varchar value 'E085HCL.CODCLI' to a column of data type int.
/intranet/requisicao.asp, line 31


Vejam se podem me ajudar!! Por favor!

<%
SevidorDeBancoDeDados = "X.X.X.X"
BancoDeDados = "XXXXX"
UsuarioDoBancoDeDados = "XXX"
SenhaDoBancoDeDados = "XXX"%>

<%Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=SQLOLEDB.1; SERVER=" & SevidorDeBancoDeDados & "; DATABASE=" & BancoDeDados & "; UID=" & UsuarioDoBancoDeDados & "; PWD=" & SenhaDoBancoDeDados & ";"
set RsTemp=Conexao.execute("SELECT DISTINCT E085HCL.CODCLI FROM E301TCR, E085CLI, E085HCL, E039POR, E001TNS, E002TPT, E070FIL, E070EMP WHERE"+_
"(((E085HCL.CODCLI = E301TCR.CODCLI) AND (E085HCL.CODEMP = E301TCR.CODEMP) AND "+_
"(E085HCL.CODFIL = E301TCR.CODFIL))) AND ((E301TCR.CODEMP = 1)) AND ((E301TCR.CODFIL = 1) OR "+_
"(E301TCR.CODFIL = 9999)) AND ((E301TCR.CODREP = 42)) AND ((E301TCR.CODEMP = E001TNS.CODEMP) AND"+_
"(E301TCR.CODTNS = E001TNS.CODTNS) AND (E301TCR.CODEMP = E039POR.CODEMP) AND (E301TCR.CODPOR ="+_
"E039POR.CODPOR) AND (E301TCR.CODEMP = E070EMP.CODEMP) AND (E301TCR.CODEMP = E070FIL.CODEMP) AND"+_
"(E301TCR.CODFIL = E070FIL.CODFIL) AND (E301TCR.CODCLI = E085CLI.CODCLI) AND ((E085HCL.CODCLI = E301TCR.CODCLI)"+_
"AND (E085HCL.CODEMP = E301TCR.CODEMP) AND (E085HCL.CODFIL = E301TCR.CODFIL)) AND (E301TCR.CODTPT = E002TPT.CODTPT))"+_
"AND ((E301TCR.VLRABE > 0 ) AND (E301TCR.VCTPRO + E039POR.FLOBAN + E085HCL.MEDATR <= CONVERT(DATETIME, '24-03-2008'))) ORDER BY E085HCL.CODCLI")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%RsTemp.Movefirst
do until rsTemp.EOF
requisicao = ("E085HCL.CODCLI")
%>
<tr>
<td>&nbsp;</td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%Set Conexao2 = Server.CreateObject("ADODB.Connection")
Conexao2.Open "Provider=SQLOLEDB.1; SERVER=" & SevidorDeBancoDeDados & "; DATABASE=" & BancoDeDados & "; UID=" & UsuarioDoBancoDeDados & "; PWD=" & SenhaDoBancoDeDados & ";"
set RsTemp2=Conexao2.execute("SELECT E301TCR.NUMTIT,E301TCR.CODTPT FROM E301TCR, E085CLI, E085HCL, E039POR, E001TNS, E002TPT, E070FIL, E070EMP WHERE"+_
"(((E085HCL.CODCLI = E301TCR.CODCLI) AND (E085HCL.CODEMP = E301TCR.CODEMP) AND "+_
"(E085HCL.CODFIL = E301TCR.CODFIL))) AND ((E301TCR.CODEMP = 1)) AND ((E301TCR.CODFIL = 1) OR "+_
"(E301TCR.CODFIL = 9999)) AND ((E301TCR.CODREP = 42)) AND ((E301TCR.CODEMP = E001TNS.CODEMP) AND"+_
"(E301TCR.CODTNS = E001TNS.CODTNS) AND (E301TCR.CODEMP = E039POR.CODEMP) AND (E301TCR.CODPOR ="+_
"E039POR.CODPOR) AND (E301TCR.CODEMP = E070EMP.CODEMP) AND (E301TCR.CODEMP = E070FIL.CODEMP) AND"+_
"(E301TCR.CODFIL = E070FIL.CODFIL) AND (E301TCR.CODCLI = E085CLI.CODCLI) AND ((E085HCL.CODCLI = E301TCR.CODCLI)"+_
"AND (E085HCL.CODEMP = E301TCR.CODEMP) AND (E085HCL.CODFIL = E301TCR.CODFIL)) AND (E301TCR.CODTPT = E002TPT.CODTPT))"+_
"AND ((E301TCR.VLRABE > 0 ) AND (E301TCR.VCTPRO + E039POR.FLOBAN + E085HCL.MEDATR <= CONVERT(DATETIME, '24-03-2008'))) AND E085HCL.CODCLI = '"&requisicao&"'")
do until RsTemp.EOF%>
<tr>
<td>&nbsp;</td>
</tr>
<%RsTemp2.Movenext
loop%>
</table>
</td>
</tr>
<%rsReq.Movenext
loop%>
</table>