Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

 
iletişim
 
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 %>
Ad Soyad
E-Posta
Mesaj
 
   

webtasarım tanajans