<%
bilgiver = ""
If Request.Form("poster") = 1 Then
mmbody = "Ad Soyad "& vbTab &": " & Request.Form("ns") & vbCrLF &_
"E-mail "& vbTab &": "& Request.Form("m") & vbCrLf &_
"Konu "& vbTab &": "& Request.Form("k") & VBcRlF &_
"Ürün "& vbTab &": "& Request.Form("k2") & VBcRlF &_
"Ölçüler "& vbTab &": "& Request.Form("k3") & VBcRlF &_
"Telefon "& vbTab &": "& Request.Form("k4") & VBcRlF &_
"Adres "& vbTab &": "& Request.Form("k5") & VBcRlF &_
"Açyklama "& vbTab &": "& Request.Form("b")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Bereket Reklam Siparis Formu: "& Request.Form("ns")
myMail.From = "info@bereketreklam.com.tr"
myMail.To = "info@bereketreklam.com.tr"
myMail.HTMLBody = mmbody
myMail.Send
set myMail = nothing
bilgiver = "Bilgileriniz Gönderildi."
End If
%>