Microsoft VBScript runtime error '800a0006'/Overflow: 'Cint'
Under afviklingen af min side får jeg følgende:Microsoft VBScript runtime error '800a0006'
Overflow: 'Cint'/addadomain.asp, line 695
Linie 691 til 709 ser således ud:
pris = rs("price")
dkpris = pris * dkkurs
If rs("lease") > 0 then
faktor = Cint(rs("lease")) / 100
lease = pris * faktor
soegeft = "."
til = ","
If InStr(lease, soegeft) <> 0 then
lease = Replace(lease, soegeft, til)
leaseud = lease
her = Right(lease, 3)
If InStr(her, til) = 1 then
ElseIf InStr(her, til) = 2 then
leaseud = leaseud & "0"
end if
else
leaseud = lease
Hvad er der galt?
Mvh
Mogens