<% 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 = "varghese@oite.com" objMessage.BCC = "monishmin@gmail.com" objMessage.From = "FRANCHISE_Expo_2008" objMessage.Subject = "FRANCHISE EXPO 2008 - Graphics Form" DIM TEXT TEXT=Request.Form("texteng") 'Response.Write(TEXT) objMessage.htmlBody = " Event Name : " & Request.Form("event_name") & "
Company : " & Request.Form("company_name") & "
e-Mail: " & Request.Form("email") & "
Phone: " & Request.Form("phone") & "
Fax: " & Request.Form("fax") & "
Contact Person: " & Request.Form("contact_person") & "
Country: " & Request.Form("country") & "

Stand Number: " & Request.Form("stand_number") & "
Address: " & Request.Form("address") & "
English Text: " & Request.Form("texteng") &"
Arabic Text: " & Request.Form("textarabic") &" " objMessage.fields.update objMessage.Send set objMessage = nothing set objConfig = nothing %> graphics_thank_you

 

 
 

Thank you

We have received your Graphics Information