Merhaba arkadaşlar benim sorunum sitemin iletişim bölümündeki forumu kullanarak hem db ye kayıt etmesini hemde aynı formu mail olarak yollamasını istiyorum ama mail kısmını yapamadım.
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.