Ver Mensaje Individual
  #2 (permalink)  
Antiguo 14/03/2005, 07:49
Avatar de parentesys
parentesys
 
Fecha de Ingreso: octubre-2003
Ubicación: Madrid
Mensajes: 235
Antigüedad: 21 años, 7 meses
Puntos: 0
Aquí te paso un código de ejemplo para crear un archivo html desde ASP...



<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("C:\directorio\archivo.html", True)

a.writeline("<html>")
a.writeline("<head><TITLE>título de mi página</TITLE>")
a.writeline("<link rel='stylesheet' href='../css/estilos.css'>")
a.writeline("</head>")
a.writeline("<body bgcolor='#ffffff'>")
a.writeline("<table border='0' width='600' cellspacing='2' cellpadding='0' align='center'>")
a.writeline("<tr>")
a.writeline("<td>")

sSQL = "SELECT * FROM CONTENIDOS ORDER BY FECHA_PUBLICACION DESC"
set rst = server.createobject("adodb.recordset")
rst.ActiveConnection = objconn
rst.Source= sSQL
rst.CursorType = 3
rst.CursorLocation = 2
rst.LockType = 1
rst.Open()
numreg = rst.RecordCount

while not rst.EOF
a.writeline("<li><b><a href='./pagina.asp?id="& rst.fields("ID") &"&tipo="& rst.fields("TIPO") &"' class='tx-destacado'>"& rst.Fields("TITULO") &"</a></b><font class='textonegro'> Publicado el "& rst.Fields("FECHA_PUBLICACION") &" por <B>"& rst.Fields("AUTOR") &"</B></font></li>")
rst.MoveNext
wend

a.writeline("</td>")
a.writeline("</tr>")
a.writeline("</table>")
a.writeline("</body>")
a.writeline("</html>")

a.Close

%>
__________________
Administrador de :
givemefun.net
givemefun.org