<% dim nname dim fax dim email dim mobile dim phone dim address 'dim contact_method dim comments nname = request.form("nname") fax = request.form("fax") email = request.form("email") mobile = request.form("mobile") phone = request.form("phone") address = request.form("address") contact_method = request.form("contact_method") comments = request.form("comments") 'jmail.ServerAddress="starbug.com.au" ' local server 'JMail.ServerAddress = "smtp.bne.server-mail.com" ' powerup server 'JMail.ServerAddress = "mail.cxi.com.au" ' computerxperts 'jmail.AddRecipient Request.Form("state") ' to addr normal 'jmail.AddRecipientBCC Request.Form("Department") ' to addr normal 'jmail.AddRecipientBCC Request.Form("recipient") ' to addr normal 'jmail.AddRecipientBCC Request.Form("admin") ' to addr normal emailaddress = "glenn@iconmedia.com.au" 'jmail.Sender = Request.Form("email") 'jmail.SenderName = Request.Form("name") 'jmail.Subject = Request.Form("subject") '//- ----------print this in a email ------// ' jmail.Body = Request.Form("body") content = "" content = content & "" content = content & "Response from Skatepark Website" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "
" content = content & "Response from Skateparks Website
" content = content & "Name: " & nname & "
" content = content & "Phone: " & phone & "
" content = content & "Email address: " & email & "
" content = content & "Fax Number: " & fax & "
" content = content & "Mobile Number: " & mobile & "
" content = content & "Address: " & address & "
" content = content & "Contact by: " & contact_method & "
" content = content & "Comment: " & comment & "


" content = content & "" content = content & "" '------------------------------------------------------------- Set jmail=Server.CreateObject("JMail.SMTPMail") JMail.contenttype = "text/html" JMail.ServerAddress = "mail.cxi.com.au" 'JMail.Sender = email JMail.Sender = "web_enquiry@skateparks.com.au" JMail.Subject = "Feedback from Skateparks Website" JMail.AddRecipient emailaddress 'JMail.Priority = jpriority JMail.Body = content JMail.Execute set JMail = nothing '//- ----------print this in a email ------// 'JMail.Logging = True '//---- write sent log text-- // 'Response.Write "
" & vbCRLF
	'Response.Write (JMail.Log)
	'Response.Write "
" '//---- end of write sent log text-- Response.Redirect "default.asp?section=thankyou" %>