%@ LANGUAGE = "VBScript" %> <% Option Explicit %> <%response.Expires = 0%> <%response.buffer=true%> <% dim name1, message, tel, submit, email,done submit = request("submit") if submit <>"" then email = request("email") name1 = request("thename") message = request("message") tel = request("tel") dim page page = "Enquiry response from website" page = page & Chr(13) & Chr(10) page = page & Chr(13) & Chr(10) page = page &"Name: "&name1 page = page & Chr(13) & Chr(10) page = page &"Telephone: "&tel page = page & Chr(13) & Chr(10) page = page &"Email: "&email page = page & Chr(13) & Chr(10) page = page &"Message: "&message page = page & Chr(13) & Chr(10) dim mailmsg Set mailmsg = Server.CreateObject("CDONTS.NewMail") mailmsg.To = "info@atrous.co.uk" mailmsg.Subject = "Enquiry Response from website" mailmsg.From = "info@atrous.co.uk" mailmsg.BodyFormat = "1" mailmsg.Host = "127.0.0.1" mailmsg.Body = page 'mailmsg.Retain = True mailmsg.send done = 1 end if %>
![]() |
|||||||||
|
|||||||||
| Copyright © 2006 Atrous Limited. All Rights Reserved. |