<% 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") where1=request.form("where1") 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 = "rollin@oite.com" objMessage.BCC = "atif@oite.com" objMessage.From = "info@oite.com" objMessage.Subject = "COMEX 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 did you hear about us = " & where & "" objMessage.fields.update objMessage.Send Response.write "Thank you for Pre-Registering with us..." set objMessage = nothing set objConfig = nothing %>