Detoxshop.com.au  
Order Now
 

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

Mailing List

<% '---------------------------- FORM SETTINGS -------------------------------- ' Version 1.1 - 11 Dec 03 - Fixed Bug: Not ordering fields ' -------------------------------------------------------------------------- Dim WebSiteName, SendEmailTo, EmailSubject, EmailFromName, EmailFrom Dim sSubmitHTMLTable, sHTMLCell1, sHTMLCell2,sHTMLCell3,sHTMLEndTable SendEmailTo = "lea@detoxshop.com.au" EMailSubject = "Mailing List Submission" EMailFromName = "detoxshop.com.au Site" EmailFrom = "noreply@detoxshop.com.au" ' Get web site name from header WebSiteName = Request.ServerVariables("HTTP_HOST") sSubmitHTMLTable = "" & _ "

" & _ "" & _ "" & chr(10) & chr(13) sHTMLCell1 = "" sHTMLEndTable = "
" & _ "submission details
" sHTMLCell2 = "" sHTMLCell3 = "
 
" Function MakeEmailHTML Dim Key, s,x s= sSubmitHTMLTable for x = 1 to Request.Form.count() Key = Request.Form.key(x) if (lcase(Key) <> "submit") and (lcase(Key) <> "sendemail") and (Request.Form.item(x) <> "") then s=s & sHTMLCell1 & Key & sHTMLCell2 & Request.Form.item(x) & sHTMLCell3 & chr(10) & chr(13) end if Next 's=s & sHTMLCell1 & "IP Address" & sHTMLCell2 & Request.ServerVariables("REMOTE_HOST") & sHTMLCell3 & chr(10) & chr(13) s=s & sHTMLEndTable MakeEmailHTML = s End Function '---------------------------- FORM SETTINGS -------------------------------- %> <% Sub SendEmail(strFromName,strFromEMail, strTo, strSubject, strBody) Set mailMessage = Server.CreateObject("Persits.MailSender") mailMessage.Host = "localhost" mailMessage.FromName = strFromName mailMessage.From = strFromEMail mailMessage.AddAddress strTo mailMessage.Subject = strSubject 'mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text mailMessage.IsHTML = True mailMessage.Body = strBody 'System.Web.Mail.SmtpMail.SmtpServer = "localhost" mailMessage.Send set mailMessage = nothing End Sub %> <%if Request.Form("sendemail") = "" then%>

Please fill in the form below to join our Mailing List:

" method="post" name="myform" id="myform" onsubmit="return checkFields();">
Name: * required
Email: *
<%else SendEmail Request.Form("name"), _ Request.Form("email"), _ SendEmailTo, _ EMailSubject, _ MakeEmailHTML %>

Thank you.
Your have now joined our Mailing List.

<%end if%>
basetop