Düşünceleriniz

<% Session.CodePage = 65001 %> <%if request("dr")<> "ins" then%> <%else%> <% ad=request("ad") tel=request("tel") mail=request("mail") msg=request("msg") gun=day(date) ay=month(date) yil=year(date) if gun<10 then sgun="0"&gun else sgun=gun end if if ay<10 then say="0"&ay else say=ay end if tarih=sgun&"/"&say&"/"&yil konu = konu & "
Tarih : " &tarih & chr(13) & chr(10) konu = konu & "
Ad-Soyad : " &ad & chr(13) & chr(10) konu = konu & "
Telefon : " & tel & chr(13) & chr(10) konu = konu & "
E-Mail : " & mail & chr(13) & chr(10) konu = konu & "
Isteginiz : " & msg & chr(13) & chr(10) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Subject = Mail.EncodeHeader( "www.efeskbb.com", "utf-8") Mail.CharSet = "UTF-8" Mail.ContentTransferEncoding = "Quoted-Printable" Mail.Host = "mail.efeskbb.com" Mail.From = "info@efeskbb.com" Mail.FromName = Mail.EncodeHeader( "Bilgi istek formu", "utf-8") Mail.AddAddress mail.from Mail.AddReplyTo request.form("mail") Mail.Body = konu Mail.Username = "info@efeskbb.com" Mail.Password = "hakan" Mail.IsHTML = True Mail.Send If Err <> 0 Then Response.Write "Hata Var: " & Err.Description Else %> <% end if %> <%end if%>