<%else ad=request.Form("ad") sad=request.Form("sad") email=request.Form("mail") mesg=request.Form("msg") gun=day(date) ay=month(date) yil=year(date) tarih=gun&"/"&ay&"/"&yil amail="info@petposer.com.tr" msg="Ad :"&ad&"
" msg=msg&"Soyad :"&sad&"
" msg=msg&"E-Posta :"&email&"
" msg=msg&"Gönderilme Tarihi :"&tarih&"
" msg=msg&"Mesaj :"&mesg&"
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.petposer.com.tr" Mail.From = "info@petposer.com.tr" Mail.FromName = "petposer.com.tr" Mail.AddAddress amail Mail.AddReplyTo "info@petposer.com.tr" Mail.Subject = "www.petposer.com.tr" Mail.Body = msg Mail.Username = "info@petposer.com.tr" Mail.Password = "adam4053" Mail.IsHTML= true Mail.Send If Err <> 0 Then Response.Write "Hata Var: " & Err.Description Else %> İlginiz İçin Teşekkürler.
Mesajınız Veri Tabnızmıza Eklendi.En Kısa Zamanda Sizinle İletişme Geçilecektir. <%end if end if%>