<% dim event_name, cmpny_name, applicant_name, fax_no, email, fght_details, airline_name, fght_no, arrival_date, arrival_time event_name=request.form("event_name") cmpny_name=request.form("cmpny_name") applicant_name=request.form("applicant_name") fax_no=request.form("fax_no") email=request.form("email") fght_details=request.form("fght_details") airline_name=request.form("airline_name") fght_no=request.form("fght_no") arrival_date=request.form("arrival_date") arrival_time=request.form("arrival_time") set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.update Set objMessage.Configuration = objConfig objMessage.To = "negandhimehul@yahoo.com" objMessage.BCC = "angelique@oite.com" objMessage.From = "schoolex_Expo_2008" objMessage.Subject = "schoolex EXPO 2008 - Visa Application" objMessage.htmlBody = "Name of Event = " &
event_name & " , Company Name = " & cmpny_name & ", Name of Applicant = "& applicant_name & ", Fax = " & fax_no & ", Email = " & email & ", Flight Details = " & fght_details & ", Airline Name = " & airline_name & ", Flight No = " & fght_no & ", Arrival Date = " & arrival_date & ", Arrival Time = " & arrival_time objMessage.fields.update objMessage.Send Response.write "Your Visa Application has been received..." 'Response.write "
" & txtFriendsEmail & "
" & txtFriendsName & "
" & txtName & "
" & txtEmail set objMessage = nothing set objConfig = nothing %>