I am trying to use CDONTS to take information from a form (http://www.scorecentralnebraska.org/Forms/SBA641OnlineForm.asp) and send it in an e-mail back to myself. My problem is that I cannot figure out how to pull information from the checkboxes and get them into the body of my message. If anybody has any advise that would be great. Many thanks in advance!
The following is the code from the form:
—————-
Native American or Alaskan Native
Asian
Black or African American
Native Hawaiian or other Pacific Islander
White
—————-
The next code is what I’m using to send the actuall e-mail with. This is located on the same page above the form.
—————-
<%
if (cStr(Request("Submit")) “”) Then
Dim objCDO
Dim MessageBody
Dim RaceA1
Set objCDO = Server.CreateObject(“CDONTS.NewMail”)
objCDO.From = Request(“Email”)
objCDO.To = “freemans@intellicominc.com”
objCDO.CC = “”
objCDO.Subject = “Webform Request for Counseling”
MessageBody = “The following was submitted from the website on ” & Now() & CHR(13)
MessageBody = MessageBody & “———————————————” & CHR(13)
MessageBody = MessageBody & “Name: ” & Request(“Name”) & CHR(13)
MessageBody = MessageBody & “Home Phone:” & CHR(13)
MessageBody = MessageBody & “Business Phone:” & CHR(13)
MessageBody = MessageBody & “Fax:” & CHR(13)
MessageBody = MessageBody & “E-Mail” & CHR(13)
**** Here is where the code would go to include the information from the Checkboxes ****
objCDO.Body = MessageBody
objCDO.Send()
Set objCDO = Nothing
Response.Redirect(“http://www.scorecentralnebraska.org/index.html”)
End If
%>
Any help would be greatly appreciated!
Thanks,
Shane