Foros del Web » Programando para Internet » ASP Clásico »

Fallo en consulta?

 Estas en el tema de Fallo en consulta? en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 21/07/2003, 11:59
 
Fecha de Ingreso: junio-2003
Ubicación: Santiago de Compostela
Mensajes: 603
Antigüedad: 21 años
Puntos: 0
Fallo en consulta?
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&oacute;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&oacute;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>
  #2 (permalink)  
Antiguo 21/07/2003, 12:27
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Hola ciber, depura un poco mas tu código, pon la línea del error a ver de que se trata, pero este error puede darte si no te está llegando la variable con la que intentas comparar el campo para abrir el recordset, verifica que dicha variable no llegue vacía...

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 22/07/2003, 01:35
Avatar de univercity  
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 21 años, 7 meses
Puntos: 0
Perdona pero no entendí nada...
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 20:43.