Microsoft VBScript runtime error '800a000d'

[smez]

<%
Set parcela = createobject("adodb.recordset")
Set parcela.activeconnection = abredb
      
SQL = "SELECT * FROM mgitu.itu_vw_condpagto WHERE cond_st_codigo='"&Session("CondPagto")&"'"
parcela.open sql
      
total = parcela("cond_in_parcelas")
[color="#FF0000"]if i = total Then[/color] linha do erro
i = 0
%>
texto
<%
End If
i = i +1
%>

estou fazendo esse for acima , esta funcionando corretamente, mas quando tento colocar o total do I que e para trazer do banco da esse erro

Microsoft VBScript runtime error '800a000d'

Type mismatch

/novo/sistema/pedidoAdd3.asp, line 157

o que sera que pode ser

[webdeveloper]

Faça isso e veja o que aparece.

<%
Set parcela = createobject("adodb.recordset")
Set parcela.activeconnection = abredb
      
SQL = "SELECT * FROM mgitu.itu_vw_condpagto WHERE cond_st_codigo='"&Session("CondPagto")&"'"
parcela.open sql
      
Response.Write parcela("cond_in_parcelas")
Response.End

total = parcela("cond_in_parcelas")
[color="#FF0000"]if i = total Then[/color] linha do erro
i = 0
%>
texto
<%
End If
i = i +1
%>

[smez]

esta trazendo o valor do banco, ex.: 4

[webdeveloper]

O campo cond_st_codigo é de que tipo na tabela itu_vw_condpagto?

Se for numérico, retire as aspas simples:

SQL = "SELECT * FROM mgitu.itu_vw_condpagto WHERE cond_st_codigo="&Session("CondPagto")&""

Outra coisa, antes de chamar o resultado do RecordSet, verifique se o mesmo retornou algo:

If Not parcela.EOF Then
       total = parcela("cond_in_parcelas")
       If i = total Then
              i = 0
              %>
              texto
              <%
       End If
       i = i +1
End If
%>

Editado Março 11, 2008 por webdeveloper

[kuroi]

o q tem na variavel i?? se você quer comparar com numeros, ela não pode conter texto. e tb não pode estar em branco.

caso você tenha certeza q tem um numero nela, converta pra numero com CDbl(). tipo assim:

If CDbl(i) = CDbl(total) Then