Saludos al foro:
A ver si me pueden echar una mano...
Tengo una db con varios campos entre los que se encuentran los siguientes:
descripcion_situacion_hotel (texto) (40 caracteres)
foto_situacion_hotel (texto) (20 caracteres)
foto_situacion_hotel_ancho (texto) (6 caracteres)
foto_situacion_hotel_alto (texto) (6 caracteres)
El problema es el siguiente:
La pagina web: ofertas.asp me envia a la pagina generarofertas.asp. La pagina generarofertas.asp debe lanzar en un open.window a la pagina "ficha_descripcion_hotel" en donde se mostrará el contenido del campo foto_situacion_hotel (en este campo va el nombre de una fotografia), foto_situacion_hotel_alto (alto de la fotografia) y foto_situacion_hotel_ancho.
El caso es que me da este error:
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
Os paso el codigo de las paginas web implicadas para que me podais indicar donde estoy fallando.
Gracias a todos por adelantado
Codigo pagina generartabla.asp
---------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%response.Expires=0%>
<%
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<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 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 claseoferta = '" & Request("claseoferta") & "'"%>
<%Set Ob_RS=Ob_Command.Execute ()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr bgcolor="#e0e0e0">
<td width="6%"> <div align="left"><font color="#003399">Destino</font></div></td>
<td width="4%"> <div align="left"><font color="#003399">Zona</font></div></td>
<td width="6%"><font color="#003399">Situación</font></td>
<td width="15%"> <div align="left"><font color="#003399">Salidas</font></div></td>
<td width="23%"> <div align="left"><font color="#003399">Fecha de Salida</font></div></td>
<td width="20%"> <div align="left"><font color="#003399">Hotel</font></div></td>
<td width="2%"><font color="#003399">Categoría</font></td>
<td width="4%"><div align="left"></div></td>
<td width="8%"> <div align="left"><font color="#003399">Regimen</font></div></td>
<td width="12%"> <div align="left"><font color="#003399">Precio</font></div></td>
</tr>
<% do until ob_RS.eof %>
<tr align="left" valign="top" bgcolor="#ebf3eb">
<td> <div align="left"><%=Ob_RS("destino")%></div></td>
<td> <div align="left"><%=Ob_RS("Zona")%></div></td>
<td> <%if Ob_RS("descripcion_situacion_hotel") <> "" then%> <a href="ofertas.asp"
onClick="AbrirVentana('ficha_descripcion_hotel.asp ?foto_situacion_hotel=<%=Ob_RS("foto_situacion_hot el")%>', '', 'top=112, left=145, width=<%=Ob_RS("foto_situacion_hotel_ancho")%>, height=<%=Ob_RS("foto_situacion_hotel_alto")%>, resizable=0')" shape="rect" >
<img src="images/iconoinformacion.gif" alt="Más información" width="22" height="22"></a>
</td>
<%else%>
<img src="images/iconoinformacion.gif" alt="Más información" width="22" height="22"></a>
<%end if %>
<td> <div align="left"><%=Ob_RS("salidas")%></div></td>
<td> <div align="left"><%=Ob_RS("fechasalida")%></div></td>
<td> <div align="left">
<p><%=Ob_RS("hotelnombre")%> </div></td>
<td><%=Ob_RS("hotelcategoria")%></td>
<td><a href="ofertas.asp"
onClick="AbrirVentana('ficha_hotel.asp?id=<%=Ob_RS ("id")%>', '', 'top=112, left=145, width=643, height=411, resizable=0')" shape="rect" >
<img src="images/iconohotel.gif" alt="Información sobre el hotel" width="22" height="22"></a>
<td> <div align="left"><%=Ob_RS("hotelregimen")%></div></td>
<td width="17%"> <div align="left"><%=Ob_RS("hotelprecio")%> €</div></td>
</tr>
<% Ob_RS.movenext
loop
Ob_RS.close
Ob_Conn.close
%>
</table>
</body>
</html>
-------
Codigo ficha_descripcion_hotel.asp
------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<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 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 claseoferta = '" & Request("claseoferta") & "'"%>
Set Ob_RS=Ob_Command.Execute ()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr bgcolor="#e0e0e0">
<td width="6%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Destino</font></div></td>
<td width="4%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Zona</font></div></td>
<td width="6%"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Situación</font></td>
<td width="15%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Salidas</font></div></td>
<td width="23%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Fecha
de Salida</font></div></td>
<td width="20%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Hotel</font></div></td>
<td width="2%"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Categoría</font></td>
<td width="4%"><div align="left"><font size="2"><font size="1"><font size="1"><font face="Arial, Helvetica, sans-serif"></font></font></font></font></div></td>
<td width="8%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Regimen</font></div></td>
<td width="12%"> <div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif">Precio</font></div></td>
</tr>
<% do until ob_RS.eof %>
<tr align="left" valign="top" bgcolor="#ebf3eb">
<td> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("destino")%></font></div></td>
<td> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("Zona")%></font></div></td>
<td>
<%if Ob_RS("descripcion_situacion_hotel") <> "" then%>
<font size="1" face="Arial, Helvetica, sans-serif"><a href="ofertas.asp"
onClick="AbrirVentana('ficha_descripcion_hotel.asp ?foto_situacion_hotel=<%=Ob_RS("foto_situacion_hot el")%>', '', 'top=112, left=145, width=<%=Ob_RS("foto_situacion_hotel_ancho")%>, height=<%=Ob_RS("foto_situacion_hotel_alto")%>, resizable=0')" shape="rect" >
<img src="images/iconoinformacion.gif" alt="Más información" width="22" height="22"></a>
</font> </td>
<%else%>
<img src="images/iconoinformacion.gif" alt="Más información" width="22" height="22"></a>
<%end if %>
<td> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("salidas")%></font></div></td>
<td> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("fechasalida")%></font></div></td>
<td> <div align="left">
<p><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelnombre")%> </font></div></td>
<td><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelcategoria")%></font></td>
<td><font size="1" face="Arial, Helvetica, sans-serif"><a href="ofertas.asp"
onClick="AbrirVentana('ficha_hotel.asp?id=<%=Ob_RS ("id")%>', '', 'top=112, left=145, width=643, height=411, resizable=0')" shape="rect" >
<img src="images/iconohotel.gif" alt="Información sobre el hotel" width="22" height="22"></a>
</font>
<td> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelregimen")%></font></div></td>
<td width="17%"> <div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=Ob_RS("hotelprecio")%> €</font></div></td>
</tr>
<% Ob_RS.movenext
loop
Ob_RS.close
Ob_Conn.close
%>
</table>
</body>
</html>