<% ' Bismillahirrahmanirrahim ' MySQL Veritabanı bağlantısını oluşturalım ve açalım. Set baglanti = Server.CreateObject("ADODB.Connection") sunucuIP = request.servervariables("LOCAL_ADDR") 'if sunucuIP = "127.0.0.1" then ' baglanti.Open("Driver={MySQL ODBC 3.51 Driver};" & "Server=localhost;uid=root;pwd=virvir555;database=rnetdbccc01;") ' baglanti.Execute "SET NAMES 'latin5'" ' baglanti.Execute "SET CHARACTER SET latin5" ' baglanti.Execute "SET COLLATION_CONNECTION = 'latin5_turkish_ci'" 'else ' baglanti.Open("Driver={MySQL ODBC 3.51 Driver};" & "Server=u174913.mssql.masterhost.ru;uid=u174913;pwd=sureasmod3re;database=u174913;") ' baglanti.Execute "SET NAMES 'latin5'" ' baglanti.Execute "SET CHARACTER SET latin5" ' baglanti.Execute "SET COLLATION_CONNECTION = 'latin5_turkish_ci'" 'end if 'baglanti.execute("ALTER TABLE `tblFirmalar` ADD FULLTEXT (firmaTanim)") %> <% Function turkceVar(metin) duzelt = metin duzelt = Replace(duzelt, "Ş", "Ş") duzelt = Replace(duzelt, "ş", "ş") duzelt = Replace(duzelt, "Ğ", "Ğ") duzelt = Replace(duzelt, "ğ", "ğ") duzelt = Replace(duzelt, "İ", "İ") duzelt = Replace(duzelt, "ı", "ı") duzelt = Replace(duzelt, "'", "´") turkceVar = duzelt End Function Function turkceYok(metin) duzelt = metin duzelt = Replace(duzelt, "Ş", "S") duzelt = Replace(duzelt, "ş", "s") duzelt = Replace(duzelt, "Ğ", "G") duzelt = Replace(duzelt, "ğ", "g") duzelt = Replace(duzelt, "İ", "I") duzelt = Replace(duzelt, "ı", "i") duzelt = Replace(duzelt, "'", "´") turkceYok = duzelt End Function Function kodYok(metin) duzelt = metin duzelt = Replace(duzelt, "
", "") duzelt = Replace(duzelt, "<", "") duzelt = Replace(duzelt, ">", "") duzelt = Replace(duzelt, "'", "´") kodYok = duzelt End Function Function trTarih(gelentarih, bicim) gelentarih = CDate(gelentarih) gun = Day(gelentarih) ay = Month(gelentarih) yil = Year(gelentarih) If gun < 10 Then gun = "0" & gun End If If ay < 10 Then ay = "0" & ay End If gunSayisi = WeekDay(gelentarih) gunAdlari = Array("Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi") gunAdlariE = Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday") gunAdi = gunAdlariE(gunSayisi - 1) ayAdlari = Array("Ocak","Şubat","Mart","Nisan","Mayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık") ayAdlariE = Array("January","February","March","April","May","June","July","August","September","October","November","December") ayAdi = ayAdlariE(Month(gelentarih) - 1) Select Case bicim Case "basit" trTarih = gun & "." & ay & "." & yil Case "basitgun" trTarih = gun & "." & ay & "." & yil & " - " & gunAdi Case "uzun" trTarih = gun & " " & ayAdi & " " & yil Case "uzungun" trTarih = ayAdi & " " & gun & ", " & yil & ", " & gunAdi Case "tmySQL" trTarih = yil & "-" & ay & "-" & gun Case "ayadiYil" trTarih = ayAdi & " / " & yil Case "ayadi" trTarih = ayAdi Case Else trTarih = gun & "." & ay & "." & yil End Select End Function Function tarihHesapla(tip, sure, tarih) dtarih = CDate(tarih) tarihHesapla = DateAdd(tip, sure, tarih) 'dtarih1 = DateAdd("m", 1, dtarih) örnek kullanımlar 'dtarih7y = DateAdd("yyyy", 7, dtarih) örnek kullanımlar End Function function ikiBasamakKurus(miktar) if isNumeric(miktar) then geciciSayi = CDbl(miktar) ikiBasamakKurus = formatNumber(round(geciciSayi,2),2) else ikiBasamakKurus = miktar end if end function %>