% on error resume next strCompleted="You have completed the following exercises:
" strUncompleted="The following exercises are still remaining:
" if strNUMBERSGAME<>"" then strCompleted=strCompleted & "Numbers Game - Bienvenidos" & "
" 'strNumber= "Numbers Game" & "
" else strUncompleted=strUncompleted & "Numbers Game - Bienvenidos" & "
" 'strUnNumber="Numbers Game" & "
" end if if strFECHA<>"" then strCompleted=strCompleted & "Fechas - Bienvenidos" & "
" 'strNumber= "Numbers Game" & "
" else strUncompleted=strUncompleted & "Fechas - Bienvenidos" & "
" 'strUnNumber="Numbers Game" & "
" end if if strARTICLES<>"" then strCompleted=strCompleted & "Definite & Indefinite Articles - Lección 1" & "
" else strUncompleted=strUncompleted & "Definite & Indefinite Articles - Lección 1" & "
" end if If strADJECTIVES<>"" then strCompleted=strCompleted & "Adjectives - Lección 2" & "
" Else strUncompleted=strUncompleted & "Adjectives - Lección 2" & "
" end if If strSERESTAR<>"" then strCompleted=strCompleted & "Ser and Estar - Lección 2" & "
" Else strUncompleted=strUncompleted & "Ser and Estar - Lección 2" & "
" end if if strRESTAURANTE<>"" then strCompleted=strCompleted & "Caridad Restaurante - Lección 3" & "
" else strUncompleted=strUncompleted & "Caridad Restaurante - Lección 3" & "
" end if if strNUMBERS2<>"" then strCompleted=strCompleted & "Numbers 100-999 - Lección 3" & "
" else strUncompleted=strUncompleted & "Numbers 100-999 - Lección 3" & "
" end if if strPORPARA<>"" then strCompleted=strCompleted & "Por & Para - Lección 3" & "
" else strUncompleted=strUncompleted & "Por & Para - Lección 3" & "
" end if If strDO1<>"" then strCompleted=strCompleted & "Direct Objects 1 - Lección 5" & "
" Else strUncompleted=strUncompleted & "Direct Objects 1 - Lección 5" & "
" end if If strDO2<>"" then strCompleted=strCompleted & "Direct Objects 2 - Lección 5" & "
" Else strUncompleted=strUncompleted & "Direct Objects 2 - Lección 5" & "
" end if If strDO3<>"" then strCompleted=strCompleted & "Direct Objects 3 - Lección 5" & "
" Else strUncompleted=strUncompleted & "Direct Objects 3 - Lección 5" & "
" end if if strSABERCONOCER<>"" then strCompleted=strCompleted & "Saber and Conocer - Lección 5" & "
" else strUncompleted=strUncompleted & "Saber and Conocer - Lección 5" & "
" end if if strCOLORS<>"" then strCompleted=strCompleted & "Los colores - Lección 5" & "
" else strUncompleted=strUncompleted & "Los colores - Lección 5" & "
" end if if strWEATHER<>"" then strCompleted=strCompleted & "Weather - Lección 6" & "
" else strUncompleted=strUncompleted & "Weather - Lección 6" & "
" end if if strREFLEXIVES<>"" then strCompleted=strCompleted & "Reflexive Verbs & Pronouns - Lección 6" & "
" else strUncompleted=strUncompleted & "Reflexive Verbs & Pronouns - Lección 6" & "
" end if if strINDIRECTOBJECT1<>"" then strCompleted=strCompleted & "Indirect Objects 1 - Lección 7" & "
" else strUncompleted=strUncompleted & "Indirect Objects - Lección 7" & "
" end if if str1<>"" then strCompleted=strCompleted & "Preterit/Imperfect 1 - Lección 8" & "
" else strUncompleted=strUncompleted & "Preterit/Imperfect 1 - Lección 8" & "
" end if if str2<>"" then strCompleted=strCompleted & "Preterit/Imperfect 2 - Lección 8" & "
" else strUncompleted=strUncompleted & "Preterit/Imperfect 2 - Lección 8" & "
" end if if str3<>"" then strCompleted=strCompleted & "Subjunctive in Adjective Clauses I - Lección 12" & "
" else strUncompleted=strUncompleted & "Subjunctive in Adjective Clauses I - Lección 12" & "
" end if if str4<>"" then strCompleted=strCompleted & "Subjunctive in Adjective Clauses II - Lección 12" & "
" else strUncompleted=strUncompleted & "Subjunctive in Adjective Clauses II - Lección 12" & "
" end if if strJOYCE1<>"" then strCompleted=strCompleted & "Present/Present Progressive/Preterit I" & "Completed" & "
" else strUncompleted=strUncompleted & "Present/Present Progressive/Preterit I" & " Not Completed" & "
" end if if strJOYCE2<>"" then strCompleted=strCompleted & "Present/Present Progressive/Preterit II" & "Completed" & "
" else strUncompleted=strUncompleted & "Present/Present Progressive/Preterit II" & " Not Completed" & "
" end if if strJOYCE3<>"" then strCompleted=strCompleted & "Present/Present Progressive/Preterit III" & "Completed" & "
" else strUncompleted=strUncompleted & "Present/Present Progressive/Preterit III" & " Not Completed" & "
" end if if strJOYCE4<>"" then strCompleted=strCompleted & "Present/Present Progressive/Preterit IV" & "Completed" & "
" else strUncompleted=strUncompleted & "Present/Present Progressive/Preterit IV" & " Not Completed" & "
" end if if strADJCLAUSE1<>"" then strCompleted=strCompleted & "Indicative/Subjunctive in Adjective Clause I" & "Completed" & "
" else strUncompleted=strUncompleted & "Indicative/Subjunctive in Adjective Clause I" & " Not Completed" & "
" end if if strADJCLAUSE2<>"" then strCompleted=strCompleted & "Indicative/Subjunctive in Adjective Clause II" & "Completed" & "
" else strUncompleted=strUncompleted & "Indicative/Subjunctive in Adjective Clause II" & " Not Completed" & "
" end if %>