Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/07/2003, 06:13
ciberpata
 
Fecha de Ingreso: junio-2003
Ubicación: Santiago de Compostela
Mensajes: 603
Antigüedad: 21 años, 9 meses
Puntos: 0
No devuelve contenido de campos de db

Estimados listeros:
No se por qué no me funciona la página. No me da ningún error, solo me muestra la cabecera de la tabla, pero no me muestra el contenido de los campos.
La tabla tiene varios registros y el Odbc está correcto.
Además de eso... ¿podríais decirme cuales son las modificaciones que tengo que hacer para que me funcione además de en local en mi proveedor?.

Y ante todo gracias porque no hubiese sido capaz de llegar hasta aquí sin vuestra ayuda. (Y no es peloteo).

Aquí os mando el código fuente:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body background="images/frame_izqda_con_opacidad.jpg" leftmargin="0" topmargin="25" marginwidth="0" marginheight="0">
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="ADOVBS.inc"-->
<%
'Para conexión a dsn con ACCESS
'set Ob_Conn= Server.CreateObject("ADODB.Connection")
'Ob_Conn.ConnectionString = "DSN=clubviajesoferta.com.access"
'Ob_Conn.open
'Set Ob_RS=Server.CreateObject("ADODB.Recordset")
'Ob_RS.activeconnection=Ob_Conn
'Ob_RS.source="ofertas"
'Ob_RS.Locktype = adLockOptimistic
'Ob_RS.CursorType = adOpenDinamic
'Ob_RS.open
'Set Ob_RS=Ob_Conn.execute ("SELECT * FROM ofertas")
'Termina aquí la conexion a dsn arsys con ACCESS

'Para conexion a ODBC local
Set Ob_Conn = Server.CreateObject("ADODB.Connection")
Set Ob_Command= Server.CreateObject("ADODB.Command")
Ob_Conn.open "cvo_odbc"
Ob_Command.ActiveConnection=Ob_Conn
Ob_Command.CommandType=adCmdText
Ob_Command.CommandText= "SELECT * FROM ofertas"
Set Ob_RS=Ob_Command.Execute ()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#e0e0e0">
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Destino</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Pais</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Zona</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Salidas</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Fecha
de Salida</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Hotel</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Precio</font></div></td>
<td> <div align="center"><font color="#003399" face="Arial, Helvetica, sans-serif">Regimen</font></div></td>
</tr>

<% do until not ob_RS.eof %>
<tr bgcolor="#ebf3eb">
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("destino")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("pais")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("Zona")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("salidas")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("fechasalida")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelnombre")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelprecio")%></font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelmayorista")%></font></td>
</tr>
<% Ob_RS.movenext
loop
Ob_RS.close
Ob_Conn.close
%>
</table>
</body>
</html>