%@ LANGUAGE = VBScript.Encode %>
<%Response.Flush()%>
<%Server.ScriptTimeout = 120%>
<%
If Request.querystring("Send") <> "" Then
msg_txt = "web iletisim"
msg_txt = msg_txt & "
name: " & Request.form("FromName")
msg_txt = msg_txt & "
Email: " & Request.form("From")
msg_txt = msg_txt & "
country: " & Request.form("Firma")
msg_txt = msg_txt & "
phone: " & Request.form("Phone")
msg_txt = msg_txt & "
details:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.divamakina.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "info@divamakina.com"
Mail.Subject = "web iletisim"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
'msg = "Mesajınız Gönderilemedi.
" & Err.Description
msg = "Mesajınız Gönderilemedi. Varsa başka mail adresini giriniz...
"
else
msg = "Mesajınız Alınmıştır."
End If
End If
%>
Diva Makine Sanayi - Contact
|
 |
| ................................................................................................................................................................................................ |
|
Adres : İktelli Org. San. Bölgesi Başakşehir Sanayi Sitesi C Blok N0: 3-5 Başakşehir/ISTANBUL
phone:+90 212 485 66 16 - 17
Fax : + 90 212 485 34 61
|
|
| ................................................................................................................................................................................................ |
|
Copyright 2010 www.divamakina.com info@divamakina.com phone:+90 212 485 66 16 DİVA KAKİNA |