Formulários para cadstro, como programar?

exemplo deixar recados no site:

***formulário

<form action="Enquete_Resultado.asp?Enquete=<% = rst4("Codigo da enquete") %>" method="post" name="form1" target="Default_principal">
              <table width="100%" border="0" bgcolor="#C8EFFB">
                <%
         if rst4.eof then
          Pergunta = "Sem Enquete"
          Alter1 = "Nada"
          Alter2 = "Nada"
          Alter3 = "Nada"
          CodAlter1 = 0
          CodAlter2 = 0
          CodAlter3 = 0
         else
          Pergunta = rst4("Pergunta")
          Alter1 = rst4("Alternativa")
          CodAlter1 = rst4("Codigo da alternativa")
          rst4.movenext
          if rst4.eof then
           Alter2 = "Nada"
           CodAlter2 = 0
          else
           Alter2 = rst4("Alternativa")
           CodAlter2 = rst4("Codigo da alternativa")
           rst4.movenext
           if rst4.eof then
            Alter3 = "Nada"
            CodAlter3 = 0
           else
            Alter3 = rst4("Alternativa")
            CodAlter3 = rst4("Codigo da alternativa")
            rst4.movenext
           end if
          end if
         end if
        %>
                <tr>
                  <td colspan="2"><font class="TextoPadraoAzulEscuro"><strong>
                    <% = Pergunta %>
                    </strong></font></td>
                </tr>
                <tr>
                  <td width="15%"><input type="radio" name="Alternativa" value="<% = CodAlter1 %>"></td>
                  <td width="85%"><font class="TextoPadraoAzulEscuro">
                    <% = Alter1 %>
                    </font></td>
                </tr>
                <tr>
                  <td><input type="radio" name="Alternativa" value="<% = CodAlter2 %>"></td>
                  <td><font class="TextoPadraoAzulEscuro">
                    <% = Alter2 %>
                    </font></td>
                </tr>
                <tr>
                  <td><input type="radio" name="Alternativa" value="<% = CodAlter3 %>"></td>
                  <td><font class="TextoPadraoAzulEscuro">
                    <% = Alter3 %>
                    </font></td>
                </tr>
                <tr>
                  <td colspan="2" align="center"> <input type="submit" name="Submit" value="Votar" class="Botao">
                  </td>
                </tr>
              </table>
            </form>

*** arquivo para conexão com banco de dados

<%
Set vgdb = server.createobject("adodb.connection")
vgdb.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.Mappath("./Dados/BdSite.mdb")
%>

***arquivo grava recado no banco

<%
Dim Nome, SQL, rst, Recado
Nome = trim(Request("Nome"))
Recado = trim(Request("Recado"))
SQL = "Select * From Recados"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 2, 2
rst.addnew
rst("Nome da pessoa") = Nome
rst("Recado") = Recado
rst.update
rst.close
set rst = nothing
Response.Redirect("Default_principal.asp")
%>