Código Contador

[thicomp 0]

Pessoal, alguem sabe o problema deste contador??

Até o número 99 ele lê normal, quando chega no 100, ele volta para o 001

 

novoNumero=cint(numeroatual)+1Select Case len(novoNumero)Case 1novoNumero="000"&novoNumeroCase 2novoNumero="00"&novoNumeroCase 3novoNumero="0"&novoNumeroCase 4novoNumero=""&novoNumeroend select

Obrigado

[sr.silva 1]

Coloque o seu codigo completo!

[thicomp 0]

Eis o código

 

<%session("codint")session("prod")Const forWriting=2, forAppending=8Dim objteste, objtextstream, FSOdim alfaNum, numeroatual, novoNumeroalfaNum=session("codint")if session("int") = "PD" then	numeroatual=right(alfaNum,2)elseif alfaNum = "x" thennumeroatual=right(alfaNum,5)elsenumeroatual=right(alfaNum,4)end ifnovoNumero=cint(numeroatual)+1Select Case len(novoNumero)Case 1novoNumero="000"&novoNumeroCase 2novoNumero="00"&novoNumeroCase 3novoNumero="0"&novoNumeroCase 4novoNumero=""&novoNumeroend selectif session("codint") = "PD" then	novaVariavel=left(alfaNum,3)&novoNumeroelseif alfaNum = "x" thennovaVariavel=left(alfaNum,6)&novoNumeroelsenovaVariavel=left(alfaNum,5)&novoNumeroend ifDim objnameset objteste = createobject("scripting.FileSystemObject")set objname = createobject("scripting.FileSystemObject")set fso = createobject("scripting.FileSystemObject")	'Verifica se arquivo existe na pasta específica	if objteste.FileExists ("F:\Produtos\"& session("prod") &"\"& session("codint") &"\"& alfanum &".txt") = true then	Set fileobject = fso.GetFile("F:\Produtos\"& session("prod") &"\"& session("codint") &"\"& alfanum &".txt")	'Renomeia arquivo antigo	fileobject.Name = ""& novaVariavel &".txt"	name1 = ""& novaVariavel &".txt"end ifset fileObject = nothingset objteste = nothingset objname = nothingset fso = nothing

[sr.silva 1]

alfaNum=session("codint")

Verificou o valor dessa variavel?

[thicomp 0]

Acabei de resolver o problema...

 

if session("int") = "PD" then

numeroatual=right(alfaNum,2)

elseif alfaNum = "x" then

numeroatual=right(alfaNum,5)

else

numeroatual=right(alfaNum,4)

end if

 

São as numerações em vermelho. Como aí no caso esta definido como "2", ele só lia as 2 primeiras, quando chegava em 99, ele voltava pro 01

 

Muito obrigado pela ajuda e paciencia

Abçs