<%
' Kodlayan Hakan Şen
' www.hakansen.com
'
'
' istediğiniz gibi çevirin çoğaltın kopyalayın şeyedin ;)



Private Function linkle (strInputEntry)
	strInputEntry = Replace(strInputEntry, "]", "")
	strInputEntry = Replace(strInputEntry, "[", "")
	strInputEntry = Replace(strInputEntry, " ", "-")
	strInputEntry = Replace(strInputEntry, ".", "")
	strInputEntry = Replace(strInputEntry, "!", "")
	strInputEntry = Replace(strInputEntry, ":", "")
	strInputEntry = Replace(strInputEntry, "?", "")
	strInputEntry = Replace(strInputEntry, "../", "")
	strInputEntry = Replace(strInputEntry, "<", "")
	strInputEntry = Replace(strInputEntry, ">", "")
	strInputEntry = Replace(strInputEntry, "(", "")
	strInputEntry = Replace(strInputEntry, ")", "")
	strInputEntry = Replace(strInputEntry, "%3C", "&lt;")
	strInputEntry = Replace(strInputEntry, "%3E", "&gt;")
	strInputEntry = Replace(strInputEntry, "%27", "&#146;")
	strInputEntry = Replace(strInputEntry, "%22", "&ldquo;")
	strInputEntry = Replace(strInputEntry, "%25", "&#037;")
	strInputEntry = Replace(strInputEntry, """", "", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "=", "&#061;", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, ";", "", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "'", "", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "`", "-", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, ",", "_", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "select", "sele&#99;t", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "union", "&#117;nion", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "'","",1,-1,1)
	strInputEntry = Replace(strInputEntry, "Chr(34)","",1,-1,1) 
	strInputEntry = Replace(strInputEntry, "Chr(39)","",1,-1,1) 
	strInputEntry = Replace(strInputEntry, "&","-",1,-1,1) 
	strInputEntry = Replace(strInputEntry, "ç", "c", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "ı", "i", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "İ", "I", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "ş", "s", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "ö", "o", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "ü", "u", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "ğ", "g", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "Ş", "S", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "Ö", "O", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "Ü", "U", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "Ğ", "G", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "Ç", "C", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "---", "-", 1, -1, 1) 
	strInputEntry = Replace(strInputEntry, "--", "-", 1, -1, 1) 
	linkle = lcase(server.htmlencode(TRIM(strInputEntry)))
End Function

%>