asp CDONTS attachment not being sent correctly

[Ryan McLean]

Hello everyone! I have a question for ya'll. In a web-based asp
application I am creating and (attempting to) attach a file. The
email sends correctly, but when I try to open the attachment, it is
blank. Now, I know you all are probably thinking that the file is
blank on the server or it doesn't exist at the address that I specify.
Well, I checked on the server and the file is there and there is
stuff in it. Could this be a permissions thing, or am I just writing
the syntax incorrectly?

Thanks in advance for any assistance.

Ryan

p.s. Here is some code (notice the response.writes at the bottom of
each sub, they print the same stuff):

call subFileCreate("/gearupqa/reporttemp/",
"Academic_Infor mation.html", strBody)
call subEmail(reques t.form("txtEmai l"), "ge****@nau.edu ", "Here is the
report that you requested.", "/gearupqa/reporttemp/",
"Academic_Infor mation.html", "GEAR UP Administration : Academic
Information Page")
sub subEmail(dest, orig, mail_body, path, file_name, subj)
Set objMail = CreateObject("C DONTS.Newmail")
objMail.From = orig & "<GearUp>"
objMail.To = dest & "<" & dest & ">"
objMail.Subject = subj
objMail.AttachF ile server.mappath( path & file_name),
file_name objMail.Body = mail_body
objMail.BodyFor mat=0 '0 HTML, 1 plain text
objMail.MailFor mat=0 '0 MIME format, 1 plain text
objMail.Send()
Set objMail = nothing
response.write( server.mappath( path & file_name) & "<br>")
end sub

sub subFileCreate(p ath, file_name, text)
Set FileObject = Server.CreateOb ject("Scripting .FileSystemObje ct")
Set InStream = FileObject.Open TextFile(server .mappath(path &
file_name), 8, TRUE, -2)
InStream.WriteL ine(text)
set InStream = nothing
set FileObject = nothing
response.write( server.mappath( path & file_name) & "<br>")
end sub

Here are the printed paths:
C:\webs\gearup\ gearupqa\report temp\Academic_I nformation.html
C:\webs\gearup\ gearupqa\report temp\Academic_I nformation.html

Thanks again!

[Curt_C [MVP]]

Try a page with JUST the e-mail code, no sub, and hard-code all the values
once. This will tell you where to start.

Also, look at CDO instead of CDONTS while you are at it. CDONTS it being
phased out.

--
----------------------------------------------------------
Curt Christianson (Software_AT_Da rkfalz.Com)
Owner/Lead Designer, DF-Software
http://www.Darkfalz.com
---------------------------------------------------------
...Offering free scripts & code snippits for everyone...
---------------------------------------------------------

"Ryan McLean" <rd***@dana.ucc .nau.edu> wrote in message
news:df******** *************** **@posting.goog le.com...

Hello everyone! I have a question for ya'll. In a web-based asp
application I am creating and (attempting to) attach a file. The
email sends correctly, but when I try to open the attachment, it is
blank. Now, I know you all are probably thinking that the file is
blank on the server or it doesn't exist at the address that I specify.
Well, I checked on the server and the file is there and there is
stuff in it. Could this be a permissions thing, or am I just writing
the syntax incorrectly?

Thanks in advance for any assistance.

Ryan

p.s. Here is some code (notice the response.writes at the bottom of
each sub, they print the same stuff):

call subFileCreate("/gearupqa/reporttemp/",
"Academic_Infor mation.html", strBody)
call subEmail(reques t.form("txtEmai l"), "ge****@nau.edu ", "Here is the
report that you requested.", "/gearupqa/reporttemp/",
"Academic_Infor mation.html", "GEAR UP Administration : Academic
Information Page")
sub subEmail(dest, orig, mail_body, path, file_name, subj)
Set objMail = CreateObject("C DONTS.Newmail")
objMail.From = orig & "<GearUp>"
objMail.To = dest & "<" & dest & ">"
objMail.Subject = subj
objMail.AttachF ile server.mappath( path & file_name),
file_name objMail.Body = mail_body
objMail.BodyFor mat=0 '0 HTML, 1 plain text
objMail.MailFor mat=0 '0 MIME format, 1 plain text
objMail.Send()
Set objMail = nothing
response.write( server.mappath( path & file_name) & "<br>")
end sub

sub subFileCreate(p ath, file_name, text)
Set FileObject = Server.CreateOb ject("Scripting .FileSystemObje ct")
Set InStream = FileObject.Open TextFile(server .mappath(path &
file_name), 8, TRUE, -2)
InStream.WriteL ine(text)
set InStream = nothing
set FileObject = nothing
response.write( server.mappath( path & file_name) & "<br>")
end sub

Here are the printed paths:
C:\webs\gearup\ gearupqa\report temp\Academic_I nformation.html
C:\webs\gearup\ gearupqa\report temp\Academic_I nformation.html

Thanks again!

[Ryan McLean]

Hi Curt! Thank you for the fast response and assistance. I tried
what you suggested regarding the email code being executed using
hard-coded values outside of the routine on an asp page; sadly it was
of no avail.

I didn't know there was a cdo email . . . I'll have to look for some
information on it.

Thank you again for your help.

Ryan

[Ryan McLean]

Yay! The new CDO method worked perfectly! Thanks again!

Ryan

p.s. Is there any way to change the file name as it appears in the
email? I haven't seen any parameters that allow you to do that like
you can in cdonts.