<% dim fname,surname, jobTitle, organisation, cmpny_address, city, pcode, country, phone, fax, email, website, where fname=request.form("fname") surname=request.form("surname") jobTitle=request.form("jobTitle") Organisation=request.form("Organisation") cmpny_address=request.form("cmpny_address") city=request.form("city") pcode=request.form("pcode") country=request.form("country") phone=request.form("phone") fax=request.form("fax") email=request.form("email") website=request.form("website") where=request.form("where") 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 = "atif@oite.com" objMessage.CC = "motasam@oite.com" objMessage.BCC = "rollin@oite.com" objMessage.From = "info@oite.com" objMessage.Subject = "Oman Travel Market 2008 - Pre-Registration Form" objMessage.htmlBody = "First Name = " & fname & "
Surname = " & surname & "
Job Title = "& jobTitle & "
Organisation = " & organisation & "
Company Address = " & cmpny_address & "
City = " & city & "
Postal Code = " & pcode & "
Country = " & country & "
Phone = " & phone & "
Fax = " & fax & "
Email = " & email & "
Website = " & website & "
Where = " & where & "" objMessage.fields.update objMessage.Send Response.write "Thank you for Pre-Registering with us..." 'Response.write "
" & fname & "," & surname & "," & jobTitle & "," & organisation & "," & cmpny_address & "," & city & "," & pcode & "," & country & "," & phone & "," & fax & "," & email & "," & website & "," & where set objMessage = nothing set objConfig = nothing %>