<% dim contactname dim compname dim phone dim email dim currurl dim comments enqtype = request.Form("enqtype") contactname = request.Form("contactname") compname = request.Form("compname") phone = request.Form("phone") email = request.Form("email") currurl = request.Form("currurl") comments = request.Form("comments") emailaddress = "glenn@iconmedia.com.au" 'secondary address if needed - mailaddress = "????@iconmedia.com.au" content = "" content = content & "" content = content & "Feedback from Iconmedia 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 & "Feedback from Iconmedia website
" content = content & "Enquiry Type: " & enqtype & "
" content = content & "Contact Name: " & contactname & "
" content = content & "Company Name: " & compname & "
" content = content & "Phone: " & phone & "
" content = content & "Email address: " & email & "
" content = content & "Current Web URL: " & currurl & "
" content = content & "Comments : " & comments & "


" content = content & "" content = content & "" ' Send an email that a new application has been received 'Set objMail = Server.CreateObject("CDONTS.NewMail") 'objMail.To = emailaddress 'objMail.From = email 'objMail.Value("Reply-To") = email 'objMail.Subject = "Feedback from Icon Media website" 'objMail.BodyFormat = 0 'objMail.MailFormat = 0 'objMail.Body = content 'objMail.Send 'Set objMail = Nothing Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.contenttype = "text/html" JMail.ServerAddress = "mail.gil.com.au" 'JMail.ServerAddress = "127.0.0.1:25" JMail.Sender = "enquiry@iconmedia.com.au" JMail.Subject = "Feedback from Iconmedia Website" JMail.AddRecipient emailaddress 'JMail.Priority = jpriority JMail.Body = content JMail.Execute set JMail = nothing Response.Redirect "feedback_confirm.asp" %>