Problemas com a função count

[interlokk 0]

Pessoal boa noite.

 

Há muito tempo não posto aqui, mas este problema merece atenção de profissionais. É o seguinte: no código abaixo tem uma função COUNT no sql que funcionava numa outra hospedagem com o banco MySQL. Ao mudar de hospedagem o count simplesmente parou de funcionar sem que eu alterasse mais nada. Inclusive o banco continua sendo Mysql. Agora tá dando o seguinte erro:

 

Tipos incompatíveis

 

/forum/ofbiz.asp, line 122

nas lçinha assinalada em vermelho do código abaixo:

 

 

sSQL = "SELECT Board_Forums.Title, COUNT(MsgID) AS Total " & _

"FROM Board_Forums " & _

"LEFT JOIN Board_Messages " & _

"ON (Board_Forums.ForumID = Board_Messages.ForumID) " & _

"WHERE Board_Forums.ForumID = " & ForumID & " " & _

"GROUP BY Board_Forums.Title"

 

set rsForum = cDB.GetRS(sSQL)

 

if rsForum.RecordCount = 0 then

iRet = ofErrNoSuchForum

else

ForumTitle = rsForum("Title")

MessageCount = rsForum("Total")

if MessageCount = 0 then

iRet = ofErrNoMessages

else

iRet = ofSuccess

end if

end if

 

 

Não sei o que pode estar errado, pois outras páginas que usam a função count estão funcionando, menos essa.

 

Qualquer dica será bem vinda. Valeu.

 

Abs.

[kaplan 0]

Amigo beleza??

 

uma dica quando você for fazer verificações usando numero exemplo

se dia = 2

 

faça assim se CInt(dia) = 2.....

 

Ou seja seu codigo ficara assim:

 

if Cint(MessageCount) = 0 then

 

tenta ae qq coisa da um alo http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[interlokk 0]

Tiago valeu mesmo pela atenção. Aparentemente o problema anterior foi resolvido. Mas agora tá dando outro erro que nunca vi:

A variável usa um tipo de automação sem suporte no VBScript

Que é gerado pela seguinte rotina:

private sub SortMsgs(aMsgs, iParentID, iLevel)			for i = 0 to UBound(aMsgs,2)				if aMsgs(ofFldUParentID, i) = iParentID then					'convert into sorted array					aSorted(iRec, ofFldMsgID) = aMsgs(ofFldUMsgID, i)					aSorted(iRec, ofFldIndent) = iLevel					aSorted(iRec, ofFldAuthor) = aMsgs(ofFldUAuthor, i)					aSorted(iRec, ofFldTitle) = aMsgs(ofFldUTitle, i)					aSorted(iRec, ofFldSubject) = aMsgs(ofFldUSubject, i)					aSorted(iRec, ofFldDate) = aMsgs(ofFldUDate, i)					aSorted(iRec, ofFldNotify) = aMsgs(ofFldUNotify, i)					aSorted(iRec, ofFldEmail) = aMsgs(ofFldUEmail, i)					aSorted(iRec, ofFldSerial) = aMsgs(ofFldUSerial, i)					iRec = iRec + 1					'Recursive call for the next level					SortMsgs aMsgs, aMsgs(ofFldUMsgID, i), iLevel + 1				end if			next		end sub

Essa rotina também funcionava bem e agora travou :o(Alguma dica?Valeu.