phillip_ewing
03-11-2003, 01:15 AM
When I try to pass the Select answer to the CDONTS, it does not write to the e-mail. Can someone please tell me what I am doing wrong? I was asked to name the select statement but it too did not work.
code:--------------------------------------------------------------------------------
<TR valign="middle">
<TD ALIGN="right" WIDTH="278">This is reference to?:
<TD WIDTH="278">
<SELECT size="1" class="input" name="u_reference">
<OPTION value="Test"<% If Request.Form("u_reference") = "Test" Then Response.Write(" selected=""selected""") %> >Test</option>
<OPTION value="Test1"<% If Request.Form("u_reference") = "Test1" Then Response.Write(" selected=""selected""") %> >Test1</option>
</SELECT>
</TD></td>
</TR>
response.write "<br><b>This is reference to?: " & u_reference & "<br>"
MessageBody = MessageBody & "This is reffeence to?: " & u_reference & vbCrLf
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = u_email
objMail.From = "auto_mail@80sretromusic.com"
objMail.Subject = "A Feedback/Contact Form has been submitted."
objMail.Body = MessageBody objMail.Send
Set objMail = Nothing
end if %>
--------------------------------------------------------------------------------
Please note u_email is defined. It is just not listed.
Thank you in advance, Phillip
code:--------------------------------------------------------------------------------
<TR valign="middle">
<TD ALIGN="right" WIDTH="278">This is reference to?:
<TD WIDTH="278">
<SELECT size="1" class="input" name="u_reference">
<OPTION value="Test"<% If Request.Form("u_reference") = "Test" Then Response.Write(" selected=""selected""") %> >Test</option>
<OPTION value="Test1"<% If Request.Form("u_reference") = "Test1" Then Response.Write(" selected=""selected""") %> >Test1</option>
</SELECT>
</TD></td>
</TR>
response.write "<br><b>This is reference to?: " & u_reference & "<br>"
MessageBody = MessageBody & "This is reffeence to?: " & u_reference & vbCrLf
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = u_email
objMail.From = "auto_mail@80sretromusic.com"
objMail.Subject = "A Feedback/Contact Form has been submitted."
objMail.Body = MessageBody objMail.Send
Set objMail = Nothing
end if %>
--------------------------------------------------------------------------------
Please note u_email is defined. It is just not listed.
Thank you in advance, Phillip