<% ' declare variables Dim Company Dim Title Dim FirstName Dim LastName Dim Address_1 Dim Address_2 Dim Address_3 Dim Suburb_or_City Dim State Dim Country Dim Postcode Dim Phone_AreaCode Dim Phone_Number Dim From Dim Management_1 Dim Management_2 Dim Management_3 Dim Logistics_1 Dim Logistics_2 Dim Logistics_3 Dim Training_1 Dim Training_2 Dim Training_3 Dim Info_Systems_1 Dim Info_Systems_2 Dim Info_Systems_3 Dim Comments ' get posted data into variables EmailTo = "mgt@p-con.com.au" Subject = "Enquiry" Company = Trim(Request.Form("Company")) Title = Trim(Request.Form("Title")) FirstName = Trim(Request.Form("FirstName")) LastName = Trim(Request.Form("LastName")) Address_1 = Trim(Request.Form("Address_1")) Address_2 = Trim(Request.Form("Address_2")) Address_3 = Trim(Request.Form("Address_3")) Suburb_or_City = Trim(Request.Form("Suburb_or_City")) State = Trim(Request.Form("State")) Country = Trim(Request.Form("Country")) Postcode = Trim(Request.Form("Postcode")) Phone_AreaCode = Trim(Request.Form("Phone_AreaCode")) Phone_Number = Trim(Request.Form("Phone_Number")) From = Trim(Request.Form("From")) Enquiry = Trim(Request.Form("Comments")) ' prepare email body text Dim Body Body = Body & "Company: " & Company & VbCrLf Body = Body & "Title: " & Title & VbCrLf Body = Body & "FirstName: " & FirstName & VbCrLf Body = Body & "LastName: " & LastName & VbCrLf Body = Body & "Address1: " & Address_1 & VbCrLf Body = Body & "Address2: " & Address_2 & VbCrLf Body = Body & "Address3: " & Address_3 & VbCrLf Body = Body & "Suburb/City: " & Suburb_or_City & VbCrLf Body = Body & "State: " & State & VbCrLf Body = Body & "Country: " & Country & VbCrLf Body = Body & "Area Code: " & Phone_AreaCode & VbCrLf Body = Body & "Phone: " & Phone_Number & VbCrLf Body = Body & "Email: " & From & VbCrLf & VbCrLf Body = Body & "The services of interest are:" & VbCrLf ' The value property of the CheckBox is the returned item if the CheckBox is selected IF Trim(Request.Form("Management_1")) = "Management_1" THEN Body = Body & "Management: Project Management Support" & VbCrLf 'Else ' Do something else End If IF Trim(Request.Form("Management_2")) = "Management_2" THEN Body = Body & "Management: Tendering Support" & VbCrLf End If IF Trim(Request.Form("Management_3")) = "Management_3" THEN Body = Body & "Management: Strategic/Business Planning" & VbCrLf End If IF Trim(Request.Form("Logistics_1")) = "Logistics_1" THEN Body = Body & "Logistics Engineering: Supportability Analysis" & VbCrLf End If IF Trim(Request.Form("Logistics_2")) = "Logistics_2" THEN Body = Body & "Logistics Engineering: Reliability Modelling" & VbCrLf End If IF Trim(Request.Form("Logistics_3")) = "Logistics_3" THEN Body = Body & "Logistics Engineering: Failure Mode Effects & Criticality Analysis" & VbCrLf End If IF Trim(Request.Form("Training_1")) = "Training_1" THEN Body = Body & "Training: Design & Development for In-house Use" & VbCrLf End If IF Trim(Request.Form("Training_2")) = "Training_2" THEN Body = Body & "Training: Specialist Courses - Military" & VbCrLf End If IF Trim(Request.Form("Training_3")) = "Training_3" THEN Body = Body & "Training: Specialist Courses - Commercial" & VbCrLf End If IF Trim(Request.Form("Info_Systems_1")) = "Info_Systems_1" THEN Body = Body & "Information Systems: Optimisation Modelling" & VbCrLf End If IF Trim(Request.Form("Info_Systems_2")) = "Info_Systems_2" THEN Body = Body & "Information Systems: Systems Analysis & Design" & VbCrLf End If IF Trim(Request.Form("Info_Systems_3")) = "Info_Systems_3" THEN Body = Body & "Information Systems: Simulation Techniques" & VbCrLf End If Body = Body & VbCrLf & "Comments: " & Enquiry & VbCrLf ' send email Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="10.2.1.115" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 366 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = EmailTo ObjSendMail.Subject = Subject ObjSendMail.From = From ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody = Body ObjSendMail.Send Set ObjSendMail = Nothing ' redirect to success page Response.Redirect("Confirm.html?" & From) %>