<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim listagemajuda Dim listagemajuda_numRows Set listagemajuda = Server.CreateObject("ADODB.Recordset") listagemajuda.ActiveConnection = MM_MundialEditora_STRING listagemajuda.Source = "SELECT * FROM dbo.Perguntas ORDER BY ordem" listagemajuda.CursorType = 0 listagemajuda.CursorLocation = 2 listagemajuda.LockType = 1 listagemajuda.Open() listagemajuda_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 listagemajuda_numRows = listagemajuda_numRows + Repeat1__numRows %> Mundial Editora
Ajuda
<% If Not listagemajuda.EOF Or Not listagemajuda.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT listagemajuda.EOF)) %>
<%=(listagemajuda.Fields.Item("Pergunta").Value)%>
<%=(listagemajuda.Fields.Item("Resposta").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 listagemajuda.MoveNext() Wend %> <% End If ' end Not listagemajuda.EOF Or NOT listagemajuda.BOF %>
Página Anterior
<% listagemajuda.Close() Set listagemajuda = Nothing %>