concatenare file html

[mosquito70]

ciao a tutti,
produco n-file .html che stampo singolarmente, aprendo ogni file.
Dovrei inoltre, fare in modo che cliccando su un bottone, da questi file (i cui dati li prendo da una tabella) creo un solo file, che sarà il risultato della concatenazione di uno sotto l'altro, con l'unica accortezza che tra la fine di uno e l'inizio dell'altro ci sia un salto pagina.

Esiste in asp una funzionalità che mi permette di fare questo?
In pratica come il comando "cat" di unix.

Qualche suggerimento?

Un saluto

[mosquito70]

sto provando utilizzando "include" dei file .html, ma non funziona

qualche suggerimento?

[Mems]

Leggi tutti i file con FSO (File System Object) e il contenuto lo concateni in una variabile comune.

[mosquito70]

ehm... come si fa?
Non ho mai utilizzato FSO.

Non è che mi potresti postare un esempio di come potrei fare? :rollo:

Dovrei (come al solito) risolvere la cosa velocemente...

Grazie in anticipo.

Un saluto

[Mems]

I file da concatenare stanno tutti in una unica cartella?
E' importante concatenarli in un ordine specifico?

[mosquito70]

si sono tutti in una cartella e il nome lo prelevo da una tabella...

l'ordine è indifferente...

grazie

[Mems]

Io non ho il db quindi mi baso su un array.

<%
Dim file(2)
file(0) = "/samples/inc/1.html"
file(1) = "/samples/inc/pippo.html"
file(2) = "/samples/inc/ciao.html"

fullContent = ""
delimiter = "<hr />"
	set fso = server.createObject("scripting.fileSystemObject")
		for i = 0 to uBound(file)
			set f = fso.openTextFile(server.mapPath(file(i)))			
				fullContent = fullContent & f.readAll & delimiter
			set f = nothing
		next		
	set fso = nothing
	response.write fullContent
%>

Te, al limite, devi cambiare la parte del for mettendo
do until rs.eof
e dopo server.mapPath al posto di file(i) metti rs("campotabelladb")
al posto del next metti
rs.movenext
loop

[mosquito70]

sembra ok, grazie....

però dopo avermi visualizzato i file e provo a fare antemprima di stampa, mi da questo errore


Errore nello script della pagina
Linea 94
Errore: Accesso Negato
res://C:\WINDOWS\system32\shdoclc.dll/preview.dlg


Il codice completo è questo

<%@language=vbscript%>

<%
    Set con = Server.CreateObject("ADODB.Connection")
    con.Open  application("ConnDB")


    vn_codibollavvi = Request.QueryString("vn_codibollavvi")
    vc_coditipoinvi = Request.QueryString("vc_coditipoinvi")

    selectfileHtml = "select PATH_FILE, NOME_FILE "_
		&" from v_asp_storbollavviazieemai "_
		&" WHERE CODI_BOLL_AVVI= " & vn_codibollavvi &" "_
		&" AND CODI_TIPO_INVI in (" & vc_coditipoinvi &") "_
		&" ORDER BY DESC_DENO_AZIE, NUME_BOLL, NOME_FILE;"
    
    'response.write selectfileHtml
    Set rsfileHtml = con.Execute(selectfileHtml)
             
    if not rsfileHtml.EOF then
    
    fullContent = ""
    delimiter = "<hr />"
       set fso = server.createObject("scripting.fileSystemObject")
    Do While Not rsfileHtml.EOF

    vc_nomefileHtmlasso=rsfileHtml("PATH_FILE")&""&rsfileHtml("NOME_FILE")
    'response.write vc_nomefileHtmlasso
        
          set f = fso.openTextFile(server.mapPath(vc_nomefileHtmlasso))			
				fullContent = fullContent & f.readAll & delimiter
			set f = nothing
   
                 rsfileHtml.MoveNext
               Loop

end if
set fso = nothing
	response.write fullContent
             rsfileHtml.Close
             Set rsfileHtml = Nothing
%>

[Mems]

Sul browser appare il testo di tutte le pagine concatenato?

[mosquito70]

l'errore non me lo da sempre

Provengo dal mondo Unix e quindi non so come e se queste situazioni posso replicarsi, magari sulla macchina di esercizio, sulla quale non posso agire in alcun modo.

Grazie tantissimo dei consigli

ps. Per fare il salto pagina, ho modificato così

delimiter ="<P STYLE=""page-break-after: always""> </P>"