<%@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 * FROM dossier_clima WHERE dossier_clima.numero > 1 AND dossier_clima.subnumero = 0 ORDER BY dossier_clima.numero ASC" rs_indice.CursorType = 0 rs_indice.CursorLocation = 2 rs_indice.LockType = 1 rs_indice.Open() rs_indice_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>
/dossiers/clima/main.jpg&width=125" border="0" class="imgcborder" />
Pacote Clima
 
Partes Sectoriais do Pacote Clima
 
<% 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 %>