<% function SendMail(sTo, sFrom, sPriority, sSubject, sBody, sAttachment, bHTML) on error resume next cdoLow = 0 ' Low importance cdoNormal = 1 ' Normal importance (default) cdoHigh = 2 ' High importance cdoBodyFormatHTML = 0 cdoBodyFormatText = 1 cdoMailFormatMime = 0 cdoMailFormatText = 1 ' Create a new mail object Set oMailMessage = server.CreateObject("CDONTS.NewMail") oMailMessage.To = sTo ' Good practice to set a Reply-TO oMailMessage.Value("Reply-To") = sFrom oMailMessage.From = sFrom oMailMessage.subject = sSubject sPriority = ucase(sPriority) if sPriority = "LOW" then oMailMessage.importance = cdoLow elseif sPriority = "HIGH" then oMailMessage.importance = cdoHigh else oMailMessage.importance = cdoNormal end if ' Set body format for HTML if needed if bHTML then oMailMessage.BodyFormat = cdoBodyFormatHTML oMailMessage.MailFormat = cdoMailFormatMime else oMailMessage.BodyFormat = cdoBodyFormatText oMailMessage.MailFormat = cdoMailFormatText end if oMailMessage.Body = sBody if sAttachment <> "" then oMailMessage.Attachfile sAttachment end if ' Now send it off! oMailMessage.Send set oMailMessage = nothing if Err then SendMail = false else SendMail = true end if end function %> <%if request.querystring="" then%>

Op.Dr. Ünsal AYBEK
Genel Cerrahi Uzm.
(Özel Ahu Hetman Hastanesi)
Marmaris / MUĞLA

İsim Soyisim: 

Mail Adresiniz: 

Mailinizin Konusu: 

Mailinizin: 

 

Bazı Yabancı Site Linkleri