Microsoft VBScript compilation error '800a0401' [Archive]

Click to See Complete Forum and Search --> : Microsoft VBScript compilation error '800a0401'

Flo

04-24-2008, 06:21 AM

Hi there!
I feel stupid to ask, but I was wondering if someone could help me with a problem I have - Its basically script I inherited but it did not work on the host server so I was told to change the form mailer info

but I still get the following error

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/survey/mark.asp, line 262

form method="post" action="http://cgi-bin.mweb.co.za/mailto/mailto.pl"
-------------------^

the host company cannot seem to tell me why it wont work
this is an extract of the section where the error occurs
the line highlighted in red is line 262

end if

dim total

total = cint((mark/30) * 100)

'call send

'function send()

<form method="post" action="http://cgi-bin.mweb.co.za/mailto/mailto.pl">
<input type="hidden"name="followup-page" value="http://www.probeta.co.za/survey/mark.asp">
<input type="hidden" name="recip" value= "survey@probeta.co.za">
<input type="hidden" name="subj" value= "Junior Trainee Assessment">
<input type="hidden" name="from" value= "survey@probeta.co.za">
<input type="hidden" name="body">

I would appreciate it greatly if someone can point out my mistake to me

thanks and have a great day
Flo

yamaharuss

04-24-2008, 07:04 AM

It appears you have not closed your ASP code before writing HTML code.

Add the closing tag just before your form....

%>
<form method="post" action="http://cgi-bin.mweb.co.za/mailto/mailto.pl">

Flo

04-24-2008, 09:01 AM

Hi yamaharuss

that did help but i feel a bit stupid I now get a new error

Microsoft VBScript runtime error '800a01a8'

Object required: 'letter'

/survey/mark.asp, line 321

this being the entire coding if that will help?
the red coding being line 321
I tried opening and closing in places i though is logical but it does not work,
Would you be so kind to see and tell me where I'm going wrong?
I will need to break the code over two messages
Much appreciated
Flo

[COLOR="navy"][COLOR="Blue"]<%

name = trim(Request("txt_name"))
id = trim(Request("txt_id"))
email = trim(Request("txt_email"))
qua = trim(Request("txt_qua"))
emp = trim(Request("txt_emp"))
emp_mail = trim(Request("txt_emp_email"))

q1=Request.Form.Item("q1a")
q2=Request.Form.Item("q2a")
q3=Request.Form.Item("q3a")
q4=Request.Form.Item("q4a")
q5=Request.Form.Item("q5a")
q6=Request.Form.Item("q6a")
q7=Request.Form.Item("q7a")
q8=Request.Form.Item("q8a")
q9=Request.Form.Item("q9a")
q10=Request.Form.Item("q10a")
q11=Request.Form.Item("q11a")
q12=Request.Form.Item("q12a")
q13=Request.Form.Item("q13a")
q14=Request.Form.Item("q14a")
q15=Request.Form.Item("q15a")
q16=Request.Form.Item("q16a")
q17=Request.Form.Item("q17a")
q18=Request.Form.Item("q18a")
q19=Request.Form.Item("q19a")
q20=Request.Form.Item("q20a")
q21=Request.Form.Item("q21a")
q22=Request.Form.Item("q22a")
q23=Request.Form.Item("q23a")
q24=Request.Form.Item("q24a")
q25=Request.Form.Item("q25a")
q26=Request.Form.Item("q26a")
q27=Request.Form.Item("q27a")
q28=Request.Form.Item("q28a")
q29=Request.Form.Item("q29a")
q30=Request.Form.Item("q30a")

dim mark
mark = 0

if q1="b" then
mark = mark + 1
q1_mark = "Pass"
else
q1_mark = "Fail"
end if

if q2="a" then
mark = mark + 1
q2_mark = "Pass"
else
q2_mark = "Fail"
end if

if q3="b" then
mark = mark + 1
q3_mark = "Pass"
else
q3_mark = "Fail"
end if

if q4="d" then
mark = mark + 1
q4_mark = "Pass"
else
q4_mark = "Fail"
end if

if q5="c" then
mark = mark + 1
q5_mark = "Pass"
else
q5_mark = "Fail"
end if

if q6="a" then
mark = mark + 1
q6_mark = "Pass"
else
q6_mark = "Fail"
end if

if q7="b" then
mark = mark + 1
q7_mark = "Pass"
else
q7_mark = "Fail"
end if

if q8="b" then
mark = mark + 1
q8_mark = "Pass"
else
q8_mark = "Fail"
end if

if q9="c" then
mark = mark + 1
q9_mark = "Pass"
else
q9_mark = "Fail"
end if

if q10="b" then
mark = mark + 1
q10_mark = "Pass"
else
q10_mark = "Fail"
end if

if q11="c" then
mark = mark + 1
q11_mark = "Pass"
else
q11_mark = "Fail"
end if

if q12="b" then
mark = mark + 1
q12_mark = "Pass"
else
q12_mark = "Fail"
end if

if q13="a" then
mark = mark + 1
q13_mark = "Pass"
else
q13_mark = "Fail"
end if

if q14="a" then
mark = mark + 1
q14_mark = "Pass"
else
q14_mark = "Fail"
end if

if q15="b" then
mark = mark + 1
q15_mark = "Pass"
else
q15_mark = "Fail"
end if

if q16="a" then
mark = mark + 1
q16_mark = "Pass"
else
q16_mark = "Fail"
end if

if q17="d" then
mark = mark + 1
q17_mark = "Pass"
else
q17_mark = "Fail"
end if

if q18="d" then
mark = mark + 1
q18_mark = "Pass"
else
q18_mark = "Fail"
end if

if q19="b" then
mark = mark + 1
q19_mark = "Pass"
else
q19_mark = "Fail"
end if

if q20="c" then
mark = mark + 1
q20_mark = "Pass"
else
q20_mark = "Fail"
end if

if q21="b" then
mark = mark + 1
q21_mark = "Pass"
else
q21_mark = "Fail"
end if

if q22="c" then
mark = mark + 1
q22_mark = "Pass"
else
q22_mark = "Fail"
end if

if q23="c" then
mark = mark + 1
q23_mark = "Pass"
else
q23_mark = "Fail"
end if

if q24="c" then
mark = mark + 1
q24_mark = "Pass"
else
q24_mark = "Fail"
end if

if q25="a" then
mark = mark + 1
q25_mark = "Pass"
else
q25_mark = "Fail"
end if

if q26="a" then
mark = mark + 1
q26_mark = "Pass"
else
q26_mark = "Fail"
end if

if q27="c" then
mark = mark + 1
q27_mark = "Pass"
else
q27_mark = "Fail"
end if

if q28="c" then
mark = mark + 1
q28_mark = "Pass"
else
q28_mark = "Fail"
end if

if q29="c" then
mark = mark + 1
q29_mark = "Pass"
else
q29_mark = "Fail"
end if

if q30="b" then
mark = mark + 1
q30_mark = "Pass"
else
q30_mark = "Fail"
end if

dim total

total = cint((mark/30) * 100)

'call send

'function send()

Flo

04-24-2008, 09:02 AM

%>
<form method="post" action="http://cgi-bin.mweb.co.za/mailto/mailto.pl">
<input type="hidden"name="followup-page" value="http://www.probeta.co.za/survey/mark.asp">
<input type="hidden" name="recip" value= "survey@probeta.co.za">
<input type="hidden" name="subj" value= "Junior Trainee Assessment">
<input type="hidden" name="from" value= "survey@probeta.co.za">
<input type="hidden" name="body">
<%
letter = "<table width='700' border='0'>"
letter = letter + "<tr><td width='230'>Name:</td>"
letter = letter + "<td width='470'>"+name+"</td></tr><tr>"
letter = letter + "<td width='230'>ID:</td>"
letter = letter + "<td width='470'>"+id+"</td></tr><tr>"
letter = letter + "<td width='230'>Highest completed qualification :</td>"
letter = letter + "<td width='470'>"+qua+"</td></tr><tr>"

letter = letter + "<td width='230'>E-mail:</td>"
letter = letter + "<td width='470'>"+email+"</td></tr><tr>"

letter = letter + "<td width='230'>Referred by:</td>"
letter = letter + "<td width='470'>"+emp+"</td></tr>"

letter = letter + "<td width='230'>Contact (referrer):</td>"
letter = letter + "<td width='470'>"+emp_mail+"</td></tr>"

letter = letter + "<tr><td width='230'> </td><td width='470'> </td></tr>"
letter = letter + "<tr><td width='230'>Test Result:</td>"
letter = letter + "<td width='470'>"+cstr(total)+" %</td></tr></table>"

letter = letter + "" + q1_mark + ") 1. The formula in C3 has been copied to C4:C6. Why could the formulae in C3 and C4 cause #VALUE! Errors?"
letter = letter + "" + q2_mark + ") 2. Why doesn't the SUM formula in E10 show an answer of R30,000?"
letter = letter + "" + q3_mark + ") 3. To freeze column names in Excel, select the names "
letter = letter + "" + q4_mark + ") 4. To enter a fraction such as ¼ in an Excel worksheet, the first thing you enter is..."
letter = letter + "" + q5_mark + ") 5. In Excel, ###### means: "
letter = letter + "" + q6_mark + ") 6. Which key do you press in Explorer to select two or more nonadjacent files?"
letter = letter + "" + q7_mark + ") 7. Which key do you press in Explorer to select two or more adjacent files? "
letter = letter + "" + q8_mark + ") 8. Where on a computer would you normally expect to find Excel spreadsheets created by the user? "
letter = letter + "" + q9_mark + ") 9. Which keyboard is used to copy a file?"
letter = letter + "" + q10_mark + ") 10. Which keyboard shortcut is used to save the document you are working on? "
letter = letter + "" + q11_mark + ") 11. While working in MS Word you place the insertion point in the middle of a paragraph and start typing. But the new text deletes existing text. What's the problem and how do you fix it?"
letter = letter + "" + q12_mark + ") 12. Once you have deleted text in MS Word or Excel you can't get it back. "
letter = letter + "" + q13_mark + ") 13. As you type a paragraph, press ENTER to move from one line to the next. "
letter = letter + "" + q14_mark + ") 14. MS Word can check your spelling and suggest corrections as you type: "
letter = letter + "" + q15_mark + ") 15. You create a numbered list as you type by typing 1, adding your text, and pressing ENTER"
letter = letter + "" + q16_mark + ") 16. When can audit evidence be considered to be 'sufficient'? "
letter = letter + "" + q17_mark + ") 17. What does the auditing concept of 'materiality' mean?"
letter = letter + "" + q18_mark + ") 18. Which of the following is a good reason why an audit should be properly planned? "
letter = letter + "" + q19_mark + ") 19. Which of the following statements are NOT TRUE? "
letter = letter + "" + q20_mark + ") 20. Which one of the following assertions only applies to assets and liabilities and not to transactions or events? "
letter = letter + "" + q21_mark + ") 21. Entries can be posted to any previous year in Pastel:"
letter = letter + "" + q22_mark + ") 22. Which of the following statements describe open item processing: "
letter = letter + "" + q23_mark + ") 23. Which of the following transactions are correct when goods are purchased on credit and then sold to a customer also on credit, using an integrated inventory system: "
letter = letter + "" + q24_mark + ") 24. Which of the following transactions is correct when goods are sold on credit to a customer and the company issues a tax invoice: "
letter = letter + "" + q25_mark + ") 25. When a client makes a payment for entertainment expenses and receives a tax invoice which one of the following VAT transactions should be used: "
letter = letter + "" + q26_mark + ") 26. The account 'Motor vehicles at cost' in the trial balance is normally expected to have a:"
letter = letter + "" + q27_mark + ") 27. The account 'Petty cash' in the trial balance is "
letter = letter + "" + q28_mark + ") 28. The balance sheet reflects "
letter = letter + "" + q29_mark + ") 29. Depreciation is "
letter = letter + "" + q30_mark + ") 30. The account 'Accrued liabilities' in the trial balance is normally expected to have a "

Flo

04-24-2008, 09:04 AM

and the last part is here starts at line 321

Mail.Body = letter
Mail.Send

Mail.Reset
Mail.AddAddress email

letter = "<table width='700' border='0'>"
letter = letter + "<tr><td width='230'>Name:</td>"
letter = letter + "<td width='470'>"+name+"</td></tr><tr>"
letter = letter + "<td width='230'>ID:</td>"
letter = letter + "<td width='470'>"+id+"</td></tr><tr>"
letter = letter + "<td width='230'>Highest completed qualification :</td>"
letter = letter + "<td width='470'>"+qua+"</td></tr><tr>"

letter = letter + "<td width='230'>Referred by:</td>"
letter = letter + "<td width='470'>"+emp+"</td></tr>"

letter = letter + "<td width='230'>Contact (referrer):</td>"
letter = letter + "<td width='470'>"+emp_mail+"</td></tr>"

letter = letter + "<tr><td width='230'> </td><td width='470'> </td></tr>"
letter = letter + "<tr><td width='230'>Test Result:</td>"
letter = letter + "<td width='470'>"+cstr(total)+" %</td></tr></table>"

letter = letter + "" + q1_mark + ") 1. The formula in C3 has been copied to C4:C6. Why could the formulae in C3 and C4 cause #VALUE! Errors?"
letter = letter + "" + q2_mark + ") 2. Why doesn't the SUM formula in E10 show an answer of R30,000?"
letter = letter + "" + q3_mark + ") 3. To freeze column names in Excel, select the names "
letter = letter + "" + q4_mark + ") 4. To enter a fraction such as ¼ in an Excel worksheet, the first thing you enter is..."
letter = letter + "" + q5_mark + ") 5. In Excel, ###### means: "
letter = letter + "" + q6_mark + ") 6. Which key do you press in Explorer to select two or more nonadjacent files?"
letter = letter + "" + q7_mark + ") 7. Which key do you press in Explorer to select two or more adjacent files? "
letter = letter + "" + q8_mark + ") 8. Where on a computer would you normally expect to find Excel spreadsheets created by the user? "
letter = letter + "" + q9_mark + ") 9. Which keyboard is used to copy a file?"
letter = letter + "" + q10_mark + ") 10. Which keyboard shortcut is used to save the document you are working on? "
letter = letter + "" + q11_mark + ") 11. While working in MS Word you place the insertion point in the middle of a paragraph and start typing. But the new text deletes existing text. What's the problem and how do you fix it?"
letter = letter + "" + q12_mark + ") 12. Once you have deleted text in MS Word or Excel you can't get it back. "
letter = letter + "" + q13_mark + ") 13. As you type a paragraph, press ENTER to move from one line to the next. "
letter = letter + "" + q14_mark + ") 14. MS Word can check your spelling and suggest corrections as you type: "
letter = letter + "" + q15_mark + ") 15. You create a numbered list as you type by typing 1, adding your text, and pressing ENTER"
letter = letter + "" + q16_mark + ") 16. When can audit evidence be considered to be 'sufficient'? "
letter = letter + "" + q17_mark + ") 17. What does the auditing concept of 'materiality' mean?"
letter = letter + "" + q18_mark + ") 18. Which of the following is a good reason why an audit should be properly planned? "
letter = letter + "" + q19_mark + ") 19. Which of the following statements are NOT TRUE? "
letter = letter + "" + q20_mark + ") 20. Which one of the following assertions only applies to assets and liabilities and not to transactions or events? "
letter = letter + "" + q21_mark + ") 21. Entries can be posted to any previous year in Pastel:"
letter = letter + "" + q22_mark + ") 22. Which of the following statements describe open item processing: "
letter = letter + "" + q23_mark + ") 23. Which of the following transactions are correct when goods are purchased on credit and then sold to a customer also on credit, using an integrated inventory system: "
letter = letter + "" + q24_mark + ") 24. Which of the following transactions is correct when goods are sold on credit to a customer and the company issues a tax invoice: "
letter = letter + "" + q25_mark + ") 25. When a client makes a payment for entertainment expenses and receives a tax invoice which one of the following VAT transactions should be used: "
letter = letter + "" + q26_mark + ") 26. The account 'Motor vehicles at cost' in the trial balance is normally expected to have a:"
letter = letter + "" + q27_mark + ") 27. The account 'Petty cash' in the trial balance is "
letter = letter + "" + q28_mark + ") 28. The balance sheet reflects "
letter = letter + "" + q29_mark + ") 29. Depreciation is "
letter = letter + "" + q30_mark + ") 30. The account 'Accrued liabilities' in the trial balance is normally expected to have a "

Mail.Body = letter
Mail.Send

set mail = nothing

'end function

Response.Redirect("rep.htm")

%>[/COLOR][/COLOR]

yamaharuss

04-24-2008, 09:08 AM

nevermind.. I posted before you did the last one...

I do not see where you are declaring your mail function. Mail.Body = anything will generate an error if you are not declaring what "Mail" is.

Such as Set Mail= Server.CreateObject("CDO.Message")