|
<% If Request.QueryString("page") = "" Then %>
To contact someone from the company please fill out this form. This particular form only pertains to contacting Amphenol Turkey. If you would like to contact someone in your region of the world please either go here for information, including sales, or here to search for a particular product and where you might locate it.
<% ElseIf Request.QueryString("page") = "sent" Then %>
<%
Dim Ad, Soyad, E_Mail, UrunKategori, Firma, Konu, Mesaj, Mailer, sError
Ad = Replace(Request.Form("name"), "'", "`")
Soyad = Replace(Request.Form("surname"), "'", "`")
E_Mail = Replace(Request.Form("email"), "'", "`")
UrunKategori = Replace(Request.Form("categorySelect"), "'", "`")
Firma = Replace(Request.Form("company"), "'", "`")
Konu = Replace(Request.Form("subject"), "'", "`")
Mesaj = Replace(Request.Form("message"), "'", "`")
On Error Resume Next
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
If Err.number = 0 and Request.Form("flag") = "ok" Then
objMail.From = "info@amphenol.com.tr"
objMail.Subject = "Amphenol.com.tr - Contact Us - [" & Konu & "]"
objMail.To = "sales@amphenol.com.tr,saracoglu@amphenol.com.tr,ilkays@sbbdanismanlik.com"
objMail.Body = _
"Ad : " & Ad & vbNewLine & _
"Soyad : " & Soyad & vbNewLine & _
"E-mail : " & E_Mail & vbNewLine & _
"Ürün Kategorisi : " & UrunKategori & vbNewLine & _
"Firma : " & Firma & vbNewLine & _
"Mesaj : " & Mesaj & vbNewLine & vbNewLine
objMail.Send
Response.Write "Your message has been sent. Thank you for your interest."
'Response.Write "Mesajynyz gönderildi. Ylginiz için te?ekkür ederiz."
set objMail = nothing
Else
Response.Write "Sorry, an error occured on our e-mail system. Please try again later."
'Response.Write "Mesajynyz gönderilemedi. Lütfen daha sonra tekrar deneyin."
End If
%>
<% End If %>
|
