a página está travando...

[*Marcinha* 0]

A página trava no looping:

 

VolumeEmb = "15032"VolumeItem = "15,1"Do until CDBL(VolumeEmb) > CDBL(VolumeItem)  'ir acrescentando mais embalagens enquanto a embalagem não suprir a cubagem dos itens.    Diferenca = CDBL(VolumeItem) - CDBL(VolumeEmb)    strSQL = "Select top 1 cubagem, nome from embalagem where cubagem >= '" & Diferenca & "'"    Set rsVol2 = Conexao.Execute(strSQL)        if not rsVol2.EOF then        VolumeEmb = CDBL(VolumeEmb) + CDBL(rsVol2("cubagem"))        historico = historico & "," & rsVol2("nome") & ":" & rsVol2("cubagem")    else        VolumeEmb = VolumeMaximo        historico = historico & "," & "Caixa Grande: " & VolumeMaximo    end if    rsVol2.close    set rsVol2 = NothingLoop

[marcelinho 0]

olha marcinha eu sou iniciate mais me parece que esta faltando você por o :rsVol2.MoveNextpq se nao tiver ele você nunca vai sair do loop mesmo!!!ve isso da certoé que eu sou inciante demais em asp...mais testa ae....espero ter ajudado!!!!

[*Marcinha* 0]

Valeu Marcelo, mas o problema era outro... foi uma distração minha. Eu esqueci de somar a VolumeEmb . Portanto, ela sempre assumia o mesmo valor, por consequencia, sempre era menor que volumeItem.