Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..
Yazı fontunu stili vss css ile kontrolunu nasıl düzenlerim
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST infMailSunucu = ".com"
CONST infMailKullaniciAdi = ".com"
CONST infMailSifre = "****"
CONST infMailYollayan = ".com"
CONST alici_mail = ".com"
CONST mailbasligi = "Bilgi Mesajı"
dim mesaj
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"
Dim bilgiler
For Each bilgiler In Request.Form
if bilgiler <> "Submit" then
mesaj = mesaj & "<b>" & bilgiler & " : </b> "
mesaj = mesaj & Request.Form(bilgiler) & "<br>"
end if
Next
mesaj = mesaj & "</body></html>"
SET objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = "ISO-8859-9"
.AddRecipient alici_mail
.From = infMailYollayan
.MailServerUserName = infMailKullaniciAdi
.MailServerPassWord = infMailSifre
.Logging = True
.Silent = True
.Subject = mailbasligi
.Body = mesaj
.Send(infMailSunucu)
End With
SET objMail = Nothing
response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")
%> 
