<% varName = Request.Form("name") varDesignation = Request.Form("designation") varCompany = Request.Form("company") varAddress = Request.Form("address") varPostcode = Request.Form("postcode") varCity = Request.Form("city") varState = Request.Form("state") varTelephone = Request.Form("telephone") varFax = Request.Form("fax") varEmail = Request.Form("email") varWebsite = Request.Form("website") varSession = Request.Form("session") Response.Write "" & VbCrLf Response.Write "

My Application Info


" & VbCrLf Response.Write "--------------------------------" & VbCrLf Response.Write "Designation: " & varDesignation & VbCrLf Response.Write "Company: " & varCompany & VbCrLf Response.Write "Address: " & varAddress & VbCrLf Response.Write "Postcode: " & varPostcode & VbCrLf Response.Write "City: " & varCity & VbCrLf Response.Write "State: " & varState & VbCrLf Response.Write "Tel: " & varTelephone & VbCrLf Response.Write "Fax: " & varFax & VbCrLf Response.Write "Email: " & varEmail & VbCrLf Response.Write "Website: " & varWebsite & VbCrLf Response.Write "I would like to attend the following session:
" & varSession If varSession ="session1" Then Response.Write "Attend the whole day conference" Else If varSession ="session2" Then Response.Write "Attend the half day conference (morning/afternoon)" Else Response.Write "Please keep me in your database for future conferences like these" End If Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request("name") Mailer.FromAddress = "bunyu@autoworld.com.my" Mailer.RemoteHost = "mail.autoworld.com.my" Mailer.Replyto = request("bunyu@autoworld.com.my") Mailer.AddRecipient "Support", "bunyu@autoworld.com.my" Mailer.Subject = "Application by " & request("name") Mailer.BodyText = BodyText If Mailer.SendMail then %> KL International Motorshow 2000 Conference

Thanks for visiting us!


Congratulations! Your application has been successfully sent to the event managers. We will process your application and get in touch with you soon.

Back to previous page

<% Else Response.Write "Sorry, mail send failure. Error was " & Mailer.Response Response.Write "Please report to support@autoworld.com.my" End If %>