o zaman
önce www leri replace ile https://www yaparsın
daha sonra

<%
Function LinkYap(yazi)
Dizi=split(yazi," ")
For i=0 to ubound(Dizi)
if instr(lcase(Dizi(i)), "https://") > 0 Then
response.write "<a href="&Dizi(i)&">"&Dizi(i)&"</a>"
response.write " "
else
response.write Dizi(i)
response.write " "
end if
Next
end Function
%>

bu fonksiyonla link yaparsın oldu bitti erol kardeş