Eposta Aktivasyonu Gerekmekte
<%Function Bulut(strmiz)
Str = strmiz
Str = Replace(Str, Chr(199), "C" ,1,-1,0)
Str = Replace(Str, "Ç", "c" ,1,-1,0)
Str = Replace(Str, Chr(208), "G" ,1,-1,0)
Str = Replace(Str, "G", "g" ,1,-1,0)
Str = Replace(Str, Chr(214), "O" ,1,-1,0)
Str = Replace(Str, "O" , "o" , 1,-1,0)
Str = Replace(Str, "Ö", "o" ,1,-1,0)
Str = Replace(Str, Chr(220), "U" ,1,-1,0)
Str = Replace(Str, "Ü", "u" ,1,-1,0)
Str = Replace(Str, Chr(221), "I" ,1,-1,0)
Str = Replace(Str, "I", "i" ,1,-1,0)
Str = Replace(Str, Chr(222), "S" ,1,-1,0)
Str = Replace(Str, "S", "s" ,1,-1,0)
Str = Replace(Str, Chr(231), "c" ,1,-1,0)
Str = Replace(Str, "ç", "c" ,1,-1,0)
Str = Replace(Str, Chr(240), "g" ,1,-1,0)
Str = Replace(Str, "g", "g" ,1,-1,0)
Str = Replace(Str, Chr(246), "o" ,1,-1,0)
Str = Replace(Str, "ö", "o" ,1,-1,0)
Str = Replace(Str, Chr(252), "u" ,1,-1,0)
Str = Replace(Str, "ü", "u" ,1,-1,0)
Str = Replace(Str, Chr(253), "i" ,1,-1,0)
Str = Replace(Str, "i", "i" ,1,-1,0)
Str = Replace(Str, Chr(254), "s" ,1,-1,0)
Str = Replace(Str, "s", "s" ,1,-1,0)
Str = Replace(Str, "<span>", "" ,1,-1,0)
Str = Replace(Str, "</span>", "" ,1,-1,0)
Str = Replace(Str, " ", "-" ,1,-1,0)
Str = Replace(Str, "+", "" ,1,-1,0)
Str = Replace(Str, "'", "" ,1,-1,0)
Str = Replace(Str, "´", "" ,1,-1,0)
Str = Replace(Str, ",", "" ,1,-1,0)
Str = Replace(Str ,";","" ,1,-1,0)
Str = Replace(Str ,":","" ,1,-1,0)
Str = Replace(Str ,"(","" ,1,-1,0)
Str = Replace(Str ,")","" ,1,-1,0)
Str = Replace(Str ,"[","" ,1,-1,0)
Str = Replace(Str ,"]","" ,1,-1,0)
Str = Replace(Str ,"/"," " ,1,-1,0)
Str = Replace(Str ,"\","" ,1,-1,0)
Str = Replace(Str ,"`","" ,1,-1,0)
Str = Replace(Str ,"=","" ,1,-1,0)
Str = Replace(Str ,"-"," " ,1,-1,0)
Str = Replace(Str ,"&","" ,1,-1,0)
Str = Replace(Str ,"%","" ,1,-1,0)
Str = Replace(Str ,"+","" ,1,-1,0)
Str = Replace(Str ,"!","" ,1,-1,0)
Str = Replace(Str ,"#","" ,1,-1,0)
Str = Replace(Str ,"<","" ,1,-1,0)
Str = Replace(Str ,">","" ,1,-1,0)
Str = Replace(Str ,"*","" ,1,-1,0)
Str = Replace(Str ,"And","" ,1,-1,0)
Str = Replace(Str ,"'","" ,1,-1,0)
Str = Replace(Str ,Chr(34),"" ,1,-1,0)
Str = Replace(Str ,Chr(39),"" ,1,-1,0)
Str = Replace(Str ,".","" ,1,-1,0)
Str = Replace(Str ,"?","" ,1,-1,0)
Str = Replace(Str ,",","" ,1,-1,0)
Str = Replace(Str ," ","-" ,1,-1,0)
Str = Replace(Str ,"__","-" ,1,-1,0)
Str = Replace(Str ,"--","-" ,1,-1,0)
Str = Replace(Str ,"'" , "-",1,-1,0)
Bulut = Str
End Function%>
<%
<a href="oyunuoyna.asp?Oyunid=<%=data("id")%>&<%=Bulu t(data("oyunadi"))%>">Oyun Linki</a>
%>