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("CDONTS.NewMail"
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""ffffff"">"
strbody = " " & request("txtRepName"
&_
chr(13) & chr(13) &_
" 1. " & request("text"
& ", "& request("text1"
& ", " & request("text2"
& chr(13)&_
" 2. " & request("txtTwo"
& chr(13) &_
" 3. " & request("txtThree"
& chr(13) &_
" 4. " & request("txtFour"
& chr(13) &_
" 5. " & request("text3"
& ", "& request("text4"
& ", " & request("text5"
& chr(13)&_
" 6. " & request("txtSix"
& chr(13) &_
" 7. " & request("txtSeven"
& chr(13) &_
" 8. " & request("txtEight"
& chr(13) &_
" 9. " & request("text6"
&_
" 10. " & request("txtTen"
& chr(13)
HTML = HTML & "<p>;<font size =""3"" face=""tahoma""><strong>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From="reps@weckclosure.com"
myMail.To="dathas@weckclosure.com"
myMail.Subject="CSE Quiz"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=strbody
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Weck Closure Internal Site</title>
<!--#include file="../includes/styleSheet.inc"-->
</head>
<body>
Rep = <% = request("txtRepName"
%><br>
1. = <% = request("txtOne"
%> <br>
2. = <% = request("txtTwo"
%> <br>
3. = <% = request("txtThree"
%><br>
4. = <% = request("txtFour"
%><br>
5. = <% = request("txtFive"
%><br>
6. = <% = request("txtSix"
%><br>
7. = <% = request("txtSeven"
%><br>
8. = <% = request("txtEight"
%><br>
9. = <% = request("txtNine"
%><br>
10. = <% = request("txtTen"
%><br>
<br>
<br>
<br>
<%@ Language=VBScript %>
<%
Dim strbody
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail"
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""ffffff"">"
strbody = " " & request("txtRepName"
chr(13) & chr(13) &_
" 1. " & request("text"
" 2. " & request("txtTwo"
" 3. " & request("txtThree"
" 4. " & request("txtFour"
" 5. " & request("text3"
" 6. " & request("txtSix"
" 7. " & request("txtSeven"
" 8. " & request("txtEight"
" 9. " & request("text6"
" 10. " & request("txtTen"
HTML = HTML & "<p>;<font size =""3"" face=""tahoma""><strong>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From="reps@weckclosure.com"
myMail.To="dathas@weckclosure.com"
myMail.Subject="CSE Quiz"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=strbody
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Weck Closure Internal Site</title>
<!--#include file="../includes/styleSheet.inc"-->
</head>
<body>
Rep = <% = request("txtRepName"
1. = <% = request("txtOne"
2. = <% = request("txtTwo"
3. = <% = request("txtThree"
4. = <% = request("txtFour"
5. = <% = request("txtFive"
6. = <% = request("txtSix"
7. = <% = request("txtSeven"
8. = <% = request("txtEight"
9. = <% = request("txtNine"
10. = <% = request("txtTen"
<br>
<br>
<br>