Saludos al foro:
Resulta que esta pagina web me funciona bien en local pero al subirla a Internet no me da ningún error, solo me muestra la cabecera de la tabla pero sin ningún dato dentro.
He revisado el codigo y no encuentro lo que pasa.
Pueden ustedes ayudarme.
les envio el codigo de: generartabla_ultima_hora.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%response.Expires=0%>
<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>
<SCRIPT LANGUAGE="JavaScript">
<!--
function AbrirVentana (theURL, winName, features)
{
window.open (theURL, winName, features);
}
-->
</SCRIPT>
</head>
<body background="images/frame_izqda_con_opacidad.jpg" leftmargin="0" topmargin="25" marginwidth="0" marginheight="0">
<!--Incluimos el fichero de constantes-->
<p>
<!--#INCLUDE file="ADOVBS.inc"-->
<%
'Para conexión a dsn arsys con ACCESS
Set Ob_Conn= Server.CreateObject("ADODB.Connection")
Set Ob_Command= Server.CreateObject("ADODB.Command")
Ob_Conn.open "DSN=clubviajesoferta.com.access"
Ob_Command.ActiveConnection=Ob_Conn
Ob_Command.CommandType=adCmdText%>
<%Ob_Command.CommandText= "SELECT * FROM ofertas WHERE fotoultimahora = '" & Request("fotoultimahora") & "'"%>
<%Set Ob_RS=Ob_Command.Execute ()
'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"
' Abrimos la tabla, declaramos que conexión esta abierta, tipo de cursor, tipo de cerrojo, y opciones
'Ob_Command.ActiveConnection=Ob_Conn
'Ob_Command.CommandType=adCmdText%>
<%'Ob_Command.CommandText= "SELECT * FROM ofertas WHERE fotoultimahora = '" & Request("fotoultimahora") & "'"%>
<%Set Ob_RS=Ob_Command.Execute ()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr bgcolor="#e0e0e0">
<td width="50%"><div align="left"><font size="2"><font size="1">Descripción</font></font></div></td>
<td width="50%"><font size="2"><font size="1"><font face="Arial, Helvetica, sans-serif">Oferta</font></font></font></td>
</tr>
<% do until ob_RS.eof %>
<tr align="left" valign="top" bgcolor="#ebf3eb">
<td><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("fotoultimahora_caratula")%></font>
<td><font size="1" face="Arial, Helvetica, sans-serif"><a href="generartabla_ultima_hora.asp"
onClick="AbrirVentana('ficha_ultima_hora.asp?clase oferta=<%=Ob_RS("claseoferta")%>', '', 'top=112, left=165, width=<%=Ob_RS("fotoultimahoraancho")%>, height=<%=Ob_RS("fotoultimahoraalto")%>, resizable=0')" shape="rect" ><img src="images/<%=Ob_RS("fotoultimahora")%>" alt="Información de última hora" width="22" height="22" border="0"></a></font></tr>
<% Ob_RS.movenext
loop
Ob_RS.close
Ob_Conn.close
%>
</table>
</body>
</html>
Gracias.
