Hoal fijense que le hice una modificacion en mi script que aparentemente habia escrito incorrecto en una linea del script pero a un asi sigo teniendo el mismo error les dejo toda la informacion haber si alguien me puede ayudar por favorrrrrrr.
Estoy tratando de hacer un ejemplos de una base de datos para agregarle un registro y al momento de agregar el registro me marca el error Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Server'
/insertar.asp, line 18
En este ejemplo utilizo tres archivos que son insertar,html, insertar.asp y lectura.asp pero la verdad no se por donde solucionar ese error, les dejo mi codigo de los 3 archivos a ver si me pueden ayudar.
Codigo Insertar.html
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Insertar.html</title>
</head>
<body>
<div align="center">
<h1>Insertar un registro</h1>
<form method="POST" action="insertar.asp">
Nombre
<input type="text" name="nombre">
Telefono
<input type="text" name="telefono">
<p>
<input type="submit" value="insertar">
</p>
</form>
</div>
</body>
</html>
Codigo Insertar.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Pagina nueva 1</title>
</head>
<body>
<%
'Recogemos los valores del formulario
nombre = Request.Form("nombre")
telefono = Request.Form("telefono")
'Iniciamos y arimos la conexion
Set conexion = Server.CreateObject("ADODB.Connection")
driv ="driver={Microsoft Access Driver(*.mdb)};" & _
"dbq=" & Server.MapPath(Mibase.mdb)
conexion.Open driv
'Iniciamos y cremaos los registros
Set registros = Server.CreateObject("ADODB.Recordset")
sql = "Insert Into Clientes (nombre,telefono) values ('" & nombre & "','" & telefono & "')"
registros.Open, sql, conexion, adOpenDynamic, adLockOptimistic
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div>
<%
conexion.Close
Set conexion = Nothing
registros.Close
Set registros = Nothing
%>
</body>
</html>
Codigo Lectura.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Registro Insertado</title>
</head>
<body>
<h1>Registro Insertado Correctamente</h1>
</body>
</html>