Tengo este codigo, creo que el problema se produce por una consulta demasiado larga, he intentado dividirla añadiendo sql = sql & "SELECT.... sin embargo no funciona ¿como lo puedo resolver?. Gracias
<%
Option Explicit
Dim sql, rsIdentifs, username, opcion
username = Request.Cookies("username")
opcion = Request.QueryString("opcion")
%>
<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>
<%
sql = "SELECT 'tabla1' as Listado , codigo FROM tabla1 WHERE tabla1.username = '" & username & "' AND TABLA1.OPCION = 1 UNION SELECT 'tabla2' as Listado , codigo FROM tabla2 WHERE tabla2.username = '" & username & "' AND TABLA2.OPCION = 1 UNION SELECT 'tabla3' as Listado , codigo FROM tabla3 WHERE tabla3.username = '" & username & "' AND TABLA3.OPCION = 1 UNION SELECT 'tabla4' as Listado , codigo FROM tabla4 WHERE tabla4.username = '" & username & "' AND TABLA1.OPCION = 1 UNION SELECT 'tabla5' as Listado , codigo FROM tabla5 WHERE tabla5.username = '" & username & "' AND TABLA2.OPCION = 1"
Set rsIdentifs = Server.CreateObject("ADODB.Recordset")
rsIdentifs.Open sql, conn, 3, 3
%>
<%if not rsIdentifs.EOF then%>
<!-- Identif users -->
<table cellpadding=4 cellspacing=1 border=0 bgcolor="#000000">
<tr>
<th width="272"><font face="arial,helvetica" size="1" color="#FFFFFF">Username</font></th>
</tr>
<%rsIdentifs.Movefirst
do until rsIdentifs.EOF%>
<tr bgcolor="#F3F3F3">
<td><font face="arial,helvetica" size="2"><%=rsIdentifs("username")%></font></td>
</tr>
<%rsIdentifs.Movenext
loop%>
</table>
<html>
<head>
<title>User List</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
</body>
</html>
<%
conn.close
set conn = nothing
%>