PRUEBALO EN VEZ DE CON UN "DO UNTIL" CON UN "
WHILE NOT ob_rs.eof "
CODIGO:
<body>
<!--#include file="variables.asp" -->
<p>
<% set ob_rs=ob_conn.execute(" select id_not, tit_not from tb_noticias where status = true") %>
</p>
<%
totalregistros=347
registrospagina=25
numeropaginas=totalregistros/registrospagina
WHILE NOT ob_rs.eof
for i=1 to numeropaginas
for j=0 to 25
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "\convertir\noticias\listnoticia"&i&".htm"
set confile = createObject("scripting.filesystemobject")
set fich = confile.CreateTextFile(archivo)
fich.write var1
fich.write ("<div class='titulo1'>Lista de Noticias<br>"&i&"</div>")
fich.write("<P></P>" )
fich.write "<table width='500' border='0' align='center' cellpadding='5' cellspacing='1' class='borde'> <tr><td class='tz'>Lista de Obras </td></tr>"
fich.write "<tr><td class='linkitems'>"
fich.write "<a href='noticia"& ob_rs("id_not") &".htm' class='linkitems'>"& ob_rs("tit_not") &"</a></td></tr>"
fich.write "</table>"
fich.write var3
fich.close()
next
response.write "archivo listnoticia"&i&".htm ---> CREADO <br>"
ob_rs.movenext
next
wend
ob_rs.close
ob_conn.close %>
