<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_indice Dim rs_indice_numRows Set rs_indice = Server.CreateObject("ADODB.Recordset") rs_indice.ActiveConnection = MM_cc_STRING rs_indice.Source = "SELECT id, pergunta, numero, subnumero FROM carloscoelho.dossier_clima WHERE subnumero = 0 ORDER BY numero ASC, subnumero ASC;" rs_indice.CursorType = 0 rs_indice.CursorLocation = 2 rs_indice.LockType = 1 rs_indice.Open() rs_indice_numRows = 0 %> <% Dim rs_ver_bolonha__MMColParam rs_ver_bolonha__MMColParam = "1" If (Request.QueryString("pf") <> "") Then rs_ver_bolonha__MMColParam = Request.QueryString("pf") End If rs_ver_bolonha__MMColParam = check_var(rs_ver_bolonha__MMColParam,"int") %> <% Dim rs_ver_bolonha Dim rs_ver_bolonha_numRows Set rs_ver_bolonha = Server.CreateObject("ADODB.Recordset") rs_ver_bolonha.ActiveConnection = MM_cc_STRING rs_ver_bolonha.Source = "SELECT * FROM dossier_clima WHERE numero = " + Replace(rs_ver_bolonha__MMColParam, "'", "''") + " ORDER BY subnumero ASC" rs_ver_bolonha.CursorType = 0 rs_ver_bolonha.CursorLocation = 2 rs_ver_bolonha.LockType = 1 rs_ver_bolonha.Open() rs_ver_bolonha_numRows = 0 %> <% Dim rs_ver_bolonha_detail__MMColParam rs_ver_bolonha_detail__MMColParam = "0" If (Request.QueryString("subpf") <> "") Then rs_ver_bolonha_detail__MMColParam = Request.QueryString("subpf") End If rs_ver_bolonha_detail__MMColParam = check_var(rs_ver_bolonha_detail__MMColParam,"int") %> <% Dim rs_ver_bolonha_detail Dim rs_ver_bolonha_detail_numRows Set rs_ver_bolonha_detail = Server.CreateObject("ADODB.Recordset") rs_ver_bolonha_detail.ActiveConnection = MM_cc_STRING rs_ver_bolonha_detail.Source = "SELECT * FROM dossier_clima WHERE subnumero = " + Replace(rs_ver_bolonha_detail__MMColParam, "'", "''") + " AND numero = " + Replace(rs_ver_bolonha__MMColParam, "'", "''") + " ORDER BY subnumero ASC" rs_ver_bolonha_detail.CursorType = 0 rs_ver_bolonha_detail.CursorLocation = 2 rs_ver_bolonha_detail.LockType = 1 rs_ver_bolonha_detail.Open() rs_ver_bolonha_detail_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>
<% if rs_ver_bolonha_detail__MMColParam <> "0" then %> <%end if%>
/dossiers/clima/main.jpg&width=125" border="0" class="imgcborder" />
Pacote Clima
Capítulo <%=chr(64+rs_ver_bolonha.Fields.Item("numero").Value)%>: <%=(rs_ver_bolonha.Fields.Item("pergunta").Value)%>
 
<%=rs_ver_bolonha_detail.Fields.Item("subnumero").Value%>. <%=(rs_ver_bolonha_detail.Fields.Item("pergunta").Value)%>
 
<%=replace(replace(rs_ver_bolonha_detail.Fields.Item("resposta").Value,"class=""2"" ",""),"
 
 
Índice do capítulo:
 
<% rs_ver_bolonha.movenext while not rs_ver_bolonha.eof %>

&subpf=<%=(rs_ver_bolonha.Fields.Item("subnumero").Value)%>"><%=rs_ver_bolonha.Fields.Item("subnumero").Value%>. <%=(rs_ver_bolonha.Fields.Item("pergunta").Value)%>

<% rs_ver_bolonha.movenext wend %>
 
 
Para ver outros capítulos
 
<% while not rs_indice.eof if cint(rs_indice.Fields.Item("numero")) <> cint(rs_ver_bolonha__MMColParam) then %>

"><%=chr(64+rs_indice.Fields.Item("numero").Value)%>. <%=(rs_indice.Fields.Item("pergunta").Value)%>

<%else%>

"><%=chr(64+rs_indice.Fields.Item("numero").Value)%>. <%=(rs_indice.Fields.Item("pergunta").Value)%>

<% end if rs_indice.movenext wend %>
 
 
 
     
<% rs_indice.Close() Set rs_indice = Nothing %> <% rs_ver_bolonha.Close() Set rs_ver_bolonha = Nothing %>