<%
ad=trim(Request.Form("name"))
soyad=trim(Request.Form("surname"))
tel1=trim(Request.Form("tel1"))
tel2=trim(Request.Form("tel2"))
fax=trim(Request.Form("fax"))
email=trim(Request.Form("email"))
adress=trim(Request.Form("adress"))
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host ="mail.karincamobilya.com" ' Specify a valid SMTP server
Mail.From = email ' Specify sender's address
Mail.FromName = name ' Specify sender's name
Mail.AddAddress "karinca@karincamobilya.com"
Mail.Subject = " Katalog istek Bildirimi "
Mail.Body = "ADI :" & ad & vbcrlf &_
"SOYAD :" & soyad & vbcrlf &_
"FİRMA İSMİ :" & tel1 & vbcrlf &_
"ADRES :" & adress & vbcrlf &_
"FAX :" & fax & vbcrlf &_
"TEL :" & tel2 &""
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
response.write "Kataloğunuz En Kısa Zamanda Adresinize Gönderilecektir. İlginizden Dolayı Teşekkür Ederiz."
end if
%>