can you run a debug on a web page ?

[Anis]

I have a very simple script that I picked up from the A5 help, to generate ,print and email an invoice, it runs fine but it doesn't send the email.
I ran all the lines thru the interactive code, it ran fine, yet from the web page it creates the invoice but doesn't email it.
Any suggestion how to debug this ?
here's the code:

report=alltrim(CurrentForm.Controls.ReportList)
email_address= alltrim(CurrentForm.Controls.email_address)
Give_In_Firm= alltrim(CurrentForm.Controls.Give_In_Firm)
IF eval_valid("email_address") = .f. Then
goto skip_report
end if
IF eval_valid("from_date") = .f. Then
goto skip_report
end if
if eval_valid("to_date") = .f. Then
goto skip_report
end if
'--------------------
if (from_date = "") then
from_date = dtoc(date())
end if
if (to_date = "") then
to_date = dtoc(date())
end if
if (ctod(from_date) > ctod(to_date)) then
goto skip_report
end if
'---------------------
dim filter as C
dim order as C
dim filename as C
filter = "gouallf->date >= " + s_quote(ctod(from_date)) + " .and. gouallf->date <= " + s_quote(ctod(to_date)) + " .and. gouallf->Give_In_Firm = '" + Give_In_Firm + "'"
order = ""
filename = "c:\giveups\ " + "tempreport.pdf"
filename =report.saveas(report,"pdf", filter, order, filename, .f.)
txt = "Account " + Give_In_Firm
rep = "C:\giveups" +alltrim(Give_In_Firm)
dim message as P
message.to = email_address
message.from = "Anis Fakhoury"
message.subject = "Invoice Report for " + to_date + " to " + from_date
message.Attachments = filename
message.message = "Invoice report is attached"
email_send2(message, "afakhoury")
skip_report:

[Steve Wood]

Re: can you run a debug on a web page ?

I don't know if there is a debugger for web, but this syntax is wrong:

filename = "c:\giveups\ " + "tempreport.pdf"

should be

filename = "c:\giveups\\" + "tempreport.pdf"

[Anis]

Re: can you run a debug on a web page ?

Steve;
That really workded the same way, both codes actually created the report and saved it, but neither Emailed it.
I was also trying :

filename = session.session_folder + "tempreport.pdf"

Which also created the file but the email is not going out.
I know the email works from the desktop, that's why I think it's only on the application server side.

[Steve Wood]

Re: can you run a debug on a web page ?

I'd use save_to_file() to save your variables to a text file for review, like:

save_to_file(filename + "|"+ email_address +"|" + filter , "c:\test.txt")

in the appropriate place. Variables have a habit of not containing what you think they do, being truncated, containing trailing spaces, or not existing.

This is what I use mostly for debug.

[Anis]

Re: can you run a debug on a web page ?

That is a good idea. Let me try and see if it's picking up something other than expected.

[Anis]

Re: can you run a debug on a web page ?

I saved the file and it looks good, all the info is correct.
Is there any output from the EMAIL_SEND function ?

the attached txt file show the correct info.

Thanks Steve

[Steve Wood]

Re: can you run a debug on a web page ?

Is "afakhoury" profile on your server? or just your desktop system. Email_send2() has a results, check the Help.

[[email protected]]

Re: can you run a debug on a web page ?

Hi Anis,

I had been having some trouble with the send_email emails were not coming through using the code below

email_send(CurrentForm.Controls.sendto,currentForm.Controls.subject,currentForm.Controls.body,"",CurrentForm.Controls.cc.,CurrentForm.Controls.bcc.,.f.,"","","*****")

I then change my code to

email_send(CurrentForm.Controls.sendto.value,currentForm.Controls.subject.value,currentForm.Controls.body.value,"",CurrentForm.Controls.cc.value,CurrentForm.Controls.bcc.value,.f.,"","","*****")

the only thing different is the .value on the end of the CurrentForm.Controls

after I made the change everything works fine

Andy

[Anis]

Re: can you run a debug on a web page ?

Thank you Steve, and Thank you Andy.
It took a combination of your reply to get it to work.

First, I didn't know that the Email settings for the web is different from the desktop, so I set this up on the server.

It didn't work with that alone, so I did have to add the .VALUE to the currentForm.controls.email_address.value for it to work.


Thanks again for your help.