<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "mail.xx.xx.xx" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "xxc@xx.xx.xx" .To = "xx@xx.xx.xx" .Subject = "Room Booking Request" .TextBody = "Booking Type:" & Request.Form("internal_booking") & _ "" & Request.Form("external_booking") & "" %>
<%"Booking Name: " & Request.Form("booking_name") & "" %>
<%"Start Time: " & Request.Form("start_time") & "" %>
<%"End Time: " & Request.Form("end_time") & _ "Booking Date: " & Request.Form("booking_date") & _ "Number of People: " & Request.Form("number_people") & _ "Rooms: " & Request.Form("rooms") & _ "Equipment - Computer: " & Request.Form("equip_computer") & _ "Equipment - Data Projector: " & Request.Form("equip_datapro") & _ "Equipment - Whiteboard: " & Request.Form("equip_whiteboard") & _ "Equipment - OHP: " & Request.Form("equip_ohp") & _ "Equipment - Printing Whiteboard: " & Request.Form("equip_printingwhiteboard") & _ "Equipment - Audio Conference: " & Request.Form("equip_audio_conf") & _ "Equipment - Display Stand: " & Request.Form("equip_display_stand") & _ "Equipment - Other: " & Request.Form("equip_other_desc") & _ "Meeting Type: " & Request.Form("meeting_type") & _ "Multi Day One-off Start Date: " & Request.Form("multi_start_date") & _ "Multi Day One-off Start Day: " & Request.Form("multi_start_day") & _ "Multi Day One-off End Date: " & Request.Form("multi_end_date") & _ "Multi Day One-off End Day: " & Request.Form("multi_end_day") & _ "Serial Booking First Date: " & Request.Form("serial_first_date") & _ "Serial Booking Last Date: " & Request.Form("serial_last_date") & _ "Booking made by: " & Request.Form("bookers_name") & _ "Department: " & Request.Form("department") & _ "Phone Number: " & Request.Form("phone") & _ "Email Address: " & Request.Form("email") & _ "Invoice Name: " & Request.Form("invoice_name") & _ "Invoice Address: " & Request.Form("invoice_address") & _ "Invoice Authorisor: " & Request.Form("authorisor") & _ "Invoice Order Number: " & Request.Form("order_number") & _ "Invoice Charge Code: " & Request.Form("charge_code") & _ "Comments: " & Request.Form("comments") & "" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("thanks.htm") %>