% 'Handles submitted form If Request("submit") <> "" Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request("email") strBody ="Demo Request and Registration INFO" & vbcrlf &_ "-----------------------------------------------"& vbcrlf &_ "Name:" & Request("Fname") & " " &Request("Lname") & vbcrlf &_ "Company: "&Request("company") & " " & vbcrlf &_ "Email: " & Request("email") & vbcrlf &_ "Address: " & Request("addlin1") & vbcrlf &_ "City: " & Request("city") & vbcrlf &_ "State: " & Request("state") & vbcrlf &_ "Zip: " & Request("zip") & vbcrlf &_ "Country: " & Request("country") & vbcrlf &_ "Phone: " & Request("phone") & vbcrlf &_ "Fax: " & Request("fax") & vbcrlf &_ "Operating System: " & Request("opsys") & vbcrlf &_ "Custormer Status: " & Request("custStatus") ' objCDO.To = "pnavarre@netinteraction.com" objCDO.To = "sales@commandtechnology.com" objCDO.CC = "balwit@techdevcorp.com" objCDO.Subject = "Demo Request Registration" objCDO.Body = strBody objCDO.Send() Set objCDO = Nothing Response.redirect "ctcdem02.htm" End If %>