<%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
%>