<%@ Language=VBScript %> <% set CMD=Server.CreateObject("ADODB.COMMAND") CMD.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/form/executivos.mdb") CMD.CommandText="SELECT * FROM executivos ORDER BY nome" set rsEXEC=CMD.Execute %>

LISTAGEM GERAL DE EXECUTIVOS

<%while not rsEXEC.eof%> <% rsEXEC.moveNext Wend rsEXEC.Close set rsEXEC=nothing set CMD=nothing %>

Nome	Telefone	Celular	E-mail	Endereço	Referência	Chegada	Saída
<%=rsEXEC("nome")%>	<%=rsEXEC("tel")%>	<%=rsEXEC("celular")%>	<%=rsEXEC("email")%>	<%=rsEXEC("endereco")%>	<%=rsEXEC("referencia")%>	<%=rsEXEC("chegada")%>	<%=rsEXEC("saida")%>

voltar