<% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "clicktowin@cmctv.com" objCDO.To = "clicktowin@cmctv.com" objCDO.Subject = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Your Name: " objCDO.TextBody = objCDO.TextBody & Request("Your Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "E-Mail: " objCDO.TextBody = objCDO.TextBody & Request("E-Mail") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Phone: " objCDO.TextBody = objCDO.TextBody & Request("Phone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Address: " objCDO.TextBody = objCDO.TextBody & Request("Address") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "City State Zip: " objCDO.TextBody = objCDO.TextBody & Request("City State Zip") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Age: " objCDO.TextBody = objCDO.TextBody & Request("Age") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Date of Birth: " objCDO.TextBody = objCDO.TextBody & Request("Date of Birth") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Write "Your Message has been sent. Thank you!" Response.End end if %>
CMC, CMC-TV, CMC-USA, CMC Beat Lounge,
Beat Lounge, California Music Channel, Children's Music Channel, Country Music Channel,
and "In the Air, Everywhere" are registered trademarks of CMC Broadcasting Company, Incorporated.
Copyright © 1982-2008 CMC Broadcasting Company, Incorporated. All Rights Reserved.
Privacy Policy | Music Video Submission Policy | Terms of Use
