PLANEJAMENTO - CADASTRO
<% Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaoplan") Set rsSistemas = DataBase.Execute("SELECT * FROM SISTEMAS order by Nome") %>
Sistema
:
Selecione . . .
<% Do Until rsSistemas.EOF = True %>
"><%=rsSistemas("Nome")%>
<% rsSistemas.MoveNext Loop %>
Descrição
:
Data Inicial
:
Data Final
:
Concluído
: