<% function getLastLocation (str,search) getLastLocation=0 l = len(str) for i = 0 to l c = mid(str,l-i,1) if c=search then getLastLocation = l-1-i exit for end if next end function str = "22ddx1x1x112" response.Write getLastLocation(str,"x") %>