Saludos:
Lo que tengo que resolver es:
Tengo dos páginas web, en la primera solicito los destinos disponibles para viajar, por ejemplo: europa, africa, balnearios, etc...
En cuanto el usuario hace click en un destino, se pasa a la segunda página, donde solo deben aparecer los registros cuyo destino sea el anteriormente pulsado. Es decir si un usuario pulso sobre europa solo deben aparecer los registros de europa.
Aquí es donde está el problema si el valor del campo verenabierto es igual a 1 entonces debe ser linkado a una página y si es distinto de uno debe ser linkado a otra.
El caso es que nunca vale uno.
La base de datos está hecha en ACCESS y el campo verenabierto es de tipo texto de un caracter de longitud
Ya he probado tambien con campos de tipo numerico y si/no y siempre me pasa lo mismo.
Les paso el código y si pueden diganme donde está el problema o indiquenme una pista.
Señalo en rojo las líneas donde creo debe estar el error.
Gracias
Código:
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Turofertas.com</title>
<SCRIPT LANGUAGE="JavaScript">
<!--
function AbrirVentana (theURL, winName, features)
{
window.open (theURL, winName, features);
return false
}
-->
</SCRIPT>
</head>
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="../../adovbs.asp"-->
<body>
<%
nombreusuario=request.querystring("nombreusuario")
destinooferta=request.QueryString("destinooferta")
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=clubviajesoferta.com.turofertas"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
Command.CommandText="Select * from ofertasmayoristas where (tipo='MINORISTA' AND destinooferta='" & destinooferta & "') or (tipo='TUROFERTAS' AND verenabierto='1' AND destinooferta='" & destinooferta & "')"
Set RS=Command.Execute ()
if rs("verenabierto")="1" then%>
<table width="100%" border="0" align="left" cellpadding="1" cellspacing="0">
<tr valign="top" bgcolor="#FFCC00">
<td width="63">
<div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>REF.</strong></font></div></td>
<td width="350"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>DENOMINACIÓN</strong></font></div></td>
<td width="71"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>PUBLICACIÓN</strong></font></div></td>
<td width="58"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong> VALIDEZ</strong> </font></div></td>
<td width="33"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>VER</strong> </font></div></td>
<td width="33"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>VERENABIERTO</strong></font></td>
</tr>
<% do until RS.eof
if colorfila=0 then
color="#EEF0F7"
colorfila=1
else
color="FFFFFF"
colorfila=0
end if %>
<tr align="left" valign="top" bgcolor="<%=color%>">
<td>
<div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("referenciaoferta")%></font></div></td>
<td><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("denominacionoferta")%></font></div></td>
<td><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("fechapublicacionoferta")%></font></div></td>
<td width="58"><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("fechavalidezoferta")%></font></div></td>
<td width="33">
<div align="left"><a href="ofertasminoristas.asp"
onClick="return AbrirVentana('verofertascambiar.asp?referenciaoferta=<%=RS("referenciaoferta")%>&nombreusuario=<%=nombreusuario%>', '', 'scrollbars=yes, top=120, left=120, width=<%=RS("imagenofertaancho")+20%>, height=402>, resizable=0')" shape="rect" >
<img src="../../images/iconos/informacion.gif" alt="Ver la oferta" width="16" height="16" border="0"></a></div></td>
<td width="33"><%=RS("verenabierto")%></td>
</tr>
<%
RS.movenext
loop
RS.close
Conn.close
%>
</table>
<p>
<%else%>
<br>
</p>
<table width="100%" border="0" align="left" cellpadding="1" cellspacing="0">
<tr valign="top" bgcolor="#FFCC00">
<td width="63">
<div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>REF.</strong></font></div></td>
<td width="350"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>DENOMINACIÓN</strong></font></div></td>
<td width="71"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>PUBLICACIÓN</strong></font></div></td>
<td width="58"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong> VALIDEZ</strong> </font></div></td>
<td width="33"><div align="left"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>VER</strong> </font></div></td>
<td width="33"><font color="#003399" size="1" face="Arial, Helvetica, sans-serif"><strong>VERENABIERTO</strong></font></td>
</tr>
<% do until RS.eof
if colorfila=0 then
color="#EEF0F7"
colorfila=1
else
color="FFFFFF"
colorfila=0
end if %>
<tr align="left" valign="top" bgcolor="<%=color%>">
<td>
<div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("referenciaoferta")%></font></div></td>
<td><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("denominacionoferta")%></font></div></td>
<td><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("fechapublicacionoferta")%></font></div></td>
<td width="58"><div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=RS("fechavalidezoferta")%></font></div></td>
<td width="33">
<div align="left"><a href="ofertasminoristas.asp"
onClick="return AbrirVentana('verofertasminoristas.asp?referenciaoferta=<%=RS("referenciaoferta")%>&nombreusuario=<%=nombreusuario%>', '', 'scrollbars=yes, top=120, left=120, width=<%=RS("imagenofertaancho")+20%>, height=402>, resizable=0')" shape="rect" >
<img src="../../images/iconos/informacion.gif" alt="Ver la oferta" width="16" height="16" border="0"></a></div></td>
<td width="33"><%=RS("verenabierto")%></td>
</tr>
<%
RS.movenext
loop
RS.close
Conn.close
%>
</table>
<%end if%>
</body>
</html>