Cdonts bende kurulu olmadığından persiste göre düzenledim kodunuzu aşağıdaki şekilde mail fonksiyonunu persist mail bileşeni kurarak kullanabilirsiniz.
<form action="mail.asp?islem=mesaj_gonder" method="post" id="form">
<input type="hidden" name="onay" value="0">
<input type="hidden" name="tarih" value="<%=day(date)%>,<%=monthname(month(date))%>, <%=year(date)%> (<%=weekdayname(weekday(date))%>) Saat: <%=hour(time)%>:<%=minute(time)%>">
<div id="success"></div>
<div class="inline first floatLeft">
<label for="contact_name"> Ad Soyad <span>( Gerekli ):</span></label>
<input type="text" name="isim" id="contact_name" tabindex="1" class="required" />
</div>
<div class="inline floatLeft">
<label for="contact_email"> Telefo n <span>( Gerekli ):</span></label>
<input type="text" name="telefon" id="contact_email" tabindex="2" class="required" />
</div>
<div class="inline floatLeft">
<label for="contact_email"> E-Mail <span>( Gerekli ):</span></label>
<input type="email" name="mail" id="contact_subject" tabindex="3" class="required"/>
</div>
<div class="subject_wrap">
<label for="contact_msg"> Mesajını z <span>( Gerekli ):</span></label>
<textarea id="contact_msg" rows="6" name="yazi" tabindex="4" class="required"></textarea>
</div><br>
<div align="right="><button type="submit" class="button">Mesajımı Gönder</button></div>
</form>
<%if Request.QueryString("islem") = "mesaj_gonder" Then
Ad = Request.Form("isim") : Telefon = Request.Form("telefon") : Email = Request.Form("mail") : Yazi = Request.Form("yazi") : Tarih = Request.Form("Tarih")
' mail gönderme kodu başlangıcı
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.domainadi.com"
Mail.From = "bilgilendirme@domainadi.com"
Mail.Username = "bilgilendirme@domainadi.com"
Mail.Password = "Mail Sifre"
Mail.FromName = "Görüntülenecek İsim Buraya"
Mail.AddBcc "Gönderilecek Mail Adresi"
Mail.Subject = "Mail Konusu Buraya"
Mail.Charset="windows-1254"
Mail.IsHTML = True '(Text gönderi için False olarak set edilmeli)
Mail.Body = "Siteden Yeni Mesaj Var"
On Error Resume Next
Mail.Send
Set Mail = Nothing
baglanti.execute= "INSERT INTO kayitedilecektablo (adsoyad,telefon,email,yazi,Tarih,ip) VALUES ('"&Ad&"','"&Telefon&"','"&Email&"','"&Yazi&"','"& Tarih&"','"&request.servervariables("remote_addr") &"')"
Response.Write("Başvurunuz Başarıyla Elimize Ulaştı.")
' mail gönderme kodu bitişi
end if%>