AYUDA para un novato :-))
Publicado por perropeligroso (3 intervenciones) el 11/04/2001 22:48:05
Ayuda!!
Tengo la base de datos y quiero ver los resultados pero me da este error al abrirla.... (adjunto el codigo fuente) Salu2.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/correo.asp, line 19
<%@ Language="VBScript" %>
<html>
<head>
<title>Listado de la Base de Datos</title>
</head>
<body>
<big><big><p>Listado de Cuentas de Correo</big></big> <br><br></p>
<div align="center"><center>
<table border="3" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="33%"><big>Nombre</big></td>
<td width="33%"><big>Apellido</big></td>
<td width="33%"><big>Email</big></td>
</tr>
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Correo"
Tabla.Open "Tabla1",Conexion
While Not Tabla.EOF
%>
<tr>
<td width="33%"><%=Tabla.Fields("Nombre")%></td>
<td width="33%"><%=Tabla.Fields("Apellido")%></td>
<td width="33%"><ahref="mailto:<%=Tabla.Fields("Email")%>"><%=Tabla.Fields("Email")%></a></td>
</tr>
<%
Tabla.MoveNext
Wend
%>
</table>
</center></div>
Tengo la base de datos y quiero ver los resultados pero me da este error al abrirla.... (adjunto el codigo fuente) Salu2.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/correo.asp, line 19
<%@ Language="VBScript" %>
<html>
<head>
<title>Listado de la Base de Datos</title>
</head>
<body>
<big><big><p>Listado de Cuentas de Correo</big></big> <br><br></p>
<div align="center"><center>
<table border="3" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="33%"><big>Nombre</big></td>
<td width="33%"><big>Apellido</big></td>
<td width="33%"><big>Email</big></td>
</tr>
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Correo"
Tabla.Open "Tabla1",Conexion
While Not Tabla.EOF
%>
<tr>
<td width="33%"><%=Tabla.Fields("Nombre")%></td>
<td width="33%"><%=Tabla.Fields("Apellido")%></td>
<td width="33%"><ahref="mailto:<%=Tabla.Fields("Email")%>"><%=Tabla.Fields("Email")%></a></td>
</tr>
<%
Tabla.MoveNext
Wend
%>
</table>
</center></div>
Valora esta pregunta
0