Make your own free website on Tripod.com
.
teste
HOME Notícia Sobre nós Serviços Hospedagem Consultoria soluçôes prontas Treinamento links buscas Suporte online! venda de produtos Escritóriovirtual

Enter subhead content here

ASP Dataform

Formulário de Inclusão
<% If IsEmpty( Request.Form("submit") ) Then %>
">
<% Else If Not IsEmpty(Request.Form("submit")) Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=Edit1;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO ()" ComandoSQL = ComandoSQL & " VALUES (" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %>

Os dados foram enviados com sucesso!
Clique aqui para continuar
<% Else %>

Atenção: Alguns dados necessário não foram preenchidos corretamente
Clique aqui para voltar
<% End If End If %>

Enter content here

Enter supporting content here