Birlik İnşaat Mobilya Dekorasyon Turizm San.Tic. Ltd.Şti.
Halkalı Caddesi, No:241 Sefaköy - İstanbul
Tel (0212) 698 98 63
Faks : (0212) 698 98 69
info@birlikinsaat.com.tr |
| |
|
<%
'If the form has not been submitted execute the following code
If Request.Form="" Then %>
<%
'If the form has been submitted execute the following code
Else
'receive the form values
Dim sAd, sEmail, sNot
sAd=Request.Form("txtAd")
sEmail=Request.Form("txtEmail")
sNot=Request.Form("txtNot")
' create the HTML formatted email text
Dim sEmailText
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "Websitesi Aracılığıyla"
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "Adı Soyadı: " & sAd & "
"
sEmailText = sEmailText & "E-Posta : " & sEmail & "
"
sEmailText = sEmailText & "Mesaj: " & sNot & "
"
sEmailText = sEmailText & "Saat & Tarih: " & Now() & "
"
sEmailText = sEmailText & "IP Adresi : " & Request.ServerVariables("REMOTE_ADDR")
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
Set ObjMail = Server.CreateObject("Persits.MailSender")
ObjMail.IsHTML = True
ObjMail.From = sEmail
ObjMail.FromName = sAd
ObjMail.Host ="webmail.bitezgardenlife.com"
ObjMail.Subject= "Site Aracılığıyla"
ObjMail.AddAddress "info@bitezgardenlife.com"
ObjMail.Body = sEmailText
ObjMail.Send
Response.write "Mesajınız tarafımıza iletilmiştir.
"
Response.write "Konuyla ilgili olarak en kısa zamanda bilgilendirileceksiniz.
"
Response.write "İyi Günler. "
End If
%>
|
| |
|
|
|
|
 |
|
|
