[Gambas-user] gambas web script

Mon May 4 18:48:22 CEST 2009

Below my teste.gbw
Show erro. Any idea???

Reguards,

Souza, Wellington
-------------------------------------------------------------------------------

#!/usr/bin/env gbw2
<% USE "gb.db" %>
<% DIM i AS Integer %>
<% DIM oCnn AS NEW Connection %>
<% DIM oRs AS NEW Result %>

<html>
<h2>TESTE DE LEITURA DO POSTGRESQL/h2>

<% oCnn.Type = "postgresql" %>
<% oCnn.Host = "127.0.0.1" %>
<% oCnn.Login = "postgres" %>
<% oCnn.Password = "1234" %>
<% oCnn.Name = "test" %>
<% oCnn.Open %>
<% oRs = oCnn.Exec("SELECT f_nome, f_funcao, usuario, senha FROM cadfun ORDER BY
Lower(f_nome);") %>

<tr>
    <th align="left">Nome</th>
    <th align="left">Funcao</th>
    <th align="left">Usuario</th>
    <th align="left">Senha</th>
</tr>
<% oRs.MoveFirst %>
<% FOR i = 0 TO oRs.Max %>
  <tr valign="top">
    <td><%= oRs[0] %></td>
    <td><%= oRs[1] %></td>
    <td><%= oRs[2] %></td>
    <td><%= oRs[3] %> </td>
  </tr>
  <% oRs.MoveNext %>
<% NEXT %>

</table>

<% oRs = NULL %>
<% oCnn.Close %>

</html>

___________________________________________________________________________________
Para fazer uma ligação DDD pra perto ou pra longe, faz um 21. A Embratel tem
tarifas muito baratas esperando por você. Aproveite!