Guías y Manuales

<% 

' Coneccion a la base
StrConnect = "Driver={Microsoft Access Driver (*.mdb)}; 
DBQ=C:domainsdominio.comdbAnuncios.mdb"
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConnect

' Establesco el recordset (conjuntos de registros de una tabla)
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "AnunciosG", strConnect,2,3

'agrego un registro
objRec.AddNew
objRec("Anuncio") = "prueba 22/05"
objRec("email") = "prueba prueba 22/05"
objRec("telefono") = 11111
objRec("movil") = 11112
objRec("fecha") = 11111


objRec.Update



' Imprimo todos los registros de la tabla
While NOT objRec.EOF
Response.Write objRec("id") & ", "
Response.Write objRec("Anuncio") & ", "
Response.Write objRec("email") & ", "
Response.Write objRec("telefono") & "
"
objRec.MoveNext
Wend



%> 
REFERENCIAS CODIGO:

* Debe reemplazar la cadena dominio.com por su dominio

* Debe reemplazar Anuncios.mdb por el nombre de su base de datos

* anuncio, email, telefono, movil, fecha son campos de la tabla