mail gönderme konusunda başarılı olamadığım kodlar.
<%
iletisim = ("1")
body = "<body id='contact'>"
%>
<!--#include file="ust.asp"-->
<!-- üst bar başladı -->
<section class="breadcrumb">
<div class="container_12">
<p><a href="default.asp">Ana Sayfa</a>Bize Ulaşın</p>
</div>
</section>
</section> <!-- üst bar sona erdi -->
<!-- içerik başladı -->
<div class="contact_content container_12">
<section class="map floatLeft">
<iframe width="926" height="350" frameborder="0" src="<%=verial("google_map")%>"></iframe>
</section> <!-- END map -->
<section class="contact_left floatLeft">
<h2>Bize Mesaj Gönderin.</h2>
<p>Aşağıdaki iletişim formunu kullanarak bize mesaj gönderin. Yetkililer tarafından size en kısa sürede geri dönülecektir. </p>
<%
if Request("islem") = "mesaj_gonder" then
Call mesaj_gonder
End if
%>
<script language="javaScript">
function reloadCAPTCHA() {
document.getElementById('CAPTCHA').src='CAPTCHA_image.asp?'+Date();
}
</script>
<form action="iletisim.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"> Telefon <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 class="subject_wrap">
<label for="contact_subject"> Güvenlik Kodu <span>( Gerekli ):</span></label>
<img id="CAPTCHA" src="CAPTCHA_image.asp" width="110" height="46"> <input type="text" name="kodu" style="font-size: 14pt" color="#003366" size="7"><br><button type="button" onclick="javascript:reloadCAPTCHA();">Yenile</button>
</div>
<div align="right="><button type="submit" class="button">Mesajımı Gönder</button></div>
</form>
<%
Sub mesaj_gonder
isim = Request.Form ("isim")
yazi = Request.Form ("yazi")
telefon = Request.Form ("telefon")
mail = Request.Form ("mail")
onay = Request.Form ("onay")
tarih = Request.Form ("tarih")
kodu = Request.Form ("kodu")
blnCAPTCHAcodeCorrect = false
If Session("strSecurityCode") = kodu AND Session("strSecurityCode") <> "" Then blnCAPTCHAcodeCorrect = true
if isim = "" or yazi = "" or telefon = "" or onay = "" or mail = "" then
Response.Write "<section class='notification-boxes grid_12 alpha omega'><div class='info-boxes'><div class='info-box3 grid_3 alpha'><p class='floatLeft'>Lütfen bütün form alanlarını doldurunuz. !</p><a href='#' class='close floatRight' title='close'></a></div></section>"
ElseIf blnCAPTCHAcodeCorrect = false Then 'request("kodu")<>request.cookies("elmakobi")("gvn") Then
Response.Write "<section class='notification-boxes grid_12 alpha omega'><div class='info-boxes'><div class='info-box3 grid_3 alpha'><p class='floatLeft'>Güvenlik kodunu yanlış girdiniz. Lütfen tekrar deneyiniz.</p><a href='#' class='close floatRight' title='close'></a></div></section>"
Else
Set ObjMesaj = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * from iletisim")
ObjMesaj.Open StrSql, bag, 1, 3
ObjMesaj.AddNew
ObjMesaj("isim") = isim
ObjMesaj("yazi") = yazi
ObjMesaj("telefon") = telefon
ObjMesaj("mail") = mail
ObjMesaj("onay") = onay
ObjMesaj("tarih") = tarih
ObjMesaj.Update
Response.Write "<section class='notification-boxes grid_12 alpha omega'><div class='info-boxes'><div class='info-box2 grid_3 alpha'><p class='floatLeft'>Mesajınız Alındı. En kısa zamanda yetkililer size geri dönecektir.</p><a href='#' class='close floatRight' title='close'></a></div></section>"
' mail gönderme kodu başlangıcı
DIM isim, mail, telefon, yazi, Mailer
isim = request.form("isim")
mail =request.form("mail")
telefon =request.form("telefon")
yazi =request.form("yazi")
Set Mailer =Server.CreateObject("CDONTS.NewMail")
Mailer.From = mail
Mailer.Subject ="Siteden Yeni Mesaj Var"
Mailer.To ="ali_s77@msn.com"
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Body = "Bu mail siteden gelmiştir." &"<br>" &"<br>" & _
"<b>İsim: </b>" & isim &"<br>" & _
"<b>Email Adres: </b>" &mail &"<br>" & _
"<b>Telefon: </b>" &telefon &"<br>" & _
"<b>Mesaj: </b>" &yazi &"<br>"
Mailer.Send
Set Mailer = nothing
' mail gönderme kodu bitişi
End if
End Sub
%>
</section> <!-- END service_list -->
<aside class="sidebar grid_3 omega floatRight">
<%
Set iletisim_bilgileri = server.CreateObject("ADODB.Recordset")
dede = "Select * From iletisim_bilgileri where id "
iletisim_bilgileri.Open dede, bag,1,3
%>
<section class="contact_information">
<h2>İletişim Bilgileri</h2>
<div class="contactInfo-wrap">
<p><%=iletisim_bilgileri("sayfa")%></p>
</div>
</section>
<%
iletisim_bilgileri.close
%>
</aside>
</div>
<!-- içerik bitti -->
<!--#include file="alt.asp"-->şimdiden yardımcı olacak arkadaşlara teşekkür ederim.
