Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/04/2008, 05:20
Avatar de plantala
plantala
 
Fecha de Ingreso: abril-2008
Ubicación: Jamaica
Mensajes: 176
Antigüedad: 16 años, 8 meses
Puntos: 1
Re: Error Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

Se me olvidava, aqui dejo el codigo de la pagina.
----------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Inaug.asp" -->
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_Inaug_STRING
Recordset3.Source = "SELECT * FROM referencia ORDER BY Nombre ASC"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
<style type="text/css">
<!--
.Estilo1 {
color: #0000CC;
font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="400" border="1" align="center">
<tr>
<td><div align="center"><%=(Recordset3.Fields.Item("Nombre" ).Value)%></div></td>
</tr>
</table>
<table width="400" border="0" align="center">
<tr>
<td><span class="Estilo1">Descripci&oacute;n:</span></td>
</tr>
<tr>
<td><%=(Recordset3.Fields.Item("Descripcion").Valu e)%></td>
</tr>
</table>
<table width="400" border="0" align="center">
<tr>
<td><span class="Estilo1">Recubrimientos disponibles :</span></td>
</tr>
<tr>
<td><%=(Recordset3.Fields.Item("Recubrimiento").Va lue)%></td>
</tr>
</table>
<table width="400" border="0" align="center">
<tr>
<td><span class="Estilo1">Presentaci&oacute;n:</span></td>
</tr>
<tr>
<td><%=(Recordset3.Fields.Item("Presentacion").Val ue)%></td>
</tr>
</table>
<p>&nbsp;</p>
<table width="400" border="1" align="center">
<tr>
<td><%=(Recordset3.Fields.Item("Imagen").Value)% ></td>
</tr>
</table>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
</body>
</html>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>