contact us
<%
if Request.Form("txt_user")<>"" and Request.Form("txt_email")<>"" and Request.Form("txt_subject")<>"" then
'Dimension variables
Dim objCDOMail 'Holds the CDONTS NewMail Object
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = Request.Form("txt_email")
'Who the e-mail is sent to
'objCDOMail.To = "sales@mm-nn.com"
objCDOMail.To = "thargaung@gmail.com"
'Who the carbon copies are sent to
'objCDOMail.Cc = "myFriend1@thereDomain.com;myFriend2@anotherDomain.com"
'Who the blind copies are sent to
'objCDOMail.Bcc = "myFriend1@thereDomain.com;myFriend2@anotherDomain.com"
'Set the subject of the e-mail
objCDOMail.Subject = "Contact us from website"&Request.Form("txt_subject")
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the main body of the e-mail
objCDOMail.Body="
"
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
Response.Redirect("contact.asp?status=success")
End if
%>