<% Function StripNonNumeric(strInput) Dim iPos, sNew, iTemp strInput = Trim(strInput) If strInput <> "" Then iPos = 1 iTemp = Len(strInput) While iTemp >= iPos If IsNumeric(Mid(strInput,iPos,1)) = True Then sNew = sNew & Mid(strInput,iPos,1) End If iPos = iPos + 1 Wend Else sNew = "" End If StripNonNumeric = sNew End Function %>
