<% Function httpStrChk(Str) linkStr=Str if not instr(Str,"http://") >0 then linkStr="http://"&linkStr end if httpStrChk=linkStr End Function %>