<% 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 = "rollin@oite.com" objMessage.BCC = "saif@oite.com" objMessage.From = "info@oite.com" objMessage.Subject = "SCHOOLEX 2008 - Pre-Registration Form" objMessage.htmlBody = "fname = " & fname & " , surname = " & surname & ", jobTitle = "& jobTitle & ", organisation =" & organisation & ", cmpny_address =" & cmpny_address & ", city =" & city & ", pcode=" & 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 %>