Você precisará de 2 páginas.
Formulário HTML;
Vamos chamá-la de cadastro.html
<form id="form1" name="form1" method="post" action="adicao.asp">
<p>Usuário:</p>
<p>
<label>
<input type="text" name="usuario" id="usuario" />
</label>
</p>
<p>Senha:</p>
<p>
<label>
<input type="text" name="senha" id="senha" />
</label>
</p>
<p>
<label>
<input type="submit" name="button" id="button" value="Senha" />
</label>
</p>
</form>
A página ASP chamaremos de adicao.asp
Lembre-se de trocar as informações que estáo em negrito para que funcione perfeitamente.
<%
Dim con
Dim rst
Const adOpenKeyset = 1
Const adLockOptimistic = 3
' Cria os objetos
Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
' Abre a conexão com o banco de dados. Estou usando postgre, mas pode ser o de sua preferência.
con.Open "DRIVER={PostGreSQL ANSI};SERVER=servidoraqui;UID=postgres;PWD=senhadoDBaqui;DATABASE=nomedoDBaqui;OPTION=3"
' Cria um Recordset do tipo keyset baseado na tabela clientes
' usando o bloqueio otimista
rst.Open "SELECT * FROM nomedatabela", con, adOpenKeyset, adLockOptimistic
' Cria um registro em branco
rst.AddNew
' Recebe os dados do formulário e os atribui aos campos da tabela. Pode acrescentar linhas para quantos campos quiser
rst("campo")= Request.Form("campo")
rst("campo")= Request.Form("campo2")
' Salva o registro
rst.Update
Response.Write "<B>Registro salvo com sucesso !</B>"
rst.Close
con.Close
%>
Se quiser usar banco de dados access, segue exemplo.
DBQ=C:\pasta\nomedoDB.mdb;DRIVER={Microsoft Access Driver (*.mdb)}Se alguém tiver uma sugestão para melhorar a postagem, fique a vontade para fazê-la.
Fonte: http://www.macoratti.net
