<%
Sub Opt1Name()
If objRS("Opt1") <> "" Then
strOpt1Id = objRS("Opt1")
Set oRS2 = Server.CreateObject("ADODB.Recordset")
Sql2 = "Select * From Options Where Id = "& strOpt1Id &""
oRS2.Open Sql2, objConn
Response.Write oRS2("Name")
Else
End If
End Sub
%>
<% Sub Opt1Box() %>
<% If objRS("Opt1") <> "" Then %>
<% If oRS2("Op1") <> "" Then %>
<%=oRS2("Op1")%> <% If oRS2("Op1Op") <> "None" Then %>
(<%=oRS2("Op1Op")%> <%=oRS2("Op1P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op2") <> "" Then %>
<%=oRS2("Op2")%> <% If oRS2("Op2Op") <> "None" Then %>
(<%=oRS2("Op2Op")%> <%=oRS2("Op2P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op3") <> "" Then %>
<%=oRS2("Op3")%> <% If oRS2("Op3Op") <> "None" Then %>
(<%=oRS2("Op3Op")%> <%=oRS2("Op3P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op4") <> "" Then %>
<%=oRS2("Op4")%> <% If oRS2("Op4Op") <> "None" Then %>
(<%=oRS2("Op4Op")%> <%=oRS2("Op4P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op5") <> "" Then %>
<%=oRS2("Op5")%> <% If oRS2("Op5Op") <> "None" Then %>
(<%=oRS2("Op5Op")%> <%=oRS2("Op5P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op6") <> "" Then %>
<%=oRS2("Op6")%> <% If oRS2("Op6Op") <> "None" Then %>
(<%=oRS2("Op6Op")%> <%=oRS2("Op6P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op7") <> "" Then %>
<%=oRS2("Op7")%> <% If oRS2("Op7Op") <> "None" Then %>
(<%=oRS2("Op7Op")%> <%=oRS2("Op7P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op8") <> "" Then %>
<%=oRS2("Op8")%> <% If oRS2("Op8Op") <> "None" Then %>
(<%=oRS2("Op8Op")%> <%=oRS2("Op8P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op9") <> "" Then %>
<%=oRS2("Op9")%> <% If oRS2("Op9Op") <> "None" Then %>
(<%=oRS2("Op9Op")%> <%=oRS2("Op9P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op10") <> "" Then %>
<%=oRS2("Op10")%> <% If oRS2("Op10Op") <> "None" Then %>
(<%=oRS2("Op10Op")%> <%=oRS2("Op10P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op11") <> "" Then %>
<%=oRS2("Op11")%> <% If oRS2("Op11Op") <> "None" Then %>
(<%=oRS2("Op11Op")%> <%=oRS2("Op11P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRS2("Op12") <> "" Then %>
<%=oRS2("Op12")%> <% If oRS2("Op12Op") <> "None" Then %>
(<%=oRS2("Op12Op")%> <%=oRS2("Op12P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<%
Else
End If
%>
<% End Sub %>
<%
Sub Opt2Name()
If objRS("Opt2") <> "" Then
strOpt2Id = objRS("Opt2")
Set oRs3 = Server.CreateObject("ADODB.Recordset")
Sql3 = "Select * From Options Where Id = "& strOpt2Id &""
oRs3.Open Sql3, objConn
Response.Write oRs3("Name")
Else
End If
End Sub
%>
<% Sub Opt2Box() %>
<% If objRS("Opt2") <> "" Then %>
<% If oRs3("Op1") <> "" Then %>
<%=oRs3("Op1")%> <% If oRs3("Op1Op") <> "None" Then %>
(<%=oRs3("Op1Op")%> <%=oRs3("Op1P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op2") <> "" Then %>
<%=oRs3("Op2")%> <% If oRs3("Op2Op") <> "None" Then %>
(<%=oRs3("Op2Op")%> <%=oRs3("Op2P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op3") <> "" Then %>
<%=oRs3("Op3")%> <% If oRs3("Op3Op") <> "None" Then %>
(<%=oRs3("Op3Op")%> <%=oRs3("Op3P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op4") <> "" Then %>
<%=oRs3("Op4")%> <% If oRs3("Op4Op") <> "None" Then %>
(<%=oRs3("Op4Op")%> <%=oRs3("Op4P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op5") <> "" Then %>
<%=oRs3("Op5")%> <% If oRs3("Op5Op") <> "None" Then %>
(<%=oRs3("Op5Op")%> <%=oRs3("Op5P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op6") <> "" Then %>
<%=oRs3("Op6")%> <% If oRs3("Op6Op") <> "None" Then %>
(<%=oRs3("Op6Op")%> <%=oRs3("Op6P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op7") <> "" Then %>
<%=oRs3("Op7")%> <% If oRs3("Op7Op") <> "None" Then %>
(<%=oRs3("Op7Op")%> <%=oRs3("Op7P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op8") <> "" Then %>
<%=oRs3("Op8")%> <% If oRs3("Op8Op") <> "None" Then %>
(<%=oRs3("Op8Op")%> <%=oRs3("Op8P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op9") <> "" Then %>
<%=oRs3("Op9")%> <% If oRs3("Op9Op") <> "None" Then %>
(<%=oRs3("Op9Op")%> <%=oRs3("Op9P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op10") <> "" Then %>
<%=oRs3("Op10")%> <% If oRs3("Op10Op") <> "None" Then %>
(<%=oRs3("Op10Op")%> <%=oRs3("Op10P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op11") <> "" Then %>
<%=oRs3("Op11")%> <% If oRs3("Op11Op") <> "None" Then %>
(<%=oRs3("Op11Op")%> <%=oRs3("Op11P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs3("Op12") <> "" Then %>
<%=oRs3("Op12")%> <% If oRs3("Op12Op") <> "None" Then %>
(<%=oRs3("Op12Op")%> <%=oRs3("Op12P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<%
Else
End If
%>
<% End Sub %>
<%
Sub Opt3Name()
If objRS("Opt3") <> "" Then
strOpt3Id = objRS("Opt3")
Set oRs4 = Server.CreateObject("ADODB.Recordset")
Sql4 = "Select * From Options Where Id = "& strOpt3Id &""
oRs4.Open Sql4, objConn
Response.Write oRs4("Name")
Else
End If
End Sub
%>
<% Sub Opt3Box() %>
<% If objRS("Opt3") <> "" Then %>
<% If oRs4("Op1") <> "" Then %>
<%=oRs4("Op1")%> <% If oRs4("Op1Op") <> "None" Then %>
(<%=oRs4("Op1Op")%> <%=oRs4("Op1P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op2") <> "" Then %>
<%=oRs4("Op2")%> <% If oRs4("Op2Op") <> "None" Then %>
(<%=oRs4("Op2Op")%> <%=oRs4("Op2P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op3") <> "" Then %>
<%=oRs4("Op3")%> <% If oRs4("Op3Op") <> "None" Then %>
(<%=oRs4("Op3Op")%> <%=oRs4("Op3P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op4") <> "" Then %>
<%=oRs4("Op4")%> <% If oRs4("Op4Op") <> "None" Then %>
(<%=oRs4("Op4Op")%> <%=oRs4("Op4P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op5") <> "" Then %>
<%=oRs4("Op5")%> <% If oRs4("Op5Op") <> "None" Then %>
(<%=oRs4("Op5Op")%> <%=oRs4("Op5P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op6") <> "" Then %>
<%=oRs4("Op6")%> <% If oRs4("Op6Op") <> "None" Then %>
(<%=oRs4("Op6Op")%> <%=oRs4("Op6P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op7") <> "" Then %>
<%=oRs4("Op7")%> <% If oRs4("Op7Op") <> "None" Then %>
(<%=oRs4("Op7Op")%> <%=oRs4("Op7P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op8") <> "" Then %>
<%=oRs4("Op8")%> <% If oRs4("Op8Op") <> "None" Then %>
(<%=oRs4("Op8Op")%> <%=oRs4("Op8P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op9") <> "" Then %>
<%=oRs4("Op9")%> <% If oRs4("Op9Op") <> "None" Then %>
(<%=oRs4("Op9Op")%> <%=oRs4("Op9P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op10") <> "" Then %>
<%=oRs4("Op10")%> <% If oRs4("Op10Op") <> "None" Then %>
(<%=oRs4("Op10Op")%> <%=oRs4("Op10P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op11") <> "" Then %>
<%=oRs4("Op11")%> <% If oRs4("Op11Op") <> "None" Then %>
(<%=oRs4("Op11Op")%> <%=oRs4("Op11P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<% If oRs4("Op12") <> "" Then %>
<%=oRs4("Op12")%> <% If oRs4("Op12Op") <> "None" Then %>
(<%=oRs4("Op12Op")%> <%=oRs4("Op12P")%>)
<%
Else
End If
%>
<%
Else
End If
%>
<%
End If
%>
<% End Sub %>