<% 'option explicit 'Response.Expires = 0 'Response.buffer = True 'Response.clear 'Response.expires = -1000 dim strSQL01 dim rsComentario %> <% strSQL01 = "SELECT * FROM `TB_CLIENTE` " SET rsComentario = CreateObject("ADODB.Recordset") rsComentario.CursorLocation = adUseClient rsComentario.CursorType = adOpenStatic rsComentario.Open strSQL01 , Application("CADENA_CON") Response.Write strSQL01 & "
" WHILE NOT rsComentario.EOF %>

ID	NOMBRE	EDAD
<%=rsComentario("CLIE_ID")%>	<%=rsComentario("CLIE_NOMBRE")%>	<%=rsComentario("CLIE_EDAD")%>

<% rsComentario.MoveNext wend rsComentario.Close set rsComentario = Nothing %>