Por favor, me podéis ayudar a pasar este código en en un ASP a un JSP??? Es el siguiente y os lo agradezco infinito:
Function generaDatoAhora(MODELO)
dim codigo
dim numero
dim DC
dim dato
upperlimit = 75000000.0
lowerlimit = 50000000.0
Randomize
dato= Int((upperlimit - lowerlimit + 1)*Rnd() + lowerlimit)
dim par
dim a,i,p
dim NUMDOC
NUMDOC=MODELO
dim miPeriodito
miPeriodito = periodo
dato= NUMDOC & miPeriodito & dato
dim NumCodBar
NumCodBar = dato
DC=complemento7(Ccur(dato))
dato= dato & " " & DC
generaDAtoAhora = dato
End Function
Public Function complemento7(t)
dim d,c,a,r,resultado
dim dc(11)
d = Fix(t/7)
d=d * 7
c=t-d
resultado= 7 - c
if resultado = 7 then
complemento7 = 0
else
complemento7 = resultado
end if
End Function
Public Function periodo
dim anyo
anyo = Year(Now)
dim decada
decada = Int(anyo/10)
dim per
per = Abs((anyo-(decada*10))-7)
periodo = per
End Function
Muchas gracias.
Irene.
