<%
mes = ""
IsSuccess = false
sTo = "info@basarmuhendislik.com.tr"
sFrom = "iletisimMesaji@planetteknoloji.com"
sSubject = Trim(Request.Form("txtTelefon"))
sName = Trim(Request.Form("txtName"))
sMail = Trim(Request.Form("txtMail"))
sMailServer = "127.0.0.1"
sBody = Trim(Request.Form("txtBody"))
if Request("__action")="MesajGonder" then
MesajGonder()
end if
Sub MesajGonder()
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = "Ad: " + sName + " E-mail :" + sMail + " Mesaj :" + sBody
End With
Err.Clear
on error resume next
objMail.Send
if len(Err.Description) = 0 then
mes = "Mesajiniz iletilmistir. Ilginiz için tesekkürler. Sizinle en kisa zamanda belirttiginiz iletisim yoluyla irtibat kuracagiz. "
IsSuccess = true
else
mes = " " + Err.Description + " Mesajiniz bir hatadan dolayi gönderilememistir. Lütfen tekrar deneyiniz . Ilginiz için tesekkürler."
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
End sub
Sub Alert(html)
if IsSuccess then
Response.Write "
Gönderim Basarili:" & html & "
"
else
Response.Write "
Gönderim Basarisiz:" & html & "
"
end if
End Sub
%>
Başar Mühendislik, Elektrik ve Elektroteknik Uzmanı
Başar Mühendislik Elektrik , Elektroteknik ve Otomasyon İşlerinde, Trafo, Aydınlatma, O.G.Şalt ve A.G.Şalt Fabrika Aydınlatma vb. işlerin erbabı.
Elektrik Proje Tahhüt Elektroteknik Trafo Aydınlatma Buspar Enerji Nakil Hatları Tesis Kurulumu Fabrika Montaj Demontaj
BAŞAR MÜHENDİSLİK - İletişim Bilgileri
Yandaki formu doldurarak yada aşağıdaki adres bilgilerinden bizlere ulaşabilirsiniz. Formu eksiksiz ve doğru doldurunuz.Aksi halde değerlendirmeye alınamaz. İlginiziçin teşekkür ederiz.
Adres : Cumhuriyet Cad. No:124 K:4 D:9 İzmit - Kocaeli Telefon : 0262 325 04 59 - 0262 324 26 04 Faks : 0262 324 24 18 Şirket GSM : 0532 332 21 54 info@basarmuhendislik.com.tr
