<% 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 objRSProducts("Opt2") <> "" Then strOpt2Id = objRSProducts("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 objRSProducts("Opt2") <> "" Then strOpt2Id = objRSProducts("Opt2") Set oRs3 = Server.CreateObject("ADODB.Recordset") Sql3 = "Select * From Options Where Id = "& strOpt2Id &"" oRs3.Open Sql3, objConn %> <% 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 objRSProducts("Opt3") <> "" Then strOpt3Id = objRSProducts("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 objRSProducts("Opt3") <> "" Then strOpt3Id = objRSProducts("Opt3") Set oRs4 = Server.CreateObject("ADODB.Recordset") Sql4 = "Select * From Options Where Id = "& strOpt3Id &"" oRs4.Open Sql4, objConn %> <% 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 %> <% Else Response.Write" " End If %> <% End Sub %>