Hola, quisiera saber por que no puedo insertar un registro en una base de datos de Acces en internet, (la base se llama "Directorio" y tengo una tabla llamada "Amigos" con cinco campos: Cédula, Nombre, Apellido, Dirección, Teléfono) mientras que en mi equipo si funciona cuando utilizo un servidor local en Dreamweaver, las páginas que utilizo son las siguientes:
pagina4.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>ingresar datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p align="center"><strong>DIRECTORIO PERSONAL </strong></p>
<form method="post" action="pagina8.asp" >
<table bgcolor="#FFFFCC">
<tr>
<td><strong><font color="#0000CC">Cédula:</font></strong></td>
<td><input type="text" name="CEDULA"></td>
</tr>
<tr>
<td><strong><font color="#0000CC">Nombre:</font></strong></td>
<td><input type="text" name="NOMBRE"></td>
</tr>
<tr>
<td><strong><font color="#0000CC">Apellido:</font></strong></td>
<td><input type="text" name="APELLIDO"></td>
</tr>
<tr>
<td><strong><font color="#0000CC">Dirección:</font></strong></td>
<td><input type="text" name="DIRECCION"></td>
</tr>
<tr>
<td><strong><font color="#0000CC">Teléfono:</font></strong></td>
<td><input type="text" name="TELEFONO"></td>
</tr>
</table>
<input type="submit" value="Agregar" name="Enviar">
</form>
</body>
</html>
pagina8.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<script language="VBScript" runat="server">
Dim conexion,comando,SQL,Ced,Nom,Ape,Dire,Tele
set Conexion=Server.CreateObject("ADODB.Connection") 'Crear el objeto conexión
Conexion.Provider="Microsoft.Jet.OLEDB.4.0" 'Definir el tipo de proveedor. En este caso una BD ACCESS
Conexion.Open Server.MapPath("Directorio.mdb") 'Abrir la conexión
Ced=Request.Form("CEDULA")
Nom=Request.Form("NOMBRE")
Ape=Request.Form("APELLIDO")
Dire=Request.Form("DIRECCION")
Tele=Request.Form("TELEFONO")
SQL="INSERT INTO Amigos(Cédula,Nombre,Apellido,Dirección,Teléfono) values ('" & Ced & "','" & Nom & "','" & Ape & "','" & Dire & "','" & Tele & "')"
Set comando=CreateObject("ADODB.Command")
comando.CommandText=SQL
comando.ActiveConnection=conexion
comando.Execute
Response.Redirect("pagina9.asp")
</script>
</body>
</html>
pagina9.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<script language="VBScript" runat="server">
Dim conexion
Dim registros
Dim basedatos
Dim SQL
Set conexion=CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Directorio.mdb")
SQL= "SELECT Cédula,Nombre,Apellido,Dirección,Teléfono FROM Amigos ORDER BY Nombre"
Set registros=CreateObject("ADODB.Recordset")
registros.ActiveConnection=conexion
registros.Open SQL
Response.Write "<table border=3 align=center bgcolor=#CCCCCC>"
Response.Write"<tr>"
Response.Write "<th>Cédula</th>"
Response.Write "<th>Nombre</th>"
Response.Write "<th>Apellido</th>"
Response.Write "<th>Dirección</th>"
Response.Write "<th>Teléfono</th>"
Response.Write "</tr>"
While Not registros.EOF
Response.Write"<tr>"
Response.Write "<td align=center>"®istros("Cédula")&"</td>"
Response.Write "<td align=center>"®istros("Nombre")&"</td>"
Response.Write "<td align=center>"®istros("Apellido")&"</td>"
Response.Write "<td align=center>"®istros("Dirección")&"</td>"
Response.Write "<td align=center>"®istros("Teléfono")&"</td>"
Response.Write "</tr>"
registros.MoveNext
Wend
Response.Write "</table>"
conexion.close
</script>
</body>
</html>
Muchas gracias y un prospero año nuevo
