hola muchas gracias por todo lo que haz hecho pero sabes aun no puedo hacer funcionar el codigo que haz hecho lo podrias poner tu dentro de este codigo para guiarme ya que no me resulta no se porque...
<!--#include file="inc_top.asp"-->
<%
%>
<!--#include file="protected.asp"-->
<!--#include file="dbconn.asp"-->
<%
Dim sql,rsUser
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
%>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:15px;
top:108px;
width:155px;
height:394px;
background-color:#ECE9D8;
layer-background-color:#ECE9D8;
border:1px none #000000;
z-index:1;
}
.Estilo4 {
font-size: 14px;
font-weight: bold;
}
.Estilo5 {font-size: 14px}
-->
</style>
<body bgcolor="">
</span></td>
<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009"><p><font size="2"><b><%=rsUser("instalaciones1")%></b></font><br>
<font size="2"><b><%=rsUser("instalaciones2")%><br>
</b></font><font size="2"><b><%=rsUser("instalaciones3")%><br>
</b></font><font size="2"><b><%=rsUser("instalaciones4")%><br>
<%
rsUser.close
set rsUser = nothing
%>
<%
dbconn.close
set dbconn = nothing
%>
tu codigo
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
if Not rsuser.Eof then
......
<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009">
<%
For i=0 To rs.Fields.Count-1
if LEFT(rs.Fields(i).name, 13) = "instalaciones" Then
if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
</b></font><font size="2"><b><%=rs.Fields(i).value%><br>
<%
End If
End if
Next
podrias poner tu codigo en el mio para saber donde es...