Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Text answers in a form.

Status
Not open for further replies.

dgoss

MIS
Apr 10, 2002
6
US
I have created a form ("quiz"). I have this quiz sent to me via email when it has been completed. I have answers that are true or false and then 3 questions require text messages. My question is how do I or can I specify the text to show up when the quiz is submitted? Ex. first answer to question would be: Hepatitis B, Hepatitis C, and HIV. Not necessarily in that order. As long as the three are in the answers they are correct. Can I do this without specifying which answer goes in A B or C? Thanks in advance.
<%@ Language=VBScript %>
<%
Dim strbody
Dim myMail
Dim HTML
Set myMail = CreateObject(&quot;CDONTS.NewMail&quot;)

HTML = &quot;<!DOCTYPE HTML PUBLIC&quot;&quot;-//IETF//DTD HTML//EN&quot;&quot;>&quot;
HTML = HTML & &quot;<html>&quot;
HTML = HTML & &quot;<head>&quot;
HTML = HTML & &quot;<meta http-equiv=&quot;&quot;Content-Type&quot;&quot;&quot;
HTML = HTML & &quot;content=&quot;&quot;text/html; charset=iso-8859-1&quot;&quot;>&quot;
HTML = HTML & &quot;<meta name=&quot;&quot;GENERATOR&quot;&quot;&quot;
HTML = HTML & &quot; content=&quot;&quot;Microsoft Visual Studio 6.0&quot;&quot;>&quot;
HTML = HTML & &quot;<title>HTMLMail</title>&quot;
HTML = HTML & &quot;</head>&quot;
HTML = HTML & &quot;<body bgcolor=&quot;&quot;ffffff&quot;&quot;>&quot;
strbody = &quot; &quot; & request(&quot;txtRepName&quot;) &_
chr(13) & chr(13) &_
&quot; 1. &quot; & request(&quot;text&quot;) & &quot;, &quot;& request(&quot;text1&quot;)& &quot;, &quot; & request(&quot;text2&quot;)& chr(13)&_
&quot; 2. &quot; & request(&quot;txtTwo&quot;) & chr(13) &_
&quot; 3. &quot; & request(&quot;txtThree&quot;) & chr(13) &_
&quot; 4. &quot; & request(&quot;txtFour&quot;) & chr(13) &_
&quot; 5. &quot; & request(&quot;text3&quot;) & &quot;, &quot;& request(&quot;text4&quot;)& &quot;, &quot; & request(&quot;text5&quot;)& chr(13)&_
&quot; 6. &quot; & request(&quot;txtSix&quot;) & chr(13) &_
&quot; 7. &quot; & request(&quot;txtSeven&quot;) & chr(13) &_
&quot; 8. &quot; & request(&quot;txtEight&quot;) & chr(13) &_
&quot; 9. &quot; & request(&quot;text6&quot;) &_
&quot; 10. &quot; & request(&quot;txtTen&quot;) & chr(13)
HTML = HTML & &quot;<p>;<font size =&quot;&quot;3&quot;&quot; face=&quot;&quot;tahoma&quot;&quot;><strong>&quot;
HTML = HTML & &quot;</body>&quot;
HTML = HTML & &quot;</html>&quot;

myMail.From=&quot;reps@weckclosure.com&quot;
myMail.To=&quot;dathas@weckclosure.com&quot;
myMail.Subject=&quot;CSE Quiz&quot;
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=strbody
myMail.Send
set mymail=nothing
Response.Write &quot;Message Sent&quot;
%>

<html>
<head>
<meta NAME=&quot;GENERATOR&quot; Content=&quot;Microsoft Visual Studio 6.0&quot;>
<title>Weck Closure Internal Site</title>
<!--#include file=&quot;../includes/styleSheet.inc&quot;-->
</head>
<body>
Rep = <% = request(&quot;txtRepName&quot;)%><br>
1. = <% = request(&quot;txtOne&quot;)%> <br>
2. = <% = request(&quot;txtTwo&quot;)%> <br>
3. = <% = request(&quot;txtThree&quot;)%><br>
4. = <% = request(&quot;txtFour&quot;)%><br>
5. = <% = request(&quot;txtFive&quot;)%><br>
6. = <% = request(&quot;txtSix&quot;)%><br>
7. = <% = request(&quot;txtSeven&quot;)%><br>
8. = <% = request(&quot;txtEight&quot;)%><br>
9. = <% = request(&quot;txtNine&quot;)%><br>
10. = <% = request(&quot;txtTen&quot;)%><br>
<br>

<br>
<br>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top