<%
Option Explicit
Dim TheMessage
Dim TheFormField
For Each TheFormField in Request.Form
  If TheFormField <> "SendTo" and  TheFormField <> 
  "CompleteMessage" and TheFormField <> "SubmitButton" Then
    If Request.Form(TheFormField).Count > 1 Then
      TheMessage = TheMessage & TheFormField & "(" _
        & Request.Form(TheFormField).Count & "): " _
        & Request.Form(TheFormField) & chr(13)
    else
      TheMessage = TheMessage & TheFormField & ": " _
       & Request.Form(TheFormField) & chr(13)
    end if
  end if
Next
Dim ObjMail
Set objMail = CreateObject("CDONTS.NewMail")
objMail.Send "na@na.com", cstr(Request.Form("SendTo")), 
  "New More Info Request", cstr(TheMessage)
Set objMail = Nothing
%>  
