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