%@ Language=VBScript %> <% dim item,name,senderemail,subject,recipient,body,newline,jmail newline = chr(13) + chr(10) For Each item In Request.Form ' This will extract every form element from the previous from page and print them ' in the body of the message with the label name and it's value on ' seperate lines body = body & item & " : " & Request.Form(item) & newline Next 'The name in front of the email address Name = "Global Webpage" 'Please specify a correct address for the email Sender 'Can be anything as long as it is valid otherwise it may not work Senderemail = "admin@angkriswebdesign.com.au" 'subject for the email Subject = "Angkriswebdesign - Hosting Order" 'Type in your email address Recipient = "admin@angkriswebdesign.com.au" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.angkriswebdesign.com.au" JMail.Sender = Senderemail JMail.Subject = Subject JMail.AddRecipient Recipient JMail.Body = Body JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Execute %>
|
Domain Name / Hosting Order Form |
||||||
|
||||||