<%
dim TP(12)
'first get form data
name=Request.form("name")
Title=Request.form("Title")
Background=Request.form("Background")
B1=Request.form("B1") 'Word Format
B2=Request.form("B2") 'HTML Format
TP(1)=Request.form("TP1")
TP(2)=Request.form("TP2")
TP(3)=Request.form("TP3")
TP(4)=Request.form("TP4")
TP(5)=Request.form("TP5")
TP(6)=Request.form("TP6")
TP(7)=Request.form("TP7")
TP(8)=Request.form("TP8")
TP(9)=Request.form("TP9")
TP(10)=Request.form("TP10")
TP(11)=Request.form("TP11")
TP(12)=Request.form("TP12")
Q1=Request.form("Q1")
Q2=Request.form("Q2")
Q3=Request.form("Q3")
Q4=Request.form("Q4")
Q5=Request.form("Q5")
Ans1=Request.form("Ans1")
Ans2=Request.form("Ans2")
Ans3=Request.form("Ans3")
Ans4=Request.form("Ans4")
Ans5=Request.form("Ans5")
%>
<% 'set header for format
If Request.form("B1")<>"" then 'desire Word Format so set header and build filename
Response.ContentType = "application/msword"
Response.AddHeader "Content-Disposition", "attachment;filename=" & Replace(Topic & Name," ","_") & ".doc"
End If
%>
<%=Title%>
| AGET 150 Tailgate Topic |
<%=Name%> |
<%=Title%>
Background:
<%=Background%>
Talking Points:
<% For i=1 to 12 'next through each of the talking points and display if entered
If TP(i)<> "" then
%>
- <%=TP(i)%>
<% End if
Next %>
Questions:
- <%=Q1%>
- <%=Q2%>
- <%=Q3%>
- <%=Q4%>
- <%=Q5%>
Answers to Questions:
- <%=Ans1%>
- <%=Ans2%>
- <%=Ans3%>
- <%=Ans4%>
- <%=Ans5%>
<%=date()%>