% 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 & "" content = content & "Response from Skateparks Website | |
---|---|
" content = content & "Name: | " & nname & " | " content = content & "
" content = content & "Phone: | " & phone & " | " content = content & "
" content = content & "Email address: | " & email & " | " content = content & "
" content = content & "Fax Number: | " & fax & " | " content = content & "
" content = content & "Mobile Number: | " & mobile & " | " content = content & "
" content = content & "Address: | " & address & " | " content = content & "
" content = content & "Contact by: | " & contact_method & " | " content = content & "
" content = content & "Comment: | " & comment & " | " content = content & "
" & vbCRLF 'Response.Write (JMail.Log) 'Response.Write "" '//---- end of write sent log text-- Response.Redirect "default.asp?section=thankyou" %>