Uhm... el otro día estuve enredando ayudada por el técnico pero seguimos sin saber nada, las tablas de la BD siguen igual, actualmente el código está asi:
Código:
<%@ language="JScript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<!-- Hay que cambiar esto por el diseño de la propia página -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../Intranet/web/intranet.css" rel="stylesheet" type="text/css">
<link href="../Intranet/web/scroll.css" rel="stylesheet" type="text/css">
</head>
<body>
<!-- #INCLUDE file="ADOJAVAS.inc" -->
<%
cone=Server.CreateObject("ADODB.Connection");
cone.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("portaljoven.mdb"));
rstIntranet=new ActiveXObject("ADODB.RecordSet");
intra2=new ActiveXObject("ADODB.RecordSet");
intra3=new ActiveXObject("ADODB.RecordSet");
sentencia="Select * from destacados order by id_destacado desc";
rstIntranet.Open(sentencia,cone,adOpenStatic,adCmdTable);
rstIntranet.movelast();
rstIntranet.movefirst();
%>
<table border=0>
<%
contador=0;
while (!rstIntranet.eof && contador<=4){
%><tr>
<%
var varmax;
intra2=new ActiveXObject("ADODB.RecordSet");
intra3=new ActiveXObject("ADODB.RecordSet");
varmax="Select max(id_destacado) from destacados";
intra2.Open(varmax,cone,adOpenStatic,adCmdTable);
vartabla="Select tipo_nombre from tipos where id_tipo=(select destacados_tipo from destacados where id_destacado='"+ varmax +"')";
intra3.Open(vartabla,cone,adOpenStatic,adCmdTable);
%>
<script language=VBScript runat=server>
Select Case vartabla
case "comics":
Response.Write("hola")
case else:
Response.Write("adios")
End Select
</script>
</tr>
<%rstIntranet.Movenext();
contador=contador + 1;
}
%>
</table>
<%rstIntranet.close();
cone.close();
intra2.close();
intra3.close();%>
</body>
</html>
Está preparado para que tenga que salir "hola" por pantalla.
El error es el siguiente:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/portal_joven/listado_destacados.asp, línea 43
Linea 43:intra3.Open(vartabla,cone,adOpenStatic,adCmdTab le);
"donde id_destacado es de tipo entero y var_max es cadena" esto me respondieron,pero según lo que sé yo, max(id) mostraría el maximo valor numérico de la id, no?
Edito:
He puesto este código y he omitido la segunda sentencia
Código:
if(isNaN(varmax)){
Response.Write("No es numero")
}else{
Response.Write("Numero")
}
Resulta que no es número, si alguien tiene idea de cómo lo podria hacer... ?
Y creo que tampoco la segunda variable esta bien, pero de momento me interesa lo del número...
Por cierto, tengo alguna manera de visualizar el contenido de una variable en JScript? Gracias