
<% 


Function CreateURL(ByVal strVariable)
 Dim strTempURL
 strTempURL = Trim(strVariable)
 '// Türkçe karakterler değiştiriliyor
 strTempURL = Replace(strTempURL,"ç","c")
 strTempURL = Replace(strTempURL,"Ç","c")
 strTempURL = Replace(strTempURL,"ğ","g")
 strTempURL = Replace(strTempURL,"Ğ","g")
 strTempURL = Replace(strTempURL,"İ","i")
 strTempURL = Replace(strTempURL,"I","i")
 strTempURL = Replace(strTempURL,"ı","i")
 strTempURL = Replace(strTempURL,"ö","o")
 strTempURL = Replace(strTempURL,"Ö","o")
 strTempURL = Replace(strTempURL,"ş","s")
 strTempURL = Replace(strTempURL,"Ş","s")
 strTempURL = Replace(strTempURL,"ü","u")
 strTempURL = Replace(strTempURL,"Ü","u")
 strTempURL = CleanChars(strTempURL)
 strTempURL = LCase(Replace(Trim(strTempURL), " ", "-", 1, -1, 1))

 Do While InStr(strTempURL, "--")
  strTempURL = Replace(strTempURL, "--", "-", 1, -1, 1)
 Loop
 CreateURL = Left(strTempURL,50)
End Function


Function CleanChars(ByVal strVariable)
 Dim objRegExp
 Dim strTempValue
 Set objRegExp = New RegExp
 With objRegExp
  .Pattern = "([^a-zA-Z0-9])"
  .IgnoreCase = False
  .Global = True
  strTempValue = .Replace(strVariable, " ")
 End With
 CleanChars = strTempValue
End Function


function mysql_zarar(metin)
	metin=metin
	metin=Replace("" & metin, "'", "''", 1, -1, 1)
	mysql_zarar=metin
end function

istek_kelime = mysql_zarar(request.form("kullanici_adi"))


function resim_kontrol(tarif_resim)
	
	if tarif_resim <> "" then 
	tarif_resim="http://tarifturk.com"&tarif_resim
	else
	tarif_resim = "/images/resim_yok.png"	
	end if
	resim_kontrol=tarif_resim
end function

 Function MailKontrol(veri) 
     et_kontrol = InStr(veri,"@" )      ' @ işareti varmı diye kontrol ediyoruz. 
          If Not et_kontrol = 0 Then      ' eğer yoksa 0 a eşitliyoruz 
          et_kontrol = "true"      ' Eğer varsa true değeri veriyoruz 
          End If 
     nokta_kontrol = InStr(veri,"." )          '. varmı diye kontrol ediyoruz 
          If Not nokta_kontrol = 0 Then     ' yoksa 0 a eşitliyoruz 
          nokta_kontrol = "true"           'varsa true değeri veriyoruz 
          End If 
     If et_kontrol = "true" and nokta_kontrol= "true" Then 'eğer hem nokta hem et işareti varsa t
     MailKontrol = "true" 
     End If 
     End Function 


'/// Html kodları temizleme 
Function HtmlEncodeYazi(text)
Set objReg = New RegExp 
objReg.Global = True 
objReg.IgnoreCase = True 
objReg.Pattern = "<[^>]+>" 
YeniText = objReg.Replace(text,"") 
Set objReg = Nothing
HtmlEncodeYazi = YeniText
End Function

'//// #Html kodları temizleme

'ilk harfi büyük yapmakkk


Function complex(metin)
Splitter = " "
If metin <> "" Then
  xarr = Split(metin, Splitter)
 For i = 0 To UBound(xarr)
       xmetin = Trim(xarr(i))
 If xmetin <> "" Then
       xmetin = LCase(xmetin)
         xstletter = UCase(Left(xmetin,1))
              '// You can add here your language characters
              xstletter = Replace(xstletter,"i","İ", 1, -1) 'Y
         xmetin = Right(xmetin, Len(xarr(i)) - 1)
              '// You can add here your language characters
              xmetin = Replace(xmetin,"İ","i", 1, -1) 'Y
         xmetin = xstletter & xmetin
  End If
         zmetin = zmetin & " " & xmetin
  Next
 End If
 complex = zmetin
 End Function

'ilk harfi büyük yapmakkk


Function DosyaKontrol(byval strDosyaAdi)


Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.Mappath(strDosyaAdi)) Then

response.write strDosyaAdi
Else


response.write "/images/resim_yok.png"

End If


End Function


%>