Asp - Seo

bi sitem var linkler seo konu_ismi.html şeklinde linklerdeki "_" olan çizgiyi "+" veya "-" bu şekile nasıl çeviririm
seo'lama sayfasının kodları aşağıda

<%
function Seola(data2)
data2 = Replace (data2 ,"""","",1,-1,1)
data2 = Replace (data2 ," ","_",1,-1,1)
data2 = Replace (data2 ,"é","",1,-1,1)
data2 = Replace (data2 ,"!","",1,-1,1)
data2 = Replace (data2 ,"'","",1,-1,1)
data2 = Replace (data2 ,"^","",1,-1,1)
data2 = Replace (data2 ,"+","",1,-1,1)
data2 = Replace (data2 ,"%","",1,-1,1)
data2 = Replace (data2 ,"&","",1,-1,1)
data2 = Replace (data2 ,"/","",1,-1,1)
data2 = Replace (data2 ,"(","",1,-1,1)
data2 = Replace (data2 ,")","",1,-1,1)
data2 = Replace (data2 ,"=","",1,-1,1)
data2 = Replace (data2 ,"?","",1,-1,1)
data2 = Replace (data2 ,";","",1,-1,1)
data2 = Replace (data2 ,":","",1,-1,1)
data2 = Replace (data2 ,",","",1,-1,1)
data2 = Replace (data2 ,">","",1,-1,1)
data2 = Replace (data2 ,"<","",1,-1,1)
data2 = Replace (data2 ,"*","",1,-1,1)
data2 = Replace (data2 ,"-","",1,-1,1)
data2 = Replace (data2 ,"£","",1,-1,1)
data2 = Replace (data2 ,"$","",1,-1,1)
data2 = Replace (data2 ,"½","",1,-1,1)
data2 = Replace (data2 ,"{","",1,-1,1)
data2 = Replace (data2 ,"}","",1,-1,1)
data2 = Replace (data2 ,"]","",1,-1,1)
data2 = Replace (data2 ,"[","",1,-1,1)
data2 = Replace (data2 ,"\","",1,-1,1)
data2 = Replace (data2 ,"|","",1,-1,1)
data2 = Replace (data2 ,"`","",1,-1,1)
data2 = Replace (data2 ,"´","",1,-1,1)
data2 = Replace (data2 ,"~","",1,-1,1)
data2 = Replace (data2 ,"@","",1,-1,1)
data2 = Replace (data2 ,"æ","",1,-1,1)
data2 = Replace (data2 ,"İ","i",1,-1,1)
data2 = Replace (data2 ,"ü","u",1,-1,1)
data2 = Replace (data2 ,"ğ","g",1,-1,1)
data2 = Replace (data2 ,"ç","c",1,-1,1)
data2 = Replace (data2 ,"ş","s",1,-1,1)
data2 = Replace (data2 ,"ö","o",1,-1,1)
data2 = Replace (data2 ,"ı","i",1,-1,1)
Seola=Lcase(data2)
end function
%>

asp seo'dan anlayan yokmu arkadaşlar

<%
function Seola(data2)
data2 = Replace (data2 ,"""","",1,-1,1)
data2 = Replace (data2 ," ","_",1,-1,1)
data2 = Replace (data2 ,"é","",1,-1,1)
data2 = Replace (data2 ,"!","",1,-1,1)
data2 = Replace (data2 ,"'","",1,-1,1)
data2 = Replace (data2 ,"^","",1,-1,1)
data2 = Replace (data2 ,"+","",1,-1,1)
data2 = Replace (data2 ,"%","",1,-1,1)
data2 = Replace (data2 ,"&","",1,-1,1)
data2 = Replace (data2 ,"/","",1,-1,1)
data2 = Replace (data2 ,"(","",1,-1,1)
data2 = Replace (data2 ,")","",1,-1,1)
data2 = Replace (data2 ,"=","",1,-1,1)
data2 = Replace (data2 ,"?","",1,-1,1)
data2 = Replace (data2 ,";","",1,-1,1)
data2 = Replace (data2 ,":","",1,-1,1)
data2 = Replace (data2 ,",","",1,-1,1)
data2 = Replace (data2 ,">","",1,-1,1)
data2 = Replace (data2 ,"<","",1,-1,1)
data2 = Replace (data2 ,"*","",1,-1,1)
data2 = Replace (data2 ,"-","",1,-1,1)
data2 = Replace (data2 ,"£","",1,-1,1)
data2 = Replace (data2 ,"$","",1,-1,1)
data2 = Replace (data2 ,"½","",1,-1,1)
data2 = Replace (data2 ,"{","",1,-1,1)
data2 = Replace (data2 ,"}","",1,-1,1)
data2 = Replace (data2 ,"]","",1,-1,1)
data2 = Replace (data2 ,"[","",1,-1,1)
data2 = Replace (data2 ,"\","",1,-1,1)
data2 = Replace (data2 ,"|","",1,-1,1)
data2 = Replace (data2 ,"`","",1,-1,1)
data2 = Replace (data2 ,"´","",1,-1,1)
data2 = Replace (data2 ,"~","",1,-1,1)
data2 = Replace (data2 ,"@","",1,-1,1)
data2 = Replace (data2 ,"æ","",1,-1,1)
data2 = Replace (data2 ,"İ","i",1,-1,1)
data2 = Replace (data2 ,"ü","u",1,-1,1)
data2 = Replace (data2 ,"ğ","g",1,-1,1)
data2 = Replace (data2 ,"ç","c",1,-1,1)
data2 = Replace (data2 ,"ş","s",1,-1,1)
data2 = Replace (data2 ,"ö","o",1,-1,1)
data2 = Replace (data2 ,"ı","i",1,-1,1)
Seola=Lcase(data2)
end function
%>

kırmızı renkli satırı

data2 = Replace (data2 ," ","-",1,-1,1)

ile değiştirirsen kelime araları tire (-) şeklinde


data2 = Replace (data2 ," ","+",1,-1,1)

ile değiştirirsen + şeklinde olur.

eyw kamehame çok saol

noktayı unutmuşsunuz

data2 = Replace (data2 ,".","",1,-1,1)