Manejar documento word (.doc)

[Yifly]

Hola a todos:

Tengo una duda, se puede manejar un documento excel desde asp, con el objecto recorset y asi se puede desplegar en pantalla. Entonces, como se puede manejar un documento word de no mas de una hoja, para luego desplegarlo en pantalla.

Espero me entiendan, lo que pasa que necesito hacer una pagina dinamica y existe una informacion (texto) que es muy larga y no lo he guardado en la base de datos.


Chaolin

[Alert]

<%
Dim nombreFichero, objFSO, lineas, i, obj


nombreFichero=Server.MapPath("MiFichero") ' Archivo a Utilizar
'########### ACTUALIZAR ############
Set objFSO=Server.CreateObject("Scripting.FileSystemOb ject")
If Request.Form("actualizar")<>"" Then
lineas=Split(Request.Form("texto"),vbCrLf)
Set objTextStream=objFSO.OpenTextFile(nombreFichero,2)
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close

'######## AÑADIR ############
ElseIf Len(Request.Form("anyadir")) Then
lineas=Split(Request.Form("texto"),vbCrLf)
'Set objTextStream = objFSO.OpenTextFile(nombreFichero,8,False)
Set objTextStream = objFSO.OpenTextFile(nombreFichero,8,True)
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close
End If

'############ BORRAR #############
If Len(Request.Form("borrar")) Then
Set objTextStream=objFSO.OpenTextFile(nombreFichero,2)
objTextStream.Close
End If
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")% >" METHOD="POST">

Los contenidos del fichero <B><%=nombreFichero%></B> son:<P>

<TEXTAREA NAME="texto" ROWS="19" COLS="74" style="font-family: Verdana;">
<%

If Not objFSO.FileExists(nombreFichero) Then
objFSO.CreateTextFile(nombreFichero)
End if
Set objTextStream=objFSO.OpenTextFile(nombreFichero, 1, true)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine &vbCrLf
Wend
objTextStream.Close
%>
</TEXTAREA>
<br>

<INPUT TYPE="SUBMIT" NAME="actualizar" VALUE="Actualizar">
<INPUT TYPE="SUBMIT" NAME="anyadir" VALUE="Añadir">
<INPUT TYPE="SUBMIT" NAME="borrar" VALUE="Borrar">

</FORM>




Espero que sea lo que necesittas
Un saludo