HOLA U_GOLDMAN GRACIAS POR TU PRONTA RESPUESTA ESTO ES LO FALTANTE DE PARTE DEL CODIGO YA QUE ES INMENSO CRES QUE CON ESTO ME PODRIAS APOYAR PORFAVOR Y NUEVAMENTE GRACIAS.
If Not rstPanel.EOF Then
strCategory = ""
%>
<font class="EOPP_TITLETABLE"><%= rstPanel("description").Value %>
<%
If inStr(Session("Perm"),"P1") > 0 Then
Response.Write "<a href=""plan.asp"" class=""PSNAVPARENTLINK"">Plan</a>"
If inStr(Session("CPerm"),"R1") > 0 Then Response.Write " | "
End If
If inStr(Session("Perm"),"R1") > 0 Then
Response.Write "<a href=""results.asp"" class=""PSNAVPARENTLINK"">Edit Results</a>"
End If
<%
Do While Not rstPanel.EOF
If rstPanel("title").Value <> strCategory Then
%>
<%
strCategory = rstPanel("title").Value
strCategory = rstPanel1("title").Value
strCategory = rstPanel2("title").Value
strCategory = rstPanel3("title").Value
End If
%>
<td align="center" bgcolor="#fcf9dc"><%= ShowData(rstPanel("1plan").Value + rstPanel1("1plan").Value + rstPanel2("1plan").Value + rstPanel3("1plan").Value, rstPanel("integer").Value, rstPanel("percent").Value) %></td>
<td bgcolor="#fcf9dc" align="center"><%= ShowData(rstPanel("sem1").Value + rstPanel1("sem1").Value +rstPanel2("sem1").Value +rstPanel3("sem1").Value, rstPanel("integer").Value, rstPanel("percent").Value) %></td>
<td width="50" bgcolor="#fcf9dc" align="center"><%= ShowResult( rstPanel("1plan").Value + rstPanel1("1plan").Value + rstPanel2("1plan").Value + rstPanel3("1plan").Value, rstPanel("sem1").Value + rstPanel1("sem1").Value +rstPanel2("sem1l").Value +rstPanel3("sem1").Value ,rstPanel("failure").Value, rstPanel("cat_id").Value, 1) %></td>
<td align="center" bgcolor="#fcf9dc"><%= ShowData(rstPanel("2plan").Value + rstPanel1("2plan").Value + rstPanel2("2plan").Value + rstPanel3("2plan").Value, rstPanel("integer").Value, rstPanel("percent").Value) %></td>
<td bgcolor="#fcf9dc" align="center"><%= ShowData(rstPanel("sem2").Value + rstPanel1("sem2").Value +rstPanel2("sem2").Value +rstPanel3("sem2").Value, rstPanel("integer").Value, rstPanel("percent").Value) %></td>
<td width="50" bgcolor="#fcf9dc" align="center"><%= ShowResult( rstPanel("2plan").Value + rstPanel1("2plan").Value + rstPanel2("2plan").Value + rstPanel3("2plan").Value, rstPanel("sem2").Value + rstPanel1("sem2").Value +rstPanel2("sem2").Value +rstPanel3("sem2").Value ,rstPanel("failure").Value, rstPanel("cat_id").Value, 2) %></td>
rstPanel.MoveNext
rstPanel1.MoveNext
rstPanel2.MoveNext
rstPanel3.MoveNext
Loop
%>
</table>
<%
Else
%>
<font class="GENERALTABLE">A table needs to be selected for the panel showing </font>
<%
End If
rstPanel.Close
rstPanel1.Close
rstPanel2.Close
rstPanel3.Close
Set rstPanel = Nothing
Set rstPanel1 = Nothing
Set rstPanel2 = Nothing
Set rstPanel3 = Nothing
%>