Aqui les dejo la última versión del código como mi obituario de mi paso por el mundo ASP
______________________________
<%
Sub CloseDB()
dbc.Close
Set dbc = Nothing
End Sub
Dim conexion, registros, basedatos
basedatos = Server.MapPath("/databases/prueba.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode = 3 ' adModeReadWrite
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Response.Write basedatos
strSQL = "INSERT INTO datos (Nombre, Telefono, Direccion) "
strSQL = strSQL & "VALUES ('This is the name', 'This is the Telephone', 'This is the address');"
Set rs = conexion.Execute(strSQL)
Set rs = Nothing
Call CloseDB()
%>
________________________________________
También les pongo la base de datos si alguien tiene la curiosidad de verla.
http://www.finred.com.mx/prueba.mdb
Saludos