<%@LANGUAGE = VBSCRIPT%> <% ' Get the form data name = Request.Form("Hotmoss") senderEmail = Request.Form("sender") subject = "Thank you for your website design enquiry [" & Request.Form("inName") & "]" recipient = Request.Form("inEmail") body = "Details for Website Design Enquiry:" & vbcrlf & vbcrlf & "--------------------------------------------------------------------" & vbcrlf & vbcrlf & "Name: " & Request.Form("inName") & vbcrlf & "E-mail: " & Request.Form("inEmail") & vbcrlf & "Phone: " & Request.Form("inPhone")& vbcrlf & vbcrlf & "--------------------------------------------------------------------" & vbcrlf & vbcrlf & "Website Type: " & Request.Form("inWebsiteType") & vbcrlf & "Redesign or New Website?: " & Request.Form("inRedesign") & vbcrlf & "Timeframe: " & Request.Form("inTimeframe") & vbcrlf & vbcrlf & "--------------------------------------------------------------------" & vbcrlf & vbcrlf & "Comment: " & Request.Form("inComment") ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true as we wish to handle our errors ourself msg.Logging = true msg.silent = true ' Enter the sender data msg.From = senderEmail msg.FromName = name ' Note that as addRecipient is method and not ' a property, we do not use an equals ( = ) sign msg.AddRecipient recipient msg.AddRecipientBCC("webmaster@hotmoss.com") ' The subject of the message msg.Subject = subject ' And the body msg.body = body ' Now send the message, using the indicated mailserver if not msg.Send("smtp.ilisys.com.au") then Response.write "
" & msg.log & "
" else 'Response.write "Message sent succesfully!" Response.redirect "thankyou.htm" end if ' And we're done! the message has been sent. %>