Få "7" att bli "07"?

Jag hade gjort så här:

If int < 10 Then Response.Write "0"
Response.Write int

:)

litet test

[red]
<%
function get_0r(intTal)
Dim strReturn
strReturn = ""
if len(intTal) < 3 then
for i = 1 to (3 - ( len(intTal) - 1))
strReturn = strReturn & "0"
next
end if
if len(intTal) = 3 then
strReturn = "0" & strReturn
end if
get_0r = strReturn & intTal
end function
%>
<%=get_0r(100)%><br>
<%=get_0r(10)%><br>
<%=get_0r(1)%><br>
<%=get_0r(1000)%><br>
[/red]

lite lek bara vad vet jag.... fungerar iaf

Over and Out
Pirro

Edit
Ändra 3 till hur många 0or ditt största tal har (ex 1000) 3 som i det här fallet
/edit

Function AddZero(numb)
If cint(numb) > 9 then
return numb
else
return "0" & numb
end if
End Function

Dim siffra
siffra = 6
response.write "Siffran är: " & AddZero(siffra)

Är det fråga om datum är nog skulle detta kunan funkas smidigt:

Datum = Right("0" & now(hour),2) & "-" & Right("0" & now(minute),2) & "-" & Right("0" & now(second),2)

Tack för de olika alternativen. Skall nog hitta ett som passar.
Det var inte datum i detta fall men tack i alla fall.

har en liten funktion som jag hittat här på wF en gång (kommer dock inte ihåg var):

function siffra(intSiffra)
intSiffra = right("00"&intSiffra,2)
siffra = intSiffra
End function

Response.write siffra(variabel)

Ytterligare en variant...

Function fnAddZero(intTal)
  fnAddZero = CStr(intTal)
  If CIntt(intTal) < 10 And CInt(intTal) >= 0 Then fnAddZero = CStr("0" & intTal)
End Function

Response.Write fnAddZero(7)

Knäppa varianter man sett här. Självklart skriver man Right("0" & i, 2).

Erik: Iofs typ samma som Peeers förslag.