Allegare file con CDONTS

[[trodat]]

Ciao sto cercando di spedire in allegato ad un indirizzo email un file excel generato dal sistema, ed ho scritto così:

'Nome temporaneo del file Excel
temp_excel_file = lcase(genera(91, 48, 5)) '5 = numero caratteri di cui è composta

Set fs = CreateObject("Scripting.FileSystemObject")
path_modello = server.mappath("public/modello_excel.txt")
path_temp = server.mappath("public/"& temp_excel_file &".xls")
Set a = fs.OpenTextFile(path_modello)
file_letto = a.readall
a.Close
...
Set link = CreateObject("CDONTS.Newmail")
link.From = "miaemail@email.it"
link.To = Email
link.AttachFile path_temp

ma restituisce

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Necessario oggetto.: 'fs'

sulla riga rossa, come mai? dove sbaglio?
grazie!

[Roby_72]

mmmm mi pare strano.
Cmq la lettura del file ti serve o devi solo inviarlo?

Roby

[[trodat]]

Grazie, vorrei conservare una copia sul server ed una inviarla a chi la richiede.

[Roby_72]

Una volta inviata al server la copia lì rimane se non la cancelli.
Rifai lo script togliendo l'utilizzo di fso che forse a te non serve per quello che devi fare.

Roby

[[trodat]]

Scusa non ho capito...
e poi ho un altro problema: pur avendo seguito alla lettera le istruzioni dello script, il file excel generato dallo script e scritto sul server rimane bianco... si inizia a popolare soltanto quando inserisco nel db sql server un record con lo stesso identificativo... ad esempio, inserisco il record chiamato 1-pippo
lo split separa il numero dal testo e li inserisce in due campi diversi del dbase: il file excel si scrive vuoto.

Riprovo ad inserire ancora una volta il record 1-pippo, lo split separa il numero dal testo e li inserisce in due campi diversi del dbase: il file excel si popola soltanto con il rpimo record 1-pippo.

Mi spiego?
L'unica modifica che ho inserito è sulla query che è diventata così:

sub listaClienti(objConn,byRef listaClientiOutput)
	sql = "SELECT * FROM tabella WHERE ID_NOME= "& NOME0&" order by id"

che significa?

[Roby_72]

NOME0 non l'hai passato alla sub...

Roby

[[trodat]]

intendi dire che così è sbagliato?:

'DATI GENERALI
NOME = request.form("NOME")
DIM ARR_DALFORM_NOME
ARR_DALFORM_NOME = split(NOME, "-")
NOME0 = ARR_DALFORM_NOME(0)
NOME1 = ARR_DALFORM_NOME(1)

sub listaClienti(objConn,byRef listaClientiOutput)
sql = "SELECT * FROM tabella WHERE ID_NOME= "& NOME0&" order by id"
set rs = server.createObject("ADODB.Recordset")
	rs.open sql, objConn, 1, 3
	if not rs.eof then
		listaClientiOutput = rs.getrows()
	end if
	rs.close
	set rs = nothing
end sub

:master:

[Roby_72]

Stampa la query prima di eseguirla e verifica se nome0 valga qualcosa... dentro la sub.

Roby

[fraude]

[[trodat]]

Si la query stampata restituisce il valore di NOME0, quindi è valorizzato, sbaglio?