Hola:
Yo te pongo algo de ejemplo, retocalo un poco y adaptatelo
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
' primero convertimos en variables los datos rescatados del formulario para introducirlo en una base de datos
DIM nropro, fecha,titulopro, beneficios, apenom, direccion, barrio, telefono, email
nropro = numero
fecha = date
titulopro = Request.Form("titulo")
sintesis = Request.Form("sintesis")
beneficios = Request.Form("beneficios")
apenom = Request.Form("apenom")
direccion = Request.Form("direccion")
barrio = Request.Form("barrio")
telefono = Request.Form("telefono")
email = Request.Form("email")
Dim Conexion, Tabla, SQL ' Variables
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset") ' RecordSET en RS
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DIRECTORIO/BASE.mdb") ' Conexión BD
SQL = " INSERT INTO tabla ( nropro, fecha, titulopro, sintesis, beneficios, apenom, direccion, barrio, telefono, email) INTO values ('"nropro"', '"fecha"', '"titulopro"', '"sintesis"', '"beneficios"', '"apenom"', '"direccion"', '"barrio"', '"telefono"', '"email"') " ' SENTENCIA DE INSERCCIÓN
RS.Open SQL, Conn, 1, 2 ' Opertura
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Para lo del numero crea el campo en la Base de Datos, autonumerica y quitala, cuando se inserten ya se ponen el valor consecutivo...
Revisate un manualillo de conexiones a bases de datos y faqs:
www.aspfacil.com www.desarrolloweb.com
Salu2!