<% functioncheckisUrl(tmpString)   dimc,i   checkisUrl=true   tmpString=Lcase(trim(tmpString))   ifleft(tmpString,7)<>"http://"thentmpString="http://"&tmpString   fori=8toLen(checkisUrl)   &nb...