How do I know when a FSO is done saving?

mwolf00 · Mar 27, 2003

I have an asp page that is writing an excel file that is subsequently being attached to some emails. As it stands, the file gets attached, but is empty since the save has not completed. How can I make sure that the save is complete prior to the email loop? Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

lordscutch · Mar 27, 2003

it should not execute the next bit of script until your saving has been complete......

mwolf00 · Mar 27, 2003

but the email attachments are empty (they are an excel file with the correct title - but blank).

with objCmd
.commandText = "br_sp_threeDayReport"
.CommandType = &H0004
End With

set objrs = objcmd.execute()
recCount = 0

do while not objrs.eof
if lcase(objrs("created&quot

) <> "null" then
if lastName <> "" then
recCount = recCount + 1
if lastName <> objrs("lastName&quot

then strOut = strOut & "<tr></tr>" '<
end if
lastName = objrs("lastName&quot

end if
strOut = strOut & objrs(0)
objrs.movenext
loop

if recCount > 0 then ' <'records found'

Set act = fso.CreateTextFile(server.mappath(g_filename), true)
with act
.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com

ffice:excel"">"
.WriteLine "<head>"
.WriteLine "<!--[if gte mso 9]><xml>"
.WriteLine "<x:ExcelWorkbook>"
.WriteLine "<x:ExcelWorksheets>"
.WriteLine "<x:ExcelWorksheet>"
.WriteLine "<x:Name>Items Over 3 Days Old</x:Name>"
.WriteLine "<x:WorksheetOptions>"
.WriteLine "<x

ageSetup>"
.WriteLine "<x:Header>BRTT Active Requests Over 3 Days Old</x:Header>"
.WriteLine "</x

ageSetup>"
.WriteLine "<x

rint>"
.WriteLine "<x:ValidPrinterInfo/>"
.WriteLine "</x

rint>"
.WriteLine "</x:WorksheetOptions>"
.WriteLine "</x:ExcelWorksheet>"
.WriteLine "</x:ExcelWorksheets>"
.WriteLine "</x:ExcelWorkbook>"
.WriteLine "</xml>"
.WriteLine "<![endif]--> "
.WriteLine "</head>"
.WriteLine strOut
end with
act.close

'now mail them'

strSQL = "SELECT firstName, email "&_
"FROM tblPerson p JOIN tbmPersonRole r on p.personID = r.personID "&_
"WHERE r.roleID = (select roleID from tblRole where roleName='Administrator')"
set objrs = objconn.execute(strSQL)

do while not objrs.eof
set objMail = server.createObject("CDONTS.newMail&quot

with objMail
.From = "joeblow@abc.com"
.To = objrs("email&quot

.Subject = "Daily Report - Requests Over 3 days Old"
strOut = objrs("firstName&quot

&_
", Your daily report for BRTT requests over 3 days old (starting 3/24/03) is attached. "&_
"The total number of records found is " & recCount & ". "
.Body = strOut
.AttachFile (server.mappath(g_filename ))
.bodyFormat = 0 'HTML'
.mailFormat = 0 'MIME Format'
.send
end with
objrs.movenext
loop
end if 'records found' Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

JamesLean · Mar 27, 2003

Am I missing something? I don't see where you are actually writing any data to the spreadsheet? --James

mwolf00 · Mar 27, 2003

James,

All of the act.WriteLines write to the file. The file is created correctly, I can see it when the code is done running.... Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

mwolf00 · Mar 27, 2003

Here's something interesting. When I write the oFile.size on the first pass (after act.close), the file size is correct (32K) which indicates that the entire file has indeed saved. Why is the attachment still empty (0 Bytes)? Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

mwolf00 · Mar 27, 2003

I've hardcoded an existing file into the objMail.attachFile line and I still get an empty folder - so that's where the problem is - any ideas on why the contents get left out? Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

mwolf00 · Mar 27, 2003

Here's the problem!!!

.mailFormat = 0 'MIME Format'

If I comment this line out, the code works perfectly...

Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

Tarwn · Mar 27, 2003

The necessary mailFormat is actually dependant on the encoding of the attachment. I don't remember the specifics but I think that if the attachment is encoded in base 64 format the mailformat will actually be change for you to MIME format, however if you set the mailformat to text, the UUEncode format is only default while setting it to MIME means that it expects a base 64 file by default. I don't see where any of this could be the cause of your problem, but it may be that I am forgetting something here.

-Tarwn _{01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101}
^{29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19}
Get better results for your questions: faq333-2924
Frequently Asked ASP Questions: faq333-3048

mwolf00 · Mar 28, 2003

Thanks Tarwyn, but the mail format was definitely the problem. I'm not sure what I should set it to, so I'm ignoring it and the attachment is working fine. The only downside is that I cannot send the mail as HTML, it has to be plain text...

Thanks to everyone for the help! Get the Best Answers! faq333-2924
Is this an asp FAQ? faq333-3048
Tek-Tips Best Practices: FAQ183-3179

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How do I know when a FSO is done saving?

mwolf00

Programmer

lordscutch

Programmer

mwolf00

Programmer

JamesLean

Programmer

mwolf00

Programmer

mwolf00

Programmer

mwolf00

Programmer

mwolf00

Programmer

Tarwn

Programmer

mwolf00

Programmer

Similar threads

Part and Inventory Search

Sponsor