nicht angemeldet
Hallo an alle,
Ich habe eine Website auf der ich einige Programme zum Download anbiete. Jetzt hab ich mir gedacht es wäre sicher cool den Besuchern grad die ungefähre Downloadzeit zu sagen.
Jetzt habe ich so ein Script gefunden was mir das macht aber auf einem Server funktionierts auf dem anderen nicht.
Hier die Funktion:
big=rs("dateigroesse")
function rechnen(speed)
big2 = replace(big,".",",")
bigk = big2 * 1024
speed = speed / 8
speed = speed * 60
zeit = bigk / speed
if zeit>60 then
stund = zeit / 60
on error resume next
stund1 = split(stund,",")
stund = stund1(0)
min = stund1(1)
min1 = "0," & min
min1 = min1 * 60
min1 = split(min1,",")
min = min1(0)
if err<>0 then
stund=stund1
min="0"
end if
response.write stund & " St. " & min & " Min."
else
zeit = split(zeit,",")
response.write zeit(0) & " Min."
end if
end function
*********************3
Dann kommt noch unten sowas:
56k : <%=rechnen(56.0)%>
64k : <%=rechnen(64.0)%>
128k: <%=rechnen(128.0)%>
Also ich bekomme manchmal folgende fehler:
1. Bei Dateigrösse 48.5 kommt:
Laufzeitfehler in Microsoft VBScript- Fehler '800a000d'
Typen unverträglich: 'big2'
2. Bei Dateigrösse 6 kommt..
56k: 14.6285714285714 Min.
64k: 12.8 Min.
128k: 6.4 Min.
also bei 56k nach dem komma kommen zu viele zahlen...
Hat jemand eine Idee was ich hier ändern könnte das es richtig funktioniert?
Also wie gesagt es läuft nur auf manchen Servern.
Bitte um Hilfe!
Michael