|
<% If Request.QueryString("page") = "" Then %>
Bize ulaşmak için lütfen aşağıdaki formu doldurun. Bu bilgiler Amphenol Türkiye ofisine ulaşacaktır.
<% 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 - Bize Ula?yn - [" & Konu & "]"
objMail.To = "sales@amphenol.com.tr,saracoglu@amphenol.com.tr"
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 "Mesajınız gönderildi. İlginiz 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 "Mesajınız gönderilemedi. Lütfen daha sonra tekrar deneyin."
End If
%>
<% End If %>
|
