%@LANGUAGE="VBSCRIPT"%>
<%
if request("submit") <> "" then
DIM MyBody, MyCDONTSMail, dataConn, sSql, rs, the_email, the_order_no, the_text
MyBody = "Name " & request.form( "name" ) &_
"
Business name: " & request.form("business name") &_
"
Address: " & request.form("address") &_
"
Telephone: " & request.form("telephone") &_
"
Years in business: " & request.form("years in business") &_
"
Email: " & request.form("email") &_
"
Comments: " & request.form("comments")
'Response.Write( MyBody )
'Response.End
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From = request.form("email")
'MyCDONTSMail.To = "recruitment@klicka.com"
MyCDONTSMail.To = "matthew.clarke@slimimages.co.uk"
'MyCDONTSMail.To = "andy@accsysdesign.co.uk"
MyCDONTSMail.Subject = "Enquiry from website"
MyCDONTSMail.BodyFormat = 0
MyCDONTSMail.MailFormat = 0
MyCDONTSMail.Body = MyBody
MyCDONTSMail.Send
SET MyCDONTSMail = NOTHING
'Set JMail = Server.CreateObject("JMail.SMTPMail")
'JMail.ServerAddress = "213.171.216.65"
'JMail.ServerAddress = "192.168.100.10"
'jmail.contenttype ="text/html;"
'JMail.Sender = "someone@thewebsite.com"
'JMail.Sender = request ("email")
'JMail.Subject = "Website enquiry"
'JMail.AddRecipient "barrier@the-bsg.com"
'JMail.AddRecipient "andy@accsysdesign.co.uk"
'JMail.Body = MyBody
'JMail.Body = "An order has been placed on the picnic box site " & the_order_no & " order "
'JMail.Priority = 1
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'JMail.Execute
'response.write "ordered"
'response.end
response.Redirect("thank_you.htm")
'end if
end if
%>
Contact us - Body Action - passive exercise equipment - multi-function toning tables