Asp de 01 + 01 = 02 yapmıyor nasıl yaparız?

Asp de bir değişkenim var 01 + 01 = 02 yapmıyor nasıl yaparız?


<%=sirano%>
<%
artir = sirano + 01
%>
<A HREF="<%=artir%>">+</A>
<A HREF="">-</A>

Arkadaşlar bu problemi bir türlü çözemedim yardımlarınızı bekliyorum.

<%sirano=1%>
<%=sirano%>
<%
artir = sirano + 01
%>
<A HREF="<%=format(Cstr(artir),"0#")%>">+</A>
<A HREF="">-</A>


<%
Public function Format(sValue, sMask)
Dim iPlaceHolder
Dim sTempValue
Dim sResult

sTempValue = CStr(sValue)
sResult = sMask
Do Until InStr(sResult, "#") = 0
iPlaceHolder = InStr(sResult, "#")
sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
sTempValue = Mid(sTempValue, 2)
if Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
Loop
Format = sResult
End function
%>

usta teşekkürler iyi olmuş ama işime yaramadı şimdi şöyle bir sistemim var. Yönetici panelinde yeni kategori eklerken 01 02 03 diye ekliyorum bunları duzenlerken + ve - ikonları ile 01 artırıp bı ust sıraya ve 01 eksıltıp bı alt sıraya ındırmem lazım.Bu şekilde kategorileri sıralıycam. Diğer türlü 1 2 3 şeklinde yazdırdığım zaman 11 no lu kategori en uste cıkıyo.

Programlamada yanlış üzerinden giderek istediğiniz sonucu elde etmek pek hoş değildir,
demem o ki;
Veritabanındaki alanı sayısal tipinde yapın.. böylelikle Order By deyimini kullandığınızda
1 2 3 .... 11 12 13...

seklinde sıralamayı elde edersiniz... Sizin aldığınız sonuç text tipindeki bir alanın order edilmesi ile olusabilecek bir durumdur.

O şekilde bir sıralama elde edebiliyorum şöyleki

id katadi sirano
61 alışveriş merkezi 01
60 sosyal merkez 02
62 ticaret merkezi 03

veri tabanım bu şekilde sıra no uzerınden ıstedıgım sıraya koyabılmem lazım normalde musterım kayıt gırerken 01 02 şeklinde yazarsa sorun olmuyor ama 1 2 şeklinde sıra no gırerse 11 en uste cıkıyo bunu otomatık yapmam lazım bilmem anlatabıldımmı teşekkürler

şahsen anlamadım

Merhabalar,

<%=sirano%>
<%
artir = sirano + 01
%>
<A HREF="<%=artir%>">+</A>
<A HREF="">-</A>

yerine

<%=sirano%>
<%
dim sirano,artir
artir = cint(sirano) + 01
%>
<A HREF="<%=artir%>">+</A>
<A HREF="">-</A>

şeklinde denermisiniz.

İyi de sana en başta gönderdiğim fonksiyon bu işi fazlasıyla görüyor zaten....
Diyelim müşterin 2 rakamı girdi sen bu girilen rakamı o Format fonksiyonuna gonderceksin oda sana 02 olarak geri dondurcek...

Format(girilen_deger,"0#")

<%
Public function Format(sValue, sMask)
Dim iPlaceHolder
Dim sTempValue
Dim sResult

sTempValue = CStr(sValue)
sResult = sMask
Do Until InStr(sResult, "#") = 0
iPlaceHolder = InStr(sResult, "#")
sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
sTempValue = Mid(sTempValue, 2)
if Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
Loop
Format = sResult
End function
%>

cint() fonksiyonu işe yaramıyormu