Conexion a base de datos

[malex6]

Como dice maestro no se cual es tu error
pero me llama la atencion que en tu inicio marcas el lenguaje como javascripts (JS)cuando debieras colocar
<%@ LANGUAGE="VBSCRIPT" %>
bueno para tratar de ayudarte te recomiendo este codigo:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("ejemplobd.mdb"))
'aqui si quieres hacerlo con DNS solo reemplaza lo anterior a esto:
cnn.open "ejemplobd"

sqltext = "SELECT * FROM TuTABLA"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim nombre, apellido, direccion, fecha, telefono
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
direccion = Request.Form("direccion")
fecha = Request.Form("fecha")
telefono = Request.Form("telefono")


if nombre = "" or apellido = "" or direccion = "" or telefono = "" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("nombre") = nombre
rst("apellido") = apellido
rst("direccion") = direccion
rst("telefono") = telefono
rst("fecha") = fecha

rst.update

'Terminamos e imprimimos un mensaje
Response.Write "El registro se ha ingresado con exito"
%>

Nota: el formulario USA EL MISMO QUE TIENES.