<% If Request.Form("submit") <> "" Then Set myMail=CreateObject("CDO.Message") myMail.Subject= "somthing something " 'This is the subject of the e-mail myMail.To="ppatel@xyz.com" 'This is the e-mail address the e-mail will be delivered to myMail.From=Request.Form("Email") 'myMail.HTMLBody = "img src="banner.jpg" width="120" height="40" />" myMail.TextBody= vbnewline & vbnewline & vbnewline & Request.Form("hello") & vbnewline & vbnewline & Request.Form("message") & vbnewline & vbnewline & "Name: " & Request.Form("Name") & vbnewline & "E-Mail: " & Request.Form("Email") & vbnewline & "Extn: " & Request.Form("Phone") & vbnewline & "Location:" & Request.Form("office") & vbnewline & "Date:" & Request.Form("date") & vbnewline & vbnewline & Request.Form("thanks") & vbnewline & vbnewline & vbnewline & Request.Form("note") myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="IP Address" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect("thankyou.html") End If %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)