Explore the community Forums Lectora Lectora Questions & Answers Google Drive Submit Test. problem greater than 50 questions! Help.

Viewing 15 posts - 1 through 15 (of 20 total)
  • Author
    Posts
  • #283766 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    I am having a problem with Google Drive as I have a test with 180 questions. I have updated the Lectora template and added more questions but it seems to not enable me to post more than 54 maximum. I keep getting an error that it cannot find. Has anyone else experienced this?

    Works great with 50 questions or less.

    #287688 Score: 0
    Profile photo of Sergey Snegirev
    Sergey Snegirev
    Member
    contributor
    intermediate
    advanced
    friend finder
    lab member
    junior moderator
    advocate
    LUC16
    LUC16 Attendee
    wise owl
    336 pts
    @ssneg

    What error are you getting?

    #287702 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    [ATTACH=CONFIG]515[/ATTACH]

    suddenly it cannot contact host?

    #287689 Score: 0
    Profile photo of Sergey Snegirev
    Sergey Snegirev
    Member
    contributor
    intermediate
    advanced
    friend finder
    lab member
    junior moderator
    advocate
    LUC16
    LUC16 Attendee
    wise owl
    336 pts
    @ssneg

    Apparently you’re hitting the limit of concurrent requests to Drive API. Requests beyond limit are rejected. Looks like Lectora does not discriminate between reasons for rejection, so instead of retrying the failed requests, it gives up and produces the error.

    It says right here: “only 50 people can edit a document” – https://support.google.com/drive/answer/2494827?hl=en

    You should contact Lectora developers so they can amend the code for future versions. It should fire off the questions in batches of 50.

    Also see this: https://developers.google.com/drive/handle-errors

    #287703 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    Why would a limit of sharing with “50” users, effect the data posting limit of “50” items?

    #287690 Score: 0
    Profile photo of Sergey Snegirev
    Sergey Snegirev
    Member
    contributor
    intermediate
    advanced
    friend finder
    lab member
    junior moderator
    advocate
    LUC16
    LUC16 Attendee
    wise owl
    336 pts
    @ssneg

    I have a strong feeling that Lectora submits all questions at once. Each connection (stream) is an edit request for a number of cells, basically. The coincidence is too exact to ignore.

    I’d test this, but I don’t want to create a Google form and over fifty questions in a title.

    #287691 Score: 0
    Profile photo of Sergey Snegirev
    Sergey Snegirev
    Member
    contributor
    intermediate
    advanced
    friend finder
    lab member
    junior moderator
    advocate
    LUC16
    LUC16 Attendee
    wise owl
    336 pts
    @ssneg

    Well okay, I went ahead and built a title with 60 questions. When submitting to Google Forms, the server responds with “414 Request-URI Too Large” header. In other words, the string that Lectora sends is too long for the Forms to process.

    The string is formed like this:
    https://spreadsheets.google.com/formResponse?key=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&
    entry.0.single=studentname&
    entry.1.single=%28not%20answered%29&
    entry.2.single=%28not%20answered%29&
    entry.3.single=%28not%20answered%29&
    entry.4.single=%28not%20answered%29&
    entry.5.single=Choice%20Three
    …and so on.

    So it includes the actual answer text. If your answer options are long, you might run out of URI length quicker than 50 questions. I just built a title with 10 questions and some really long answer options, and got the same error. I guess the 50 was just a coincidence.

    I’m sure Lectora could split the submit string into several if they knew about this issue.

    #287701 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    I appreciate you going above and beyond the call of duty on this. Thank you. I will submit your findings to Lectora and see if we can get a fix. Thank You again!!

    #287685 Score: 0
    Profile photo of John Blackmon
    John Blackmon
    Moderator
    beginner
    intermediate
    contributor
    friend finder
    advanced
    junior moderator
    wise owl
    LUC16
    LUC16 Attendee
    verified member
    29 pts
    @johnb

    The limit of length of the string submitted is something that is imposed by Google, there won’t be any way to work around it. Submitting the data in chunks will be interpreted as multiple test submissions, so that wouldn’t work either.

    Would it be possible to break your 180 question test up into multiple tests, each of which submits to a different Google Form? That way, each set of test results would not be longer than allowed by Google. It also might be a nice way to break up a long test for the user.

    #287687 Score: 0
    Profile photo of Sergey Snegirev
    Sergey Snegirev
    Member
    contributor
    intermediate
    advanced
    friend finder
    lab member
    junior moderator
    advocate
    LUC16
    LUC16 Attendee
    wise owl
    336 pts
    @ssneg

    @johnb 57386 wrote:

    The limit of length of the string submitted is something that is imposed by Google, there won’t be any way to work around it. Submitting the data in chunks will be interpreted as multiple test submissions, so that wouldn’t work either.

    The primary problem is that there is no way of knowing when you hit this limit. As I demonstrated above, you can hit it with only 10 questions (provided they have very long answers).. Lectora could at least estimate the potential length of the URI string and warn users when publishing such projects. It does warn everyone about 250 Kbyte large images (WHY?), so why not do this, too.

    Also, here is a hint to Lectora:
    You can use POST (not GET) to post data to Google Forms. It has no length limit (well, okay, there could technically be a 2Gb limit, but 2Gb is PLENTY of text data :))
    I just checked, it works like a charm. I submitted a quiz response of around 1.5 Mb (that’s more than your average Harry Potter book! :))

    Btw, this could also solve mgilbert’s problem right now, only we’ll have to write a custom script that submits these variables instead of Lectora’s standard function.

    #287699 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    So I tried breaking up the test into 4 tests with approx 40 to 50 questions but to no avail as it is not the amount of questions, its a data limit. So therefore you have no aspect of when your limit is going to be as some of the answers are 3 sentences long. I hope I can somehow use the GET or POST method to work for me.

    #287700 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    Something again that really bothers me is that when publishing to scorm – “SUBMIT TEST RESULTS TO EMAIL”!! This drives me crazy as you have to disable Java Title Manager – and it still does not function properly. This would be the ideal solution to fix in Lectora and MANY, MANY people have asked for this. What a great world it would be if you could simply have the learning unit email the test results to ANY email address you desire.

    The funny part is that ARTICULATE has this function and it works! Its not the greatest submit as it is a pile of text you have to decipher but if Articulate can program this to function, I am pretty confident Lectora could program this function that works and is not HELL to pass through the IT departments security, having email installed on the server, CGI scripting, etc.

    #287694 Score: 0
    Profile photo of rwalters
    rwalters
    Member
    contributor
    beginner
    intermediate
    advanced
    curious george
    wise owl
    7 pts
    @rwalters

    I have a VBscript file that uses persits.mailsender to send emails using the submit to custom script option. Someone posted it here a long time ago and I’ve made a lot of changes since then, but it works for us outside of an LMS. I think your server would need to have persits or something equivalent. I know nothing about that aspect of it, just that our IT guys said it used persits.

    #287696 Score: 0
    Profile photo of mgilbert
    mgilbert
    Member
    beginner
    intermediate
    friend finder
    picture perfect
    @mgilbert

    @rwalters 57396 wrote:

    I have a VBscript file that uses persits.mailsender to send emails using the submit to custom script option. Someone posted it here a long time ago and I’ve made a lot of changes since then, but it works for us outside of an LMS. I think your server would need to have persits or something equivalent. I know nothing about that aspect of it, just that our IT guys said it used persits.

    Does this solution have to be custom programmed for every question, every Assignable Unit test? Or once you make it can you library it and add to any course without more customized programming?

    The original part of this Thread about posting to Google Drive Data Limits is still not resolved, nor have I heard from Lectora Support? I wish I knew why.

    #287692 Score: 0
    Profile photo of rwalters
    rwalters
    Member
    contributor
    beginner
    intermediate
    advanced
    curious george
    wise owl
    7 pts
    @rwalters

    It was originally set up so that it had to be different for every test, but I recently revamped it to work for any test by pulling in the questions and correct answers that are passed from the XML file.

    The code below works for up to 25 questions. You can add as many as you need for your largest test, but smaller tests work even with the extra variables included here. It sends an email (replace the email addresses first) showing only the incorrect answers. I left some variables in the code that are specific to our modules and server so you might want to remove those references, but they shouldn’t cause errors. I name all our tests “Module test” so that it can find the test score each time.

    Include ALL Variable Values must be checked.

    < %@ Language=VBScript %>

    < % Dim strBody fn=Session("cFirstName") ln=Session("cLastName") em=Session("cemail") un=request.form("name") t1=request.form("_TestTime") t2=request.form("_TestTime2") ts=request.form("Module_test_Score") ctn=request.form("CurrentTitleName") ag=request.form("_addressgroup") q1=request.form("Question1") q2=request.form("Question2") q3=request.form("Question3") q4=request.form("Question4") q5=request.form("Question5") q6=request.form("Question6") q7=request.form("Question7") q8=request.form("Question8") q9=request.form("Question9") q10=request.form("Question10") q11=request.form("Question11") q12=request.form("Question12") q13=request.form("Question13") q14=request.form("Question14") q15=request.form("Question15") q16=request.form("Question16") q17=request.form("Question17") q18=request.form("Question18") q19=request.form("Question19") q20=request.form("Question20") q21=request.form("Question21") q22=request.form("Question22") q23=request.form("Question23") q24=request.form("Question24") q25=request.form("Question25") a1=request.form("Answer1") a2=request.form("Answer2") a3=request.form("Answer3") a4=request.form("Answer4") a5=request.form("Answer5") a6=request.form("Answer6") a7=request.form("Answer7") a8=request.form("Answer8") a9=request.form("Answer9") a10=request.form("Answer10") a11=request.form("Answer11") a12=request.form("Answer12") a13=request.form("Answer13") a14=request.form("Answer14") a15=request.form("Answer15") a16=request.form("Answer16") a17=request.form("Answer17") a18=request.form("Answer18") a19=request.form("Answer19") a20=request.form("Answer20") a21=request.form("Answer21") a22=request.form("Answer22") a23=request.form("Answer23") a24=request.form("Answer24") a25=request.form("Answer25") c1=request.form("CorrectAnswer1") c2=request.form("CorrectAnswer2") c3=request.form("CorrectAnswer3") c4=request.form("CorrectAnswer4") c5=request.form("CorrectAnswer5") c6=request.form("CorrectAnswer6") c7=request.form("CorrectAnswer7") c8=request.form("CorrectAnswer8") c9=request.form("CorrectAnswer9") c10=request.form("CorrectAnswer10") c11=request.form("CorrectAnswer11") c12=request.form("CorrectAnswer12") c13=request.form("CorrectAnswer13") c14=request.form("CorrectAnswer14") c15=request.form("CorrectAnswer15") c16=request.form("CorrectAnswer16") c17=request.form("CorrectAnswer17") c18=request.form("CorrectAnswer18") c19=request.form("CorrectAnswer19") c20=request.form("CorrectAnswer20") c21=request.form("CorrectAnswer21") c22=request.form("CorrectAnswer22") c23=request.form("CorrectAnswer23") c24=request.form("CorrectAnswer24") c25=request.form("CorrectAnswer25") strBody="" if ts = "100" then strBody=strbody & "There are no incorrect answers for: ” else strBody=strBody & “Below is the listing of all the incorrect answers for: ” end if strBody=strbody & “Name: ” & un & “


    strBody=strbody & “Logged in as: ” & fn & ” ” & ln & “


    strBody=strbody & “Email: ” & em & “

    strBody=strBody & “Test Score: ” & ts & “%” & “


    strBody=strBody & “Time to complete reading module: ” & t1 & “


    strBody=strBody & “Total time to complete module and test: ” & t2 & “

    if a1 <> c1 then
    strBody=strBody & “Question 1: ” & q1 & “
    Trainee answer: ” & a1 & “

    strBody=strBody & “Correct answer: ” & c1 & “


    end if

    if a2 <> c2 then
    strBody=strBody & “Question 2: ” & q2 & “
    Trainee answer: ” & a2 & “

    strBody=strBody & “Correct answer: ” & c2 & “


    end if

    if a3 <> c3 then
    strBody=strBody & “Question 3: ” & q3 & “
    Trainee answer: ” & a3 & “

    strBody=strBody & “Correct answer: ” & c3 & “


    end if

    if a4 <> c4 then
    strBody=strBody & “Question 4: ” & q4 & “
    Trainee answer: ” & a4 & “

    strBody=strBody & “Correct answer: ” & c4 & “


    end if

    if a5 <> c5 then
    strBody=strBody & “Question 5: ” & q5 & “
    Trainee answer: ” & a5 & “

    strBody=strBody & “Correct answer: ” & c5 & “


    end if

    if a6 <> c6 then
    strBody=strBody & “Question 6: ” & q6 & “
    Trainee answer: ” & a6 & “

    strBody=strBody & “Correct answer: ” & c6 & “


    end if

    if a7 <> c7 then
    strBody=strBody & “Question 7: ” & q7 & “
    Trainee answer: ” & a7 & “

    strBody=strBody & “Correct answer: ” & c7 & “


    end if

    if a8 <> c8 then
    strBody=strBody & “Question 8: ” & q8 & “
    Trainee answer: ” & a8 & “

    strBody=strBody & “Correct answer: ” & c8 & “


    end if

    if a9 <> c9 then
    strBody=strBody & “Question 9: ” & q9 & “
    Trainee answer: ” & a9 & “

    strBody=strBody & “Correct answer: ” & c9 & “


    end if

    if a10 <> c10 then
    strBody=strBody & “Question 10: ” & q10 & “
    Trainee answer: ” & a10 & “

    strBody=strBody & “Correct answer: ” & c10 & “


    end if

    if a11 <> c11 then
    strBody=strBody & “Question 11: ” & q11 & “
    Trainee answer: ” & a11 & “

    strBody=strBody & “Correct answer: ” & c11 & “


    end if

    if a12 <> c12 then
    strBody=strBody & “Question 12: ” & q12 & “
    Trainee answer: ” & a12 & “

    strBody=strBody & “Correct answer: ” & c12 & “


    end if

    if a13 <> c13 then
    strBody=strBody & “Question 13: ” & q13 & “
    Trainee answer: ” & a13 & “

    strBody=strBody & “Correct answer: ” & c13 & “


    end if

    if a14 <> c14 then
    strBody=strBody & “Question 14: ” & q14 & “
    Trainee answer: ” & a14 & “

    strBody=strBody & “Correct answer: ” & c14 & “


    end if

    if a15 <> c15 then
    strBody=strBody & “Question 15: ” & q15 & “
    Trainee answer: ” & a15 & “

    strBody=strBody & “Correct answer: ” & c15 & “


    end if

    if a16 <> c16 then
    strBody=strBody & “Question 16: ” & q16 & “
    Trainee answer: ” & a16 & “

    strBody=strBody & “Correct answer: ” & c16 & “


    end if

    if a17 <> c17 then
    strBody=strBody & “Question 17: ” & q17 & “
    Trainee answer: ” & a17 & “

    strBody=strBody & “Correct answer: ” & c17 & “


    end if

    if a18 <> c18 then
    strBody=strBody & “Question 18: ” & q18 & “
    Trainee answer: ” & a18 & “

    strBody=strBody & “Correct answer: ” & c18 & “


    end if

    if a19 <> c19 then
    strBody=strBody & “Question 19: ” & q19 & “
    Trainee answer: ” & a19 & “

    strBody=strBody & “Correct answer: ” & c19 & “


    end if

    if a20 <> c20 then
    strBody=strBody & “Question 20: ” & q20 & “
    Trainee answer: ” & a20 & “

    strBody=strBody & “Correct answer: ” & c20 & “


    end if

    if a21 <> c21 then
    strBody=strBody & “Question 21: ” & q21 & “
    Trainee answer: ” & a21 & “

    strBody=strBody & “Correct answer: ” & c21 & “


    end if

    if a22 <> c22 then
    strBody=strBody & “Question 22: ” & q22 & “
    Trainee answer: ” & a22 & “

    strBody=strBody & “Correct answer: ” & c22 & “


    end if

    if a23 <> c23 then
    strBody=strBody & “Question 23: ” & q23 & “
    Trainee answer: ” & a23 & “

    strBody=strBody & “Correct answer: ” & c23 & “


    end if

    if a24 <> c24 then
    strBody=strBody & “Question 24: ” & q24 & “
    Trainee answer: ” & a24 & “

    strBody=strBody & “Correct answer: ” & c24 & “


    end if

    if a25 <> c25 then
    strBody=strBody & “Question 25: ” & q25 & “
    Trainee answer: ” & a25 & “

    strBody=strBody & “Correct answer: ” & c25 & “


    end if

    Dim strSubject : strSubject = ctn & ” Test Results”
    Dim strAddressGroup : strAddressGroup = ag
    Dim strFromName : strFromName = fn & ” ” & ln
    Dim strFromEmail : strFromEmail = em
    On Error Goto 0
    Set Mail = Server.CreateObject(“Persits.MailSender”)
    Mail.Host = Application(“mailserver”)

    Mail.From = strFromEmail
    Mail.FromName = strFromName
    Mail.AddReplyTo strFromEmail
    Mail.AddAddress “youremail@yourdomain.com”
    Mail.AddCC “youremail@yourdomain.com”

    Mail.Body = strBody
    Mail.Subject = strSubject
    Mail.IsHTML = True

    On Error Resume Next
    Mail.Send
    if err.number = 0 Then
    Response.Write “Email results sent succesfully”
    else
    Response.Write “Email failed to send

    Response.Write “Error Number: ” & err.number & “

    Response.Write “Error Description: ” & err.Description & “

    end if
    on error goto 0

    Set Mail = Nothing

    %>[/CODE][CODE]< %@ Language=VBScript %>

    < %
    Dim strBody
    fn=Session(“cFirstName”)
    ln=Session(“cLastName”)
    em=Session(“cemail”)
    un=request.form(“name”)
    t1=request.form(“_TestTime”)
    t2=request.form(“_TestTime2”)
    ts=request.form(“Module_test_Score”)
    ctn=request.form(“CurrentTitleName”)
    ag=request.form(“_addressgroup”)

    q1=request.form(“Question1”)
    q2=request.form(“Question2”)
    q3=request.form(“Question3”)
    q4=request.form(“Question4”)
    q5=request.form(“Question5”)
    q6=request.form(“Question6”)
    q7=request.form(“Question7”)
    q8=request.form(“Question8”)
    q9=request.form(“Question9”)
    q10=request.form(“Question10”)
    q11=request.form(“Question11”)
    q12=request.form(“Question12”)
    q13=request.form(“Question13”)
    q14=request.form(“Question14”)
    q15=request.form(“Question15”)
    q16=request.form(“Question16”)
    q17=request.form(“Question17”)
    q18=request.form(“Question18”)
    q19=request.form(“Question19”)
    q20=request.form(“Question20”)
    q21=request.form(“Question21”)
    q22=request.form(“Question22”)
    q23=request.form(“Question23”)
    q24=request.form(“Question24”)
    q25=request.form(“Question25”)

    a1=request.form(“Answer1”)
    a2=request.form(“Answer2”)
    a3=request.form(“Answer3”)
    a4=request.form(“Answer4”)
    a5=request.form(“Answer5”)
    a6=request.form(“Answer6”)
    a7=request.form(“Answer7”)
    a8=request.form(“Answer8”)
    a9=request.form(“Answer9”)
    a10=request.form(“Answer10”)
    a11=request.form(“Answer11”)
    a12=request.form(“Answer12”)
    a13=request.form(“Answer13”)
    a14=request.form(“Answer14”)
    a15=request.form(“Answer15”)
    a16=request.form(“Answer16”)
    a17=request.form(“Answer17”)
    a18=request.form(“Answer18”)
    a19=request.form(“Answer19”)
    a20=request.form(“Answer20”)
    a21=request.form(“Answer21”)
    a22=request.form(“Answer22”)
    a23=request.form(“Answer23”)
    a24=request.form(“Answer24”)
    a25=request.form(“Answer25”)

    c1=request.form(“CorrectAnswer1”)
    c2=request.form(“CorrectAnswer2”)
    c3=request.form(“CorrectAnswer3”)
    c4=request.form(“CorrectAnswer4”)
    c5=request.form(“CorrectAnswer5”)
    c6=request.form(“CorrectAnswer6”)
    c7=request.form(“CorrectAnswer7”)
    c8=request.form(“CorrectAnswer8”)
    c9=request.form(“CorrectAnswer9”)
    c10=request.form(“CorrectAnswer10”)
    c11=request.form(“CorrectAnswer11”)
    c12=request.form(“CorrectAnswer12”)
    c13=request.form(“CorrectAnswer13”)
    c14=request.form(“CorrectAnswer14”)
    c15=request.form(“CorrectAnswer15”)
    c16=request.form(“CorrectAnswer16”)
    c17=request.form(“CorrectAnswer17”)
    c18=request.form(“CorrectAnswer18”)
    c19=request.form(“CorrectAnswer19”)
    c20=request.form(“CorrectAnswer20”)
    c21=request.form(“CorrectAnswer21”)
    c22=request.form(“CorrectAnswer22”)
    c23=request.form(“CorrectAnswer23”)
    c24=request.form(“CorrectAnswer24”)
    c25=request.form(“CorrectAnswer25”)

    strBody=””
    if ts = “100” then
    strBody=strbody & “There are no incorrect answers for:


    else
    strBody=strBody & “Below is the listing of all the incorrect answers for:


    end if
    strBody=strbody & “Name: ” & un & “


    strBody=strbody & “Logged in as: ” & fn & ” ” & ln & “


    strBody=strbody & “Email: ” & em & “

    strBody=strBody & “Test Score: ” & ts & “%” & “


    strBody=strBody & “Time to complete reading module: ” & t1 & “


    strBody=strBody & “Total time to complete module and test: ” & t2 & “

    if a1 <> c1 then
    strBody=strBody & “Question 1: ” & q1 & “
    Trainee answer: ” & a1 & “

    strBody=strBody & “Correct answer: ” & c1 & “


    end if

    if a2 <> c2 then
    strBody=strBody & “Question 2: ” & q2 & “
    Trainee answer: ” & a2 & “

    strBody=strBody & “Correct answer: ” & c2 & “


    end if

    if a3 <> c3 then
    strBody=strBody & “Question 3: ” & q3 & “
    Trainee answer: ” & a3 & “

    strBody=strBody & “Correct answer: ” & c3 & “


    end if

    if a4 <> c4 then
    strBody=strBody & “Question 4: ” & q4 & “
    Trainee answer: ” & a4 & “

    strBody=strBody & “Correct answer: ” & c4 & “


    end if

    if a5 <> c5 then
    strBody=strBody & “Question 5: ” & q5 & “
    Trainee answer: ” & a5 & “

    strBody=strBody & “Correct answer: ” & c5 & “


    end if

    if a6 <> c6 then
    strBody=strBody & “Question 6: ” & q6 & “
    Trainee answer: ” & a6 & “

    strBody=strBody & “Correct answer: ” & c6 & “


    end if

    if a7 <> c7 then
    strBody=strBody & “Question 7: ” & q7 & “
    Trainee answer: ” & a7 & “

    strBody=strBody & “Correct answer: ” & c7 & “


    end if

    if a8 <> c8 then
    strBody=strBody & “Question 8: ” & q8 & “
    Trainee answer: ” & a8 & “

    strBody=strBody & “Correct answer: ” & c8 & “


    end if

    if a9 <> c9 then
    strBody=strBody & “Question 9: ” & q9 & “
    Trainee answer: ” & a9 & “

    strBody=strBody & “Correct answer: ” & c9 & “


    end if

    if a10 <> c10 then
    strBody=strBody & “Question 10: ” & q10 & “
    Trainee answer: ” & a10 & “

    strBody=strBody & “Correct answer: ” & c10 & “


    end if

    if a11 <> c11 then
    strBody=strBody & “Question 11: ” & q11 & “
    Trainee answer: ” & a11 & “

    strBody=strBody & “Correct answer: ” & c11 & “


    end if

    if a12 <> c12 then
    strBody=strBody & “Question 12: ” & q12 & “
    Trainee answer: ” & a12 & “

    strBody=strBody & “Correct answer: ” & c12 & “


    end if

    if a13 <> c13 then
    strBody=strBody & “Question 13: ” & q13 & “
    Trainee answer: ” & a13 & “

    strBody=strBody & “Correct answer: ” & c13 & “


    end if

    if a14 <> c14 then
    strBody=strBody & “Question 14: ” & q14 & “
    Trainee answer: ” & a14 & “

    strBody=strBody & “Correct answer: ” & c14 & “


    end if

    if a15 <> c15 then
    strBody=strBody & “Question 15: ” & q15 & “
    Trainee answer: ” & a15 & “

    strBody=strBody & “Correct answer: ” & c15 & “


    end if

    if a16 <> c16 then
    strBody=strBody & “Question 16: ” & q16 & “
    Trainee answer: ” & a16 & “

    strBody=strBody & “Correct answer: ” & c16 & “


    end if

    if a17 <> c17 then
    strBody=strBody & “Question 17: ” & q17 & “
    Trainee answer: ” & a17 & “

    strBody=strBody & “Correct answer: ” & c17 & “


    end if

    if a18 <> c18 then
    strBody=strBody & “Question 18: ” & q18 & “
    Trainee answer: ” & a18 & “

    strBody=strBody & “Correct answer: ” & c18 & “


    end if

    if a19 <> c19 then
    strBody=strBody & “Question 19: ” & q19 & “
    Trainee answer: ” & a19 & “

    strBody=strBody & “Correct answer: ” & c19 & “


    end if

    if a20 <> c20 then
    strBody=strBody & “Question 20: ” & q20 & “
    Trainee answer: ” & a20 & “

    strBody=strBody & “Correct answer: ” & c20 & “


    end if

    if a21 <> c21 then
    strBody=strBody & “Question 21: ” & q21 & “
    Trainee answer: ” & a21 & “

    strBody=strBody & “Correct answer: ” & c21 & “


    end if

    if a22 <> c22 then
    strBody=strBody & “Question 22: ” & q22 & “
    Trainee answer: ” & a22 & “

    strBody=strBody & “Correct answer: ” & c22 & “


    end if

    if a23 <> c23 then
    strBody=strBody & “Question 23: ” & q23 & “
    Trainee answer: ” & a23 & “

    strBody=strBody & “Correct answer: ” & c23 & “


    end if

    if a24 <> c24 then
    strBody=strBody & “Question 24: ” & q24 & “
    Trainee answer: ” & a24 & “

    strBody=strBody & “Correct answer: ” & c24 & “


    end if

    if a25 <> c25 then
    strBody=strBody & “Question 25: ” & q25 & “
    Trainee answer: ” & a25 & “

    strBody=strBody & “Correct answer: ” & c25 & “


    end if

    Dim strSubject : strSubject = ctn & ” Test Results”
    Dim strAddressGroup : strAddressGroup = ag
    Dim strFromName : strFromName = fn & ” ” & ln
    Dim strFromEmail : strFromEmail = em
    On Error Goto 0
    Set Mail = Server.CreateObject(“Persits.MailSender”)
    Mail.Host = Application(“mailserver”)

    Mail.From = strFromEmail
    Mail.FromName = strFromName
    Mail.AddReplyTo strFromEmail
    Mail.AddAddress “youremail@yourdomain.com”
    Mail.AddCC “youremail@yourdomain.com”

    Mail.Body = strBody
    Mail.Subject = strSubject
    Mail.IsHTML = True

    On Error Resume Next
    Mail.Send
    if err.number = 0 Then
    Response.Write “Email results sent succesfully”
    else
    Response.Write “Email failed to send

    Response.Write “Error Number: ” & err.number & “

    Response.Write “Error Description: ” & err.Description & “

    end if
    on error goto 0

    Set Mail = Nothing

    %>[/CODE]

Viewing 15 posts - 1 through 15 (of 20 total)

You must be logged in to reply to this topic.