English French Italian Spanish German Japanese
Home Contact  contact us
Coporate Profile Intellectual Property Management Team Vision
coporate profile
Details
 XENON TECHNOLOGIES Pty Ltd
 Address: Level 27, 101 Collins Street,
 Melbourne 3000, Victoria, Australia

 Postal: GPO Box 1234,
 Melbourne 3001, Victoria Australia
 Phone :+ 61 (03) 9411-5000
 Fax :+ 61 (03) 9653-9307
 Website :www.xenon.net.au
 Email :info@xenon.net.au
 SHARE THE VISION
xenon technologies
<% Dim objMail Dim message message = "Name: " & Request.Form("name") & chr(13) & chr(10) & chr(13) & chr(10) message = message & "Phone: " & Request.Form("number") & chr(13) & chr(10) message = message & "Email: " & Request.Form("email") & chr(13) & chr(10) & chr(13) & chr(10) message = message & "Comments: " & Request.Form("message") & chr(13) & chr(10) 'set msg = server.CreateOBject( "CDO.Message" ) set msg = server.CreateOBject( "SMTPsvg.Mailer" ) 'msg.From = "info@xenon.net.au" msg.FromAddress = "info@xenon.net.au" 'msg.To = "jay@netdesign9.com" msg.AddRecipient "rl@xenon.net.au","rl@xenon.net.au" 'msg.BCC="jay@netdesign9.com" msg.Subject = "Contact from Xenon Website" msg.RemoteHost = "mail.xenon.net.au" 'msg.TextBody = message & vbCrLf msg.BodyText = message & vbCrLf 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost" 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'msg.Configuration.Fields.Update 'msg.Send if not msg.SendMail then Response.write "
" & msg.Response & "
" Else Response.write "Your email has been sent successfully." End If set msg = nothing %> <% messageB = "Dear " & Request.Form("name") & "

" & chr(13) & chr(10) & chr(13) & chr(10) messageB = messageB & "This is a confirmation that we have received your email...

" & chr(13) & chr(10) & chr(13) & chr(10) message = messageB & message & "
" & chr(13) & chr(10) 'message = message & "Fax :
" & chr(13) & chr(10) 'set msg = server.CreateOBject( "CDO.Message" ) set msg = server.CreateOBject( "SMTPsvg.Mailer" ) 'msg.From = "info@xenon.net.au" msg.FromAddress = "info@xenon.net.au" 'msg.To = Request.Form("email") msg.AddRecipient Request.Form("email"),Request.Form("email") msg.Subject = "Xenon - Confirmation" msg.RemoteHost = "mail.xenon.net.au" 'msg.TextBody = message & vbCrLf msg.BodyText = message & vbCrLf 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost" 'msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'msg.Configuration.Fields.Update 'msg.Send if not msg.SendMail then Response.write "
" & msg.Response & "
" Else Response.write "..." End If set msg = nothing %>
Copyright 2007 Xenon Technologies, all rights reserved.