<%

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

%>