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