Errore in includefile

[[trodat]]

Ciao a tutti.

Ho questo codice:

if rs.eof then 

response.write "Nessun record disponibile

else

set fso = createobject("scripting.filesystemobject")
file_da_creare = rs("uoat") & "_"& day(date())& "-" & month(date())& "-"& year(date()) &".doc"
path_temp = server.mappath("&file_da_creare&")


end if

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
%>

che però restituisce errore nell' include file quando non ho record da estrarre.

Include file:

if rs.eof then 

response.write "Nessun record disponibile"

else

'codice per invio email

link.AttachFile path_temp <---- riga dell'errore

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
end if

L'errore segnalato è il seguente:

Error Type:
(0x80004005)
Unspecified error
/sendemail.asp, line 53

Da che dipenderà? Grazie

[Umanista]

Scusa non ho capito: il file sendemail.asp contiene il seguente codice? :master:

if rs.eof then 

response.write "Nessun record disponibile"

else

'codice per invio email

link.AttachFile path_temp <---- riga dell'errore

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
end if

Comunque se path_temp non ha alcun valore, dovresti fare in modo che non venga chiamata neppure la funzione per inviare l'e-mail.

[[trodat]]

grazie per la risposta... il file incluso sendmail.asp contiene il codice che dici... non ho capito il tuo suggerimento...

[Umanista]

Il codice contenuto nel file sendemail.asp non può funzionare. Tenta di riaprire il recordset dopo che il recordset e la connessione sono stati chiusi!

l'istruzione "link.AttachFile path_temp" dovrebbe andare inserita come sotto, però dò per scontato che tu abbia istanziato l'oggetto prima di usarlo in questo modo.

if rs.eof then 

response.write "Nessun record disponibile

else

set fso = createobject("scripting.filesystemobject")
file_da_creare = rs("uoat") & "_"& day(date())& "-" & month(date())& "-"& year(date()) &".doc"
path_temp = server.mappath(" & file_da_creare & ")

' QUI INSERISCI IL CODICE PER INVIARE L'EMAIL
link.AttachFile path_temp

end if

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing

[[trodat]]

no... forse non mi sono spiegato... ho inserito nella pagina processa.asp il file sendmail.asp... ecco i due codici:

processa.asp:

idt = request.querystring("idt")

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from tab where id="&idt&" and campoX<>'Nessuno'"
rs.Open sql, cn

if rs.eof then 

response.write "Nessun record"

else

set fso = createobject("scripting.filesystemobject")
file_da_creare = rs("uoat") & "_"& day(date())& "-" & month(date())& "-"& year(date()) &".doc"
path_temp = server.mappath("&file_da_creare&")

end if

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
%>

sendmail.asp:

utente = (request.cookies("innovatel.it_accesso")("nome"))

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from codici where utente_id = "&utente
rs.Open sql, cn

if rs.eof then 

response.write "Nessun record"

else

'CODICE PER INVIO EMAIL

link.AttachFile path_temp

rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
end if

Quando la query prevista in processa.asp non ha record disponibili, lo script va in errore come già detto. Grazie

[Umanista]

Allora risolvi semplicemente controllando il valore path_temp

If path_temp <> "" Then %>

<% End If