Inserir registro em Banco de Dados com ADO ASP

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