Amigo, te dejo este código, es sencillo... pero para empezar con esto, te servira..
solo tienes que creas una BD con una tabla llamada "EjemploDB", con los siguientes campos ( texto ó memo de preferencia ): nombre, apellidos, direccion y telefono ( de preferencia, nunca uses acentos ni caracteres especiales ;) )
y listo.. correlo y debe de funcionar...
<HTML>
<TITLE> Insertar un registro </TITLE>
<BODY>
<!-- #INCLUDE FILE="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.AddNew
Ob_RS ("DNI")= CLng (Request.Form("DNI"))
Ob_RS ("Nombre")= Request.Form("NOMBRE")
Ob_RS ("Apellidos")= Request.Form("APELLIDOS")
Ob_RS ("Dirección") = Request.Form("DIRECCION")
Ob_RS ("Teléfono")= Request.Form("TELEFONO")
Ob_RS.Update
Ob_RS.Close
Ob_Conn.Close
Response.Write "<H3>" & "Datos insertados" & "<H3>"
ELSE %>
<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD2.asp">
DNI: <INPUT NAME="DNI" SIZE=10> <BR>
NOMBRE: <INPUT NAME="Nombre" SIZE=15> <BR>
APELLIDOS: <INPUT NAME="Apellidos" SIZE=30> <BR>
DIRECCION: <INPUT NAME="Direccion" SIZE=30> <BR>
TELEFONO: <INPUT NAME="Telefono" SIZE=15> <BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>
Ahorita en otro mensaje te dejare el codigo para visualisarlo y ademas, un archivo ( ADOVBS.inc ) que debes incluir en la carpeta donde estes corriendo tus programas..
Saludos.. deja te pongo el otro codigo..
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]