<%
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.sunucuadi.com"
Mail.Username = "info@sunucuadi.com"
Mail.Password = "12345"
Mail.Subject = "Mailin konusu"
Mail.AddAddress GonderilecekAdres, GonderilecekAdres
Mail.AddReplyTo GonderilecekAdres
Mail.IsHTML = TRUE
Mail.Body = "Gonderilecek mesaj içeriği"
Mail.Send
if err <> 0 then
response.write("Hata oluştu: "& Err.Description)
else
response.write("Mail Gönderildi.")
end if
%>

Yukarıdaki kodumuzda.

Set Mail = Server.CreateObject("Persits.MailSender")

Persits.MailSender degiskenine "Mail"i atadık. Bu kodumuzun hemen üstüne On Error Resume Next komutunu yazıyoruz ki herhangi bir hata var ise devam et demek oluyor.
Mail.Host kısmına mail sunucumuzu yazıyoruz bu varsayılan olarak mail.siteadi.com'dır eğer böyle oldugu halde hata veriyor ise lütfen sunucu saglayıcınızla görüşünüz.
Mail.Username kısmına ise maili hangi mail adresinden göndermek istiyorsak o mail adresini yazıyoruz.
Mail.Password ise mail adresimizin şifresini yazıyoruz.
Mail.Subject kısmıda mail in başlıgı yanı konusudur.
Mail.AddAddress kısmınada kime göndericeksek o kişinin mail adresini yazıyoruz.
Mail.IsHTML isede mailin içeriğinde html kodları kullanıcaksak bu kodumuzuda ekliyoruz.
Mail.Body kısmıda mailin içeriğidir. son olarakda maili göndermek için Mail.Send diyoruz.
ve hata meydana gelirse veya maili gönderme işlemi hatasız yapılırsa bunu ekrana yazdırmak içinde;
if error<>0 then
response.write("Hata oluştu: "& error.description)
else
response.write("Mail Gönderildi.")
end if
kullanıyoruz. if else döngüsü ilede herhangi bir hata varsa error.description ile bu hatayı yazdırıyoruz. Herhangi bir hata yok isede ekrana mail gönderildi yazıdırıyoruz.
Şimdi bazı arkadaşlar yazıcaktır. Mail ile mailin şifresini neden yazıyoruz diye. Hemen cevaplıyım. Bazı sunucularda sahte mail adresi ile mail göndermesini engellemek için kimlik doğrulama kullanılır. Sunucuda eger öyle bir mail adresi yok ise hata meydana gelicektir. Bu hatatı engellemek için kimlik dogrulaması yaptırmamıza yarıyor.

Hepinize kolay gelsin :)

Merhaba arkadaşlar bu yazımda sizlere Ajax Query ile tam ekran arkaplan yapımını göstereceğim.
İlk olarak Ajax Query İndiriniz. veya aşağıdaki adreside kullanabilirsiniz.

Tam ekran için kodlarımız:

$(document).ready(function() {
     var bgImage = $('#background-image');
        function resizeImg() {
          var imgwidth = bgImage.width(),
       imgheight = bgImage.height(),
       winwidth = $(window).width(),
       winheight = $(window).height(),
       widthratio = winwidth / imgwidth,
       heightratio = winheight / imgheight,
       widthdiff = heightratio * imgwidth,
       heightdiff = widthratio * imgheight;
          if(heightdiff>winheight) {
            bgImage.css({
              width: winwidth+'px',
              height: heightdiff+'px'
            });
          } else {
            bgImage.css({
              width: widthdiff+'px',
              height: winheight+'px'
            });
          }
     $("#background-image").show();
        } 
        resizeImg();
        $(window).resize(function() {
          resizeImg();
        }); 
});

Css Kodlarımız:

#background-image{
position:absolute;
top:0;
left:0;
z-index:-10;
overflow: hidden;
width: 100%;
display:none;
}
.content{
font:25px Arial;
padding:10px;
margin:100px;
border:1px solid #FFF;
vertical-align:central;
background:#FFFFFF;
height:500px;
text-align:center;
font-weight:bold;
}

Son olarakda Body tagları arasındaki kodlar

Merhaba Arkadaşlar;

Uygulamayı Önizlemek için tıklayın
Uygulamayı İndirmek / Download için tıklayın

Kolay gelsin :)

<%
Set baglan = server.CreateObject("Adodb.Connection")
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source= " & Server.MapPath("vt1.mdb")
%>

"Vt1" adındaki Access veritabanımıza baglantımızı gerçekleştirdik. Şimdi ise bir tablo oluşturalım.
Tablo oluşturmak için "Create Table" komutunu kullanırız. Hemen "Uyeler" adında bir tablo oluşturalım ve Uyeler tablomuza Uyeid diye bir alan adı yaratıp bunun veri türünü Otomatik sayı olarak belirliyelim.

baglan.execute("Create Table Uyeler (Uyeid AutoIncrement)")

Tablomuzu oluşturduk id adında alan adı oluşturup veri türünü ise otomatik sayi olarak belirledik.
Bu tablomuza birde "AdSoyad" adında Metin Alan adı oluşturalım ve Maksimum karakter sayısını 100 yapalım.

baglan.execute("Alter Table Uyeler ADD AdSoyad varChar(100) NULL")

Bunuda oluşturduğumuza göre Uyeler tablosuna SAYI ve NOT veri türlerinide örnekler içersinde gösterelim.
Veritürü sayı olucak şekilde Yas Alan adı oluşturalım ve Not veri türü için ise de Ozgemis Diyelim.

baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Ozgecmis MEMO NULL")

Son olarak veri türlerini oluşturmak için kullandıgımız isimler söyledir.
Son hali:

<%
Set baglan = server.CreateObject("Adodb.Connection")
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source= " & Server.MapPath("vt1.mdb")
baglan.execute("Create Table Uyeler (Uyeid AutoIncrement)")
baglan.execute("Alter Table Uyeler ADD AdSoyad varChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Ozgecmis MEMO NULL")
Response.Write("Uyeler adında veritabanı ve Alan adları oluşturuldu.")
baglan.close : set baglan = Nothing
%>

Access Veritabanı için tablo ve oluşturulan tablo için Alan adı oluşturmayı gördük şimdi ise Mysql veritabanı için bir göz atalım.

Mysql Veritabanı içinde aynı şekilde baglantımızı oluşturduk hemen sonra Aynı tabloyu ve aynı Alan adlarını Mysql e de göstereyim.

baglan.execute("Create Table Uyeler (Uyeid Int NOT NULL auto_increment , PRIMER KEY (΄Uyeid΄))")
baglan.execute("Alter Table Uyeler ADD AdSoyad VarChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Yas TEXT NULL")

Şimdide Son olarak Mssql veritabanı için kodlarımız şu şekildedir:

baglan.execute("Create Table Uyeler (Uyeid Int IDENTITY(1,1) NOT NULL")
baglan.execute("Alter Table Uyeler ADD AdSoyad VarChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Yas TEXT NULL")

Asp yazılım dile ile Access, Mysql ve Mssql veritabanlarında Tablo ve Alandı oluşturmayı gördük.

Hepinize Kolay gelsin :)

<%
Set cat = Server.CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("Klasor/veritabani_yeni.mdb")&"; Jet OLEDB:Engine Type=5"
Set cat = Nothing
%>

Serverınızda Kodlar yardımı ile veritabanı oluşturmak istiyorsanız bu kod işinize oldukça yarıcaktır.

Kolay gelsin :)