[Resolvido] Erro em tempo de execução

[Ulisses Meira 0]

Olá Pessoal

Estou com um problema que já não sei mais o que fazer para resolver.

Tenho um codigo que roda perfeitamente em um servidor Windows Server 2003.

Configurei um outro servidor para rodar o código. Mas quando coloco pra rodar me da o seguinte erro.

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis

 

 

/printCLINICA.asp, line 146

 

Já fiz de tudo no servidor e não funciona.

O Codigo é o seguinte.

 

 

 

ASP

<!--#include file="conexaosql.asp"-->

<%

Set rs_gr = Server.CreateObject("ADODB.RecordSet")

strsql_gr = "select ID,COUNT(ID) AS CONTAG From prescricao WHERE ra1 LIKE '%" &(Replace(ra, "'", "''")) & "%' and dia LIKE '%" &(Replace(diaq, "'", "''")) & "%'and mes LIKE '%" &(Replace(mesq, "'", "''")) & "%' and ano LIKE '%" &(Replace(anoq, "'", "''")) & "%' GROUP BY ID"

rs_gr.Open strsql_gr, conn_presc

rs_gr.MoveFirst

Do While Not rs_gr.EOF

strSQL = "select ID,DESCR_MED,DOSE,VIA,HORA From prescricao where ra1 LIKE '%" &(Replace(ra, "'", "''")) & "%' and dia LIKE '%" &(Replace(diaq, "'", "''")) & "%'and mes LIKE '%" &(Replace(mesq, "'", "''")) & "%' and ano LIKE '%" &(Replace(anoq, "'", "''")) & "%' and ID = "&rs_gr("ID")&" order by id"

Set rstSearch = conn_presc.Execute(strSQL)

rstSearch.MoveFirst

Do While Not rstSearch.EOF

%>

[b][color="#FF0000"]'Linha 146' [/b]^{[/sup]<table width="100%" id="table19" border=<%if rs_gr("CONTAG").Value > 1 then response.write ("0") else response.write("1") end if%> bgcolor=<%if rs_gr("CONTAG").Value > 1 then response.write ("#C0C0C0") else response.write ("white") end if%> cellspacing="1" height="17"><tr>[/color]}

^{<a name="id1"></a><td width="57"><font face="Arial Black" size="1"><%if rs_gr("CONTAG").Value > 1thenRESPONSE.WRITE rstSearch.Fields("id").Value & " - " & "Assoc"ELSEresponse.write rstSearch.Fields("id").Value %></b></td>}

^{<td><font size="1" ><b><%= rstSearch.Fields("DESCR_MED").Value %></b></font></td>}

^{<td width="42" align="center"><font size="1"><b><%= rstSearch.Fields("DOSE").Value %></b></font></td>}

^{<td width="35"><font size="1"><b><%= rstSearch.Fields("VIA").Value %></b></font></td>}

^{<td width="60"><font size="1"><b><%= rstSearch.Fields("HORA").Value %></b></font></td></td>}

^{<td width="362"> <%if rs_gr("CONTAG").Value > 1thenresponse.write"<br>"%></td></tr></table>}

^<%

^{rstSearch.MoveNext}

^Loop

^{rs_gr.Movenext}

^Loop

^{Conn_presc.Close}

^{Set Conn_presc = Nothing%>}

 

 

^{Alguem poderia me ajudar??????Por Favor...}

 

^Att:.

 

^Ulisses

[Ted k' 126]

tente agora:

 

ASP

<table width="100%" id="table19" border=<% if rs_gr("CONTAG").Value > 1 then : response.write("0") : else : response.write("1") : end if %> bgcolor=<% if rs_gr("CONTAG").Value > 1 then : response.write("#C0C0C0") : else : response.write("white") : end if %> cellspacing="1" height="17"><tr>

<a name="id1"></a><td width="57"><font face="Arial Black" size="1"><%if rs_gr("CONTAG").Value > 1 then : RESPONSE.WRITE(""&rstSearch.Fields("id").Value&" - " &"Assoc") : ELSE : response.write(""&rstSearch.Fields("id").Value&"") : End If %></b></td>

<td><font size="1" ><b><%= rstSearch.Fields("DESCR_MED").Value %></b></font></td>

<td width="42" align="center"><font size="1"><b><%= rstSearch.Fields("DOSE").Value %></b></font></td>

<td width="35"><font size="1"><b><%= rstSearch.Fields("VIA").Value %></b></font></td>

<td width="60"><font size="1"><b><%= rstSearch.Fields("HORA").Value %></b></font></td></td>

<td width="362"> <%if rs_gr("CONTAG").Value > 1 then response.write "<br>"%></td></tr></table>

[Mário Monteiro 179]

qual a linha do erro?

[Ulisses Meira 0]

Ola Mário..É a linha 146 onde começa o html...

 

Olá ted ..valeu a dica..mas continua dando o mesmo erro...

 

Lembrando que o mesmo codigo roda normal em outro servidor...

 

Help Me...

[Mário Monteiro 179]

o campo CONTAG tem numeros mesmo? é do tipo numerico?

 

se nao for converta para numeros antes de comparar

[Ulisses Meira 0]

Então Mário...

 

Na verdade esse campo CONTAG é apenas para verificar se no campo ID existe mais de um registro...Ai ele vai e retira a borda se tiver mais de um registro..

E o campo ID é numérico...

 

Att.

 

Ulisses

[Mário Monteiro 179]

o erro é de tipos mesmo?

 

se incomoda de testar o seguinte

 

em vez de

 

ASP

rs_gr("CONTAG").Value

 

colocar

 

ASP

CINT(rs_gr("CONTAG").Value)

[Ulisses Meira 0]

Mário sou Hetero.... Mas eu Te amo cara..sou seu fã...

 

Deu Certo.......

 

Estou há um mês pra resolver isso..

 

Cara Valeu Mesmo...Muito Obrigado

[Mário Monteiro 179]

tranquilo tiozinho

 

o campo no db pode estar como texto por isso tava dando erro de tipo

 

ele tava comparando um texto com um numero e "1" é diferente de 1 neste tipo de comparação

 

Que bom que resolveu

 

Abraços