<% dim name dim fax dim email dim mobile dim phone dim address dim contact_method dim comments name = request.form("name") 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.gil.com.au" ' gil JMail.ServerAddress = "mail.ausat.net" ' cxi emailaddress = "glenn@iconmedia.com.au" 'secondary address if needed - mailaddress = "????@iconmedia.com.au" 'jmail.AddRecipient "warren@skateparks.com.au" jMail.AddRecipient("glenn@iconmedia.com.au") '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 'jMail.Sender=Request.Form("email") 'jMail.SenderName=Request.Form("name") 'jMail.Subject="Response from Skateparks Website" '//- ----------print this in a email ------// 'jMail.Body=Request.Form("body") '--------------------------------------------------------------------- 'content = "Name - " & Request.Form("name") & vbcrlf 'content = content & "Email - " & Request.Form("email") & vbcrlf 'content = content & "------------------------------------------------------- " & vbcrlf 'content = content & "Phone - " & Request.Form("phone") & vbcrlf 'content = content & "Fax - " & Request.Form("fax") & vbcrlf 'content = content & "Mobile - " & Request.Form("mobile") & vbcrlf 'content = content & "------------------------------------------------------- " & vbcrlf 'content = content & "Address - " & Request.Form("address") & vbcrlf 'content = content & "Contact by - " & Request.Form("contact_method") & vbcrlf 'content = content & "Coments - " & Request.Form("comments") & vbcrlf 'content = content & "------------------------------------------------------- " '---------------------------------------------------------------------- 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: " & name & "
" 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.ausat.net" 'JMail.ServerAddress = "127.0.0.1:25" JMail.Sender = ("email") JMail.Subject = ("subject") JMail.AddRecipient emailaddress 'JMail.Priority = jpriority JMail.Body = content JMail.Execute set JMail = nothing 'Response.Redirect "thankyou.asp" 'jMail.Body= content '//- ----------print this in a email ------// 'jMail.Priority = 1 'JMail.Logging = True 'jMail.Execute ' //---- write sent log text-- // 'Response.Write "
" & vbCRLF
	'Response.Write (JMail.Log)
	'Response.Write "
" '//---- end of write sent log text-- 'Set jMail=Nothing 'Response.Redirect Request.Form("redirect") %>