
14/03/2005, 07:49
|
 | | | 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
%> |