intente esto pero no, como que con los RS se hace bolas =S
Código:
<%
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB;Data Source=xxx.xxx.x.xx;" _
& "Initial Catalog=dist;User Id=;Password=;" _
& "Connect Timeout=100;Network Library=dbmssocn;"
querySQL = "Select * from DS_TI_PF where BANG = 1 and Tipo = 'TI'"
Set rs = cnn.Execute(querySQL)
%>
<script language="javascript" type="text/javascript">
function vercontenidoTI(){
document.getElementById("contenidoTI").innerHTML = "<%= "hola"%>";
}
function vercontenidoPF(){
document.getElementById("contenidoPF").innerHTML = "<%=rs("Contenido")%>";
}
</script>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="268">
<tr><td id="borbot">Tips</td></tr>
<tr><td style=" padding-top:20px; height: 150px;">
<% do while not rs.EOF %>
<ul> <li class="doc"><a href="javascript: vercontenidoTI();" target="_self"> <% =rs("Encabezado")%> </a></li></ul>
<%
rs.MoveNext
loop
rs.Close
Set rs = nothing
%>
</td></tr>
<tr><td style=" height:40px; border-bottom: 1px solid #dbdbff; color:#fff;" >.</td></tr>
<% querySQL = "Select * from DS_TI_PF where BANG = 1 and Tipo= 'PF'"
Set rs = cnn.Execute(querySQL) %>
<tr><td id="borbotpf">Preguntas frecuentes</td></tr>
<tr><td style=" padding-top:20px;">
<%do while not rs.EOF %>
<ul> <li class="doc"><a href="javascript: vercontenidoPF();" target="_self"><% =rs("Encabezado")%></a></li> </ul>
</td></tr>
<%
rs.MoveNext
loop
rs.Close
Set rs = nothing
%>
</table>
</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="480">
<tr><td>
<div id="tiplog"><div id="tiptitulo">Datos mas rapidos</div></div>
</td>
</tr>
<tr><td>
<div id="scrolldos"><div class="dentro" id="contenidoTI"></div></div>
</td></tr>
<tr>
<tr><td>
<div id="scrollcuatro"><div class="dentro" id="contenidoPF"></div></div>
</td></tr>
</table>
</td>
</tr>
</table>