<% Response.Charset = "windows-1254" Session.LCID = 1055 Session.CodePage = 1254 %> <% 'Set conn = Server.CreateObject("ADODB.Connection") 'conn.Open ("Provider=SqlOLEDB;Network Library=DBMSSOCN; Data Source=213.142.145.150; Initial Catalog=fransez;User Id=fransez_; Password=1984803007;") Set conn= Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Server.MapPath("b/data8998424.mdb") sql = "SELECT * FROM genel" set genel= conn.execute(sql) key=genel("key") title=genel("title") desc=genel("desc") key_eng=genel("key_eng") title_eng=genel("title_eng") desc_eng=genel("desc_eng") logo=genel("logo") banner=genel("banner") status=genel("status") durdur=genel("durdur") durdur_eng=genel("durdur_eng") firma=genel("firma") face=genel("face") twit=genel("twit") instagram=genel("instagram") linkedin=genel("linkedin") formmail=genel("formmail") formsifre=genel("formsifre") formpop=genel("formpop") genel.close mailuser = formmail var_infomail = formmail Function MailGonder(Email,Isim,Baslik,Icerik,Kimden,KimdenName,Mailuser) on error resume next Set Mail = Server.CreateObject("Persits.MailSender") Mail.From = Kimden Mail.FromName = KimdenName Mail.Host = formpop Mail.Username = formmail Mail.Password = formsifre Mail.Charset = "Windows-1254" Mail.AddAddress Email Mail.Subject = Baslik Mail.Body = Icerik Mail.IsHTML = True Mail.Send Set Mail = Nothing end Function function parag(data1) data1 = Replace (data1 ,"

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

","",1,-1,1) parag=Lcase(data1) end function 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) data2 = Replace (data2 ,".","",1,-1,1) Seola=Lcase(data2) end function Function SifreUret(Uzunluk) Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ" Randomize KarakterBoyu = Len(Karakterler) For i = 1 To Uzunluk KacinciKarakter = Int((KarakterBoyu * Rnd) + 1) UretilenSifre = UretilenSifre & Mid(Karakterler,KacinciKarakter,1) Next SifreUret = UretilenSifre End Function sql = "SELECT * FROM sayfa where id=85" set genel= conn.execute(sql) ic1=genel("icerik") ic1b=genel("baslik") genel.close sql = "SELECT * FROM sayfa where id=86" set genel= conn.execute(sql) ic2=genel("icerik") ic2b=genel("baslik") genel.close sql = "SELECT * FROM sayfa where id=87" set genel= conn.execute(sql) ic3=genel("icerik") ic3b=genel("baslik") genel.close sql = "SELECT * FROM sayfa where id=77" set genel= conn.execute(sql) duyurularana=genel("icerik") duyurularanab=genel("baslik") genel.close %>