% DIM strEmail, strName, strComments, mail, reply, objMail strEmail = request.form("email") strName = request.form("name") strComments = request.form("address") strMessage = request.form("message") mail = "rajiv@pambaheritage.com" maila = "pambaheritage@yahoo.com" reply = request.form("Email") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = reply objMail.Subject = "Enquiry" objMail.To = mail objMail.Cc = maila objMail.Body = "Email: " & strEmail & vbCrLf & _ "Name: " & strName & vbCrLf & _ "Address: " & strComments & vbCrLf & _ "Message: " & strMessage objMail.Send Set objMail = nothing %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||