% strSubmit = Request("btnSubmit") If strSubmit = "Submit" Then strName = Request.Form("name") strEmail = Request.Form("email") strMessage = Request.Form("message") strCountry = Request.Form("country") stroptone=Request.Form("optone") stropttwo=Request.Form("opttwo") sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDONTS.NewMail") cdoConfig.From = strEmail cdoConfig.To = "sales@roseoverseas.com" cdoConfig.Subject = "Product Enquiry " cdoConfig.Body = "Name: " & Trim(strName) & vbCrLf _ & "Email: " & Trim(strEmail) & vbCrLf _ & "Product Name: " & Trim(stroptone) & vbCrLf _ & "Product Item id: " & Trim(stropttwo) & vbCrLf _ & "Message: " & Trim(strMessage) & vbCrLf _ & "Country: " & Trim(strCountry) cdoConfig.send Set cdoConfig = Nothing Response.redirect ("thanks.htm") End If %>