set mail=server.createobject("cdonts.newmail")
 mail.mailformat=html
 mail.bodyformat=html
 mail.from = email
 mail.to = firmaemail
 mail.subject = "MynetFM DJ Başvurusu"
 mail.body = tavsiye
 mail.send

set NesneMail = server.createobject("CDO.Message")  
NesneMail.From = email
NesneMail.To = firmaemail
NesneMail.HTMLBody = tavsiye
NesneMail.Subject = "MynetFM DJ Başvurusu"
with NesneMail.Configuration
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
	.Fields.Update
end with
       On Error Resume Next  
       NesneMail.Send  
       If Err <> 0 Then 
       Response.Write "Hata: " & Err.Description  
       End If
set NesneMail = Nothing