Como Hacer un HTML a partir de una pagina ASP? es posible....

cokete · #1 (**permalink**) 14/03/2005, 04:13

Necesito hacer un proceso que cree una pagina HTML a raiz de los datos que tengo en una pagina ASP, es posible hacer esto?
En una pagina ASp tengo los datos de los registros de una tabla, y necesito crear una pagina en HTML la cual contenga esta información, para posteriormente mandar esta pagina html por email.... Todo esto claro con un procedimiento que se ejecute en el servidor.

Si a alguien se le ocurre algo le agradeceria me ayudara.
Muchas gracias.

parentesys · #2 (**permalink**) 14/03/2005, 07:49

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

%>