<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RS_Doacoes Dim RS_Doacoes_numRows Set RS_Doacoes = Server.CreateObject("ADODB.Recordset") RS_Doacoes.ActiveConnection = MM_connAmigoUFLA_STRING RS_Doacoes.Source = "SELECT * FROM Doacao, Favorecido, TipoDoacao, TipoDoador, VinculoUFLA WHERE Doacao.mostrar AND (Doacao.idVinculoUFLA = VinculoUFLA.idVinculoUFLA) AND (Doacao.idFavorecido = Favorecido.idFavorecido) AND (Doacao.idTipoDoacao = TipoDoacao.idTipoDoacao) AND (Doacao.idTipoDoador = TipoDoador.idTipoDoador) ORDER BY NomeCompleto ASC" RS_Doacoes.CursorType = 0 RS_Doacoes.CursorLocation = 2 RS_Doacoes.LockType = 1 RS_Doacoes.Open() RS_Doacoes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_Doacoes_numRows = RS_Doacoes_numRows + Repeat1__numRows %>

Programa Amigos da UFLA Doações Recebidas Como Doar Formulário para Doações <% While ((Repeat1__numRows <> 0) AND (NOT RS_Doacoes.EOF)) %> <% if (RS_Doacoes.Fields.Item("TipoDoador.idTipoDoador").Value) = 1 then NomeCompleto = " - - - " CPFCNPJ = " - - - " else NomeCompleto = (RS_Doacoes.Fields.Item("NomeCompleto").Value) CPFCNPJ = (RS_Doacoes.Fields.Item("CPFCNPJ").Value) end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_Doacoes.MoveNext() Wend %> Tipo de Doador Nome Completo CPF/CNPJ Tipo de Doação Favorecido Valor   <%=(RS_Doacoes.Fields.Item("TipoDoador").Value)%> <%=NomeCompleto%> <%=CPFCNPJ%> <%=(RS_Doacoes.Fields.Item("TipoDoacao").Value)%> <%=(RS_Doacoes.Fields.Item("Descricao").Value)%> <%=(RS_Doacoes.Fields.Item("ValorDoacao").Value)%>

 

<% RS_Doacoes.Close() Set RS_Doacoes = Nothing %>