<%
function get_value(num)
get_value=cint(left(num,1))*(10^(len(num)-1))
end function

response.Write get_value(68745435)
%>