<%@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_roaming 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_roaming WHERE id = " + Replace(rs_ver_bolonha__MMColParam, "'", "''") + "" rs_ver_bolonha.CursorType = 0 rs_ver_bolonha.CursorLocation = 2 rs_ver_bolonha.LockType = 1 rs_ver_bolonha.Open() rs_ver_bolonha_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>
/dossiers/roaming/main.jpg&width=125" border="0" class="imgcborder" />
Roaming
 
Roaming
 
<%=(rs_ver_bolonha.Fields.Item("pergunta").Value)%>
 
<%=replace(replace(rs_ver_bolonha.Fields.Item("resposta").Value,"class=""2"" ",""),"
 
 
Índice
 
<% while not rs_indice.eof if rs_indice.Fields.Item("subnumero").Value = 0 then %>

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

<%else%>

"><%=(rs_indice.Fields.Item("subnumero").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 %>