Hola amigos fijense que 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.Opne 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>