Programalama > ASP

<%
'date: 12.07.2003
'nolovelust
'postmaster@smslust.net
'www.smslust.net

sub ConvertUrl(str)

parcala=split(str," ",-1,1)

For i=0 to ubound(parcala)

if instr(lcase(parcala(i)), "http://") > 0 Then													' eger sting te http:// varsa
			response.write "<a href="""&parcala(i)&""">"&parcala(i)&"</a>"
            response.write " "
else																						'eger http:// yoksa
			response.write parcala(i)
			response.write " "
end if


Next
end sub
%>

<%
ConvertUrl("selam bu sicriptin uygulamasi http://smslust.net/wap  ta bulunabilir")
%>