Eventos
<%
' verifica se há dados no recordset
If rstemp.eof then
%>
Não existem eventos cadastrados.
<% 'connection.close
'set connection=nothing
response.end
else
%>
<%
' Vamos dar nome aos cabeçalhos dos campos
response.write ""
'Percorremos os campos
response.write "| Data | "
response.write "Local | "
response.write "Descrição | "
response.write "
"
' Agora iremos exibir os dados do Recordset gerado pela consulta SQL
' Vamos percorrer o recordset até chegar no final do arquivo
DO UNTIL rstemp.eof
'atribuindo os valores dos campos as variáveis
id=rstemp("id")
descricao=rstemp("descricao")
local=rstemp("local")
data=rstemp("data")
' escrevendo os campos em uma tabela para exibição via um Browser
response.write ""
response.write "| " & data & " | "
response.write "" & local & " | "
response.write "" & descricao & " | "
response.write "
"
'move-se para próximo registro do recordset
rstemp.movenext
LOOP
end if
%>
<%
' Fechamos o recordset e liberamos a memória usada
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
