Salve a tutti,
ho un problema nell'apertura di un file word creato automaticamente da una pagina asp(riporto il codice). mi segnala questo:
"Il nome o il percorso non è valido. Eseguire le seguenti operazioni:
Verificare le autorizzazioni file per il documento o l'unità
Utilizzare la finestra di dialogo Apri per cercare il documento"
Come posso risolvere questo problema?
<%@ Language=VBScript %>
<%
'codice del richiedente
VRicAna=request("RicAna")
'codice del movimento
VRicCod=request("RicCod")
'Nome del modulo da utilizzare
NomeReport= request("NomeReport")
percorso= server.mappath("/webben/moduli/" & NomeReport &".rtf")
'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")
'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Percorso, 1)
'Leggo tutto il contenuto del documento
Documento = f.ReadAll
'chiudo subito
f.Close
Set f = Nothing
'Effettuo la connessione al database
Set ConnBen = Server.CreateObject("ADODB.Connection")
StrConn = Application("ConnBen")
ConnBen.Open StrConn
Set Azi = Server.CreateObject("ADODB.Recordset")
StrSQL="SELECT Nome,indirizzo,Cap,citta,prov,CodiceFiscale FROM TabAzienda;"
Azi.Open StrSQL, ConnBen
If Azi("Nome") = "" or isnull(Azi("Nome")) then
BNome= ""
else
BNome= Azi("Nome")
end if
If Azi("indirizzo") = "" or isnull(Azi("indirizzo")) then
BIndirizzo= ""
else
BIndirizzo= Azi("indirizzo")
end if
If Azi("Cap") = "" or isnull(Azi("Cap")) then
BCap= ""
else
BCap= Azi("Cap")
end if
If Azi("citta") = "" or isnull(Azi("citta")) then
BCitta= ""
else
BCitta= Azi("citta")
end if
If Azi("prov") = "" or isnull(Azi("prov")) then
BProv= ""
else
BProv= Azi("prov")
end if
If Azi("CodiceFiscale") = "" or isnull(Azi("CodiceFiscale")) then
BCF= ""
else
BCF= Azi("CodiceFiscale")
end if
Set Ana = Server.CreateObject("ADODB.Recordset")
StrSQL="SELECT Codice,Denomin,Indir,Cap,citta,prov FROM Anag WHERE Codice=" & VRicAna
Ana.Open StrSQL, ConnBen
If Ana("Codice") = "" or isnull(Ana("Codice")) then
Codice= ""
else
Codice= Ana("Codice")
end if
If Ana("Denomin") = "" or isnull(Ana("Denomin")) then
Nome= ""
else
Nome= Ana("Denomin")
end if
If Ana("Indir") = "" or isnull(Ana("Indir")) then
Indirizzo= ""
else
Indirizzo= Ana("Indir")
end if
If Ana("cap") = "" or isnull(Ana("cap")) then
Cap= ""
else
Cap= Ana("cap")
end if
If Ana("citta") = "" or isnull(Ana("citta")) then
Citta= ""
else
Citta= Ana("citta")
end if
If Ana("Prov") = "" or isnull(Ana("Prov")) then
Prov= ""
else
Prov= Ana("Prov")
end if
Set Mov = Server.CreateObject("ADODB.Recordset")
StrSQL ="SELECT Storico.IdMov, Storico.D_Richi, Storico.Motivo, Storico.Evento, Storico.Note, Storico.Tip_Int, Storico.Anno, Storico.Richiesta, Storico.D_Evento, Storico.A_Evento, " & _
"Storico.LuogoEvento, Storico.D_Delib, Storico.Delib, Storico.D_Erog, Storico.Imp_Erog, Storico.ImpIva, Storico.IVA, Anag.Denomin, 'Elaborata' AS Tipo, Storico.Flag_Autoriz, " & _
"Storico.Flag_Com1, Storico.Data_Com1, Storico.Flag_Com2, Storico.Data_Com2, Storico.Flag_Com3, Storico.Data_Com3, TabOrgano.DesOrgano, TabTipo.DesInt, Storico.Altro, Storico.Lotteria, " & _
"Storico.Mezzi, Storico.StaLet, Storico.AltriSponsor, Storico.Inv, Storico.Vol, Storico.Rad, Storico.Gio, Storico.Cop, Storico.StricP, Storico.Man, Storico.Loc, Storico.Opu, Storico.Dep, " & _
"Storico.Stric, Storico.Portale, Storico.Gazebo " & _
"FROM Anag INNER JOIN ((Storico LEFT JOIN TabOrgano ON Storico.Organo = TabOrgano.Organo) LEFT JOIN TabTipo ON Storico.Tip_Int = TabTipo.Tipo_int) ON Anag.Codice = Storico.Codice " & _
"WHERE Storico.IdMov=" & VRicCod
Mov.Open StrSQL, ConnBen
'response.write StrSQL
'response.end
If Mov("D_Richi") = "" or isnull(Mov("D_Richi")) then
Data_Ric= "" 'data richiesta
else
Data_Ric= Mov("D_Richi")'data richiesta
end if
If Mov("Motivo") = "" or isnull(Mov("Motivo")) then
Motivo= "" 'motivo richiesta
else
Motivo= Mov("Motivo") 'motivo richiesta
end if
If Mov("Richiesta") = "" or isnull(Mov("Richiesta")) then
Richiesta= "" 'importo richiesto
else
Richiesta= Mov("Richiesta")'importo richiesto
end if
If Mov("Anno") = "" or isnull(Mov("Anno")) then
Anno= "" 'anno della richiesta
else
Anno= Mov("Anno") 'anno della richiesta
end if
If Mov("D_Delib") = "" or isnull(Mov("D_Delib")) then
D_Delib= "" 'data della delibera
else
D_Delib= Mov("D_Delib") 'data della delibera
end if
If Mov("Delib") = "" or isnull(Mov("Delib")) then
Delib= "" 'importo deliberato
else
Delib= Mov("Delib") 'importo deliberato
end if
If Mov("DesInt") = "" or isnull(Mov("DesInt")) then
Tip_Int= "" 'tipo intervento
else
Tip_Int= Mov("DesInt") 'tipo intervento
end if
If Mov("D_Erog") = "" or isnull(Mov("D_Erog")) then
D_Erog= "" 'data erogazione
else
D_Erog= Mov("D_Erog") 'data erogazione
end if
If Mov("Imp_Erog") = "" or isnull(Mov("Imp_Erog")) then
Imp_Erog= "" 'importo erogato
else
Imp_Erog= Mov("Imp_Erog")'importo erogato
end if
If Mov("Note") = "" or isnull(Mov("Note")) then
Note= "" 'note
else
Note= Mov("Note") 'note
end if
If Mov("DesOrgano") = "" or isnull(Mov("DesOrgano")) then
Organo= "" 'organo deliberante
else
Organo= Mov("DesOrgano")'organo deliberante
end if
If Mov("Evento") = "" or isnull(Mov("Evento")) then
Evento= "" 'evento
else
Evento= Mov("Evento") 'evento
end if
If Mov("D_Evento") = "" or isnull(Mov("D_Evento")) then
D_Evento= "" 'data evento DA
else
D_Evento= Mov("D_Evento")'data evento DA
end if
If Mov("A_Evento") = "" or isnull(Mov("A_Evento")) then
A_Evento= "" 'data evento A
else
A_Evento= Mov("A_Evento")'data evento A
end if
If Mov("LuogoEvento") = "" or isnull(Mov("LuogoEvento")) then
LuogoEvento= "" 'LuogoEvento
else
LuogoEvento= Mov("LuogoEvento")'LuogoEvento
end if
If Mov("ImpIva") = "" or isnull(Mov("ImpIva")) then
ImpIva= "" 'Importo senza IVA
else
ImpIva= Mov("ImpIva") 'Importo senza IVA
end if
If Mov("Iva") = "" or isnull(Mov("Iva")) then
Iva= "" 'IVA
else
Iva= Mov("ImpIva") ' IVA
end if
'Determinazione sponsorizzazione
If Mov("Iva") = "" or isnull(Mov("Iva")) then
Sponsor= "" 'IVA
else
Sponsor= Mov("ImpIva") ' IVA
end if
'Sostituisco i TAG con i campi contenuti nella form
'Dati della banca
Documento = Replace(Documento, "<<B_Nome>>", BNome)
Documento = Replace(Documento, "<<B_Indirizzo>>", BIndirizzo)
Documento = Replace(Documento, "<<B_Cap>>", BCap)
Documento = Replace(Documento, "<<B_Citta>>", BCitta)
Documento = Replace(Documento, "<<B_Prov>>", BProv)
Documento = Replace(Documento, "<<B_Cf>>", BCF)
'dati del richiedente
Documento = Replace(Documento, "<<Codice>>", Codice)
Documento = Replace(Documento, "<<Nome>>", Nome)
Documento = Replace(Documento, "<<Indirizzo>>", Indirizzo)
Documento = Replace(Documento, "<<Cap>>", Cap)
Documento = Replace(Documento, "<<Citta>>", Citta)
Documento = Replace(Documento, "<<Prov>>", Prov)
'dati della richiesta
Documento = Replace(Documento, "<<Data_Ric>>", Data_Ric)
Documento = Replace(Documento, "<<Motivo>>", Motivo)
Documento = Replace(Documento, "<<Imp_Ric>>", Richiesta)
Documento = Replace(Documento, "<<Anno>>", Anno)
Documento = Replace(Documento, "<<Data_Delib>>", D_Delib)
Documento = Replace(Documento, "<<Imp_Delib>>", Delib)
Documento = Replace(Documento, "<<Tipo_Int>>", Tip_Int)
Documento = Replace(Documento, "<<Data_Erog>>", D_Erog)
Documento = Replace(Documento, "<<Note>>", Note)
Documento = Replace(Documento, "<<Organo>>", Organo)
Documento = Replace(Documento, "<<Evento>>", Evento)
Documento = Replace(Documento, "<<DA_Evento>>", D_Evento)
Documento = Replace(Documento, "<<A_Evento>>", A_Evento)
Documento = Replace(Documento, "<<LuogoEvento>>", LuogoEvento)
Documento = Replace(Documento, "<<ImpIva>>", ImpIva)
Documento = Replace(Documento, "<<Iva>>", Iva)
Documento = Replace(Documento, "<<Sponsor>>", Sponsor)
'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
NomeFile=NomeReport &"_" & time() &".rtf"
percorso=server.mappath("/webben/Doc/" & NomeFile)
Set f = fso.OpenTextFile(Percorso, 2, True)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
