I have installed the license you sent me in the bin directory of the web app. And added the code to license the module but I am still getting the red Evaluation Only on my docs.
How do I send you my License file and code to have you look at it.
Thanks,
Micahel
Please make sure that SetLicense command actually gets executed in your code by setting breakpoint and running the application in debug mode. SetLicense should either activate license if it is valid or throw an exception.
Check this please and let me know of the results.
Best regards,
Also make sure SetLicense is called before you use anything else in Aspose.Words.
yes the SetLicense command is being executed. Here is the code. Is there any whay by looking at the Aspose.Words.lic file you can tell if you have a redistered License or the Evaluation on.
Can I send you the Aspose.Words.lic file for you to take a look at?
Private Function WordBody() As String
Dim i As Integer
Dim LineNumber As Integer
Dim FormData(225) As Object
Dim lic As Aspose.Words.License = New Aspose.Words.License
Try
Dim appId As Integer = Request.QueryString.Item("AppId")
Dim appSQL As New cdiSummerCampApplication_SQL
Dim appRec As cdiSummerCampApplication_Record = appSQL.GetRecord(appId)
If appRec.FirstName = "" And appRec.LastName = "" Then
Return "No Record for " + appId.ToString + " ID: WordBody"
End If
lic.SetLicense("Aspose.Words.lic")
Dim doc As Aspose.Words.Document = New Aspose.Words.Document(NlomaFormDoc)
Dim t As DataTable = New DataTable("NlomaFormData")
Dim CabinCounselor As String
If appRec.CabinCounselor Then
CabinCounselor = strChecked
Else
CabinCounselor = strUnChecked
End If
Dim OnSiteDayCampStaff As String
If appRec.OnSiteDayCampStaff Then
OnSiteDayCampStaff = strChecked
Else
OnSiteDayCampStaff = strUnChecked
End If
Dim FamilyCampAssistant As String
If appRec.FamilyCampAssistant Then
FamilyCampAssistant = strChecked
Else
FamilyCampAssistant = strUnChecked
End If
Dim OffSiteDayCampStaff As String
If appRec.OffSiteDayCampStaff Then
OffSiteDayCampStaff = strChecked
Else
OffSiteDayCampStaff = strUnChecked
End If
Dim WorkWithHandicapped As String
If appRec.WorkWithHandicapped Then
WorkWithHandicapped = strChecked
Else
WorkWithHandicapped = strUnChecked
End If
Dim AdventureCounselor As String
If appRec.AdventureCounselor Then
AdventureCounselor = strChecked
Else
AdventureCounselor = strUnChecked
End If
'Program Staff Positions
Dim ProgramDirector As String
If appRec.ProgramDirector Then
ProgramDirector = strChecked
Else
ProgramDirector = strUnChecked
End If
Dim Waterfront As String
If appRec.Waterfront Then
Waterfront = strChecked
Else
Waterfront = strUnChecked
End If
Dim HorseCareInstruction As String
If appRec.HorseCareInstruction Then
HorseCareInstruction = strChecked
Else
HorseCareInstruction = strUnChecked
End If
Dim AdventureLeader As String
If appRec.AdventureLeader Then
AdventureLeader = strChecked
Else
AdventureLeader = strUnChecked
End If
Dim OffSiteTripLeader As String
If appRec.OffSiteTripLeader Then
OffSiteTripLeader = strChecked
Else
OffSiteTripLeader = strUnChecked
End If
Dim CounselorSupport As String
If appRec.CounselorSupport Then
CounselorSupport = strChecked
Else
CounselorSupport = strUnChecked
End If
Dim OffSiteDayCampLeader As String
If appRec.OffSiteDayCampLeader Then
OffSiteDayCampLeader = strChecked
Else
OffSiteDayCampLeader = strUnChecked
End If
Dim CraftsDirector As String
If appRec.CraftsDirector Then
CraftsDirector = strChecked
Else
CraftsDirector = strUnChecked
End If
Dim Lifeguard As String
If appRec.Lifeguard Then
Lifeguard = strChecked
Else
Lifeguard = strUnChecked
End If
Dim HorseRidingInstruction As String
If appRec.HorseRidingInstruction Then
HorseRidingInstruction = strChecked
Else
HorseRidingInstruction = strUnChecked
End If
Dim RopesCourse As String
If appRec.RopesCourse Then
RopesCourse = strChecked
Else
RopesCourse = strUnChecked
End If
Dim FamilyCampLeaders As String
If appRec.FamilyCampLeaders Then
FamilyCampLeaders = strChecked
Else
FamilyCampLeaders = strUnChecked
End If
'Support Staff Positions
Dim SpecialEventsPlanning As String
If appRec.SpecialEventsPlanning Then
SpecialEventsPlanning = strChecked
Else
SpecialEventsPlanning = strUnChecked
End If
Dim OnSiteDayCampLeader As String
If appRec.OnSiteDayCampLeader Then
OnSiteDayCampLeader = strChecked
Else
OnSiteDayCampLeader = strUnChecked
End If
'Support Staff Positions
Dim Cook As String
If appRec.Cook Then
Cook = strChecked
Else
Cook = strUnChecked
End If
Dim Dishwasher As String
If appRec.Dishwasher Then
Dishwasher = strChecked
Else
Dishwasher = strUnChecked
End If
Dim Maintance As String
If appRec.Maintance Then
Maintance = strChecked
Else
Maintance = strUnChecked
End If
Dim Medic As String
If appRec.Medic Then
Medic = strChecked
Else
Medic = strUnChecked
End If
Dim OfficeWorker As String
If appRec.OfficeWorker Then
OfficeWorker = strChecked
Else
OfficeWorker = strUnChecked
End If
Dim ComputerOperator As String
If appRec.ComputerOperator Then
ComputerOperator = strChecked
Else
ComputerOperator = strUnChecked
End If
Dim KitchenHelper As String
If appRec.ComputerOperator Then
KitchenHelper = strChecked
Else
KitchenHelper = strUnChecked
End If
Dim Housekeeper As String
If appRec.Housekeeper Then
Housekeeper = strChecked
Else
Housekeeper = strUnChecked
End If
Dim Groundskeeper As String
If appRec.Groundskeeper Then
Groundskeeper = strChecked
Else
Groundskeeper = strUnChecked
End If
Dim StoreKeeper As String
If appRec.StoreKeeper Then
StoreKeeper = strChecked
Else
StoreKeeper = strUnChecked
End If
Dim Photographer As String
If appRec.Photographer Then
Photographer = strChecked
Else
Photographer = strUnChecked
End If
Dim DesiredPosition1 As String = appRec.DesiredPosition1
Dim DesiredPosition2 As String = appRec.DesiredPosition2
Dim DesiredPosition3 As String = appRec.DesiredPosition3
FirstName = appRec.FirstName
LastName = appRec.LastName
Dim Nickname As String = appRec.Nickname
Dim BirthDate As String = appRec.BirthDate
Dim Male As String
Dim Female As String
If appRec.Gender = "Male" Then
Male = strChecked
Female = strUnChecked
Else
Female = strChecked
Male = strUnChecked
End If
Dim ReachYouCell As String
If appRec.ReachYouCell Then
ReachYouCell = strChecked
Else
ReachYouCell = strUnChecked
End If
Dim ReachYouHome As String
If appRec.ReachYouHome Then
ReachYouHome = strChecked
Else
ReachYouHome = strUnChecked
End If
Dim ReachYouSchool As String
If appRec.ReachYouSchool Then
ReachYouSchool = strChecked
Else
ReachYouSchool = strUnChecked
End If
Dim ReachYouWork As String
If appRec.ReachYouWork Then
ReachYouWork = strChecked
Else
ReachYouWork = strUnChecked
End If
Dim CellNumber As String = appRec.CellNumber
Dim HomeNumber As String = appRec.HomeNumber
Dim SchoolNumber As String = appRec.SchoolNumber
Dim WorkNumber As String = appRec.WorkNumber
Dim Email As String = appRec.Email
ApplicantEmailAddress = Email
Dim InstantMessage As String = appRec.InstantMessage
Dim PresentAddress1 As String = appRec.PresentAddress1
Dim PresentAddress2 As String = appRec.PresentAddress2
Dim PresentCity As String = appRec.PresentCity
Dim PresentState As String = appRec.PresentState
Dim PresentZip As String = appRec.PresentZip
Dim HomeAddress1 As String = appRec.HomeAddress1
Dim HomeAddress2 As String = appRec.HomeAddress2
Dim HomeCity As String = appRec.HomeCity
Dim HomeState As String = appRec.HomeState
Dim HomeZip As String = appRec.HomeZip
Dim HomeChurch As String = appRec.HomeChurch
Dim ChurchCityState As String = appRec.ChurchCityState
Dim Denomination As String = appRec.Denomination
Dim Synod As String = appRec.Synod
Dim CampChoice1 As String = CampChoice(appRec.CampChoice1)
Dim CampChoice2 As String = CampChoice(appRec.CampChoice2)
Dim RegionalPreference1 As String = RegionalChoice(appRec.RegionalPreference1)
Dim RegionalPreference2 As String = RegionalChoice(appRec.RegionalPreference2)
Dim AnyCamp As String
If appRec.AnyCamp Then
AnyCamp = strChecked
Else
AnyCamp = strUnChecked
End If
Dim CampExceptions As String = appRec.CampExceptions
Dim Position As String
Dim Location As String
If appRec.MostImportant = "Position" Then
Position = strChecked
Location = strUnChecked
Else
Position = strUnChecked
Location = strChecked
End If
Dim FirstChoiceCampYes As String
If appRec.FirstChoiceCampYes Then
FirstChoiceCampYes = strChecked
Else
FirstChoiceCampYes = strUnChecked
End If
Dim FirstChoiceCampNo As String
If appRec.FirstChoiceCampNo Then
FirstChoiceCampNo = strChecked
Else
FirstChoiceCampNo = strUnChecked
End If
Dim FirstChoiceJobYes As String
If appRec.FirstChoiceJobYes Then
FirstChoiceJobYes = strChecked
Else
FirstChoiceJobYes = strUnChecked
End If
Dim FirstChoiceJobNo As String
If appRec.FirstChoiceJobNo Then
FirstChoiceJobNo = strChecked
Else
FirstChoiceJobNo = strUnChecked
End If
'page 2
Dim CurrentCollege As String = appRec.CurrentCollege
Dim CurrentCity As String = appRec.CurrentCity
Dim CurrentMajor As String = appRec.CurrentMajor
Dim CurrentYears As String = appRec.CurrentYears
Dim CurrentDegree As String = appRec.CurrentDegree
Dim PreviousCollege As String = appRec.PreviousCollege
Dim PreviousCity As String = appRec.PreviousCity
Dim PreviousMajor As String = appRec.PreviousMajor
Dim PreviousYears As String = appRec.PreviousYears
Dim PreviousDegree As String = appRec.PreviousDegree
Dim OrganizationClubs As String = appRec.OrganizationClubs
Dim CampingAdventureLeaderSkills As String = appRec.CampingAdventureLeaderSkills
Dim SportsGamesCraftsSkills As String = appRec.SportsGamesCraftsSkills
Dim LeadershipInterpersonalSkills As String = appRec.LeadershipInterpersonalSkills
Dim MusicSkills As String = appRec.MusicSkills
Dim ChristianEducationSkills As String = appRec.ChristianEducationSkills
Dim KitchenSkills As String = appRec.KitchenSkills
Dim OfficeSkills As String = appRec.OfficeSkills
Dim MaintenanceSkills As String = appRec.MaintenanceSkills
Dim CampingAdventureLeaderNotWilling As String = appRec.CampingAdventureLeaderNotWilling
Dim SportsGamesCraftsNotWilling As String = appRec.SportsGamesCraftsNotWilling
Dim LeadershipInterpersonalNotWilling As String = appRec.LeadershipInterpersonalNotWilling
Dim MusicNotWilling As String = appRec.MusicNotWilling
Dim ChristianEducationNotWilling As String = appRec.ChristianEducationNotWilling
Dim KitchenNotWilling As String = appRec.KitchenNotWilling
Dim OfficeNotWilling As String = appRec.OfficeNotWilling
Dim MaintenanceNotWilling As String = appRec.MaintenanceNotWilling
Dim WaterfrontCertifications As String = appRec.WaterfrontCertifications
Dim HorsemanshipCertifications As String = appRec.HorsemanshipCertifications
Dim FoodCertifications As String = appRec.FoodCertifications
Dim MedicalCertifications As String = appRec.MedicalCertifications
Dim WildernessCertifications As String = appRec.WildernessCertifications
Dim OtherCertifications As String = appRec.OtherCertifications
Dim BillingualYes As String
If appRec.BillingualYes Then
BillingualYes = strChecked
Else
BillingualYes = strUnChecked
End If
Dim BillingualNo As String
If appRec.BillingualNo Then
BillingualNo = strChecked
Else
BillingualNo = strUnChecked
End If
Dim Languages As String = appRec.Languages
Dim WorkWithDisabledYes As String
If appRec.WorkWithDisabledYes Then
WorkWithDisabledYes = strChecked
Else
WorkWithDisabledYes = strUnChecked
End If
Dim WorkWithDisabledNo As String
If appRec.WorkWithDisabledNo Then
WorkWithDisabledNo = strChecked
Else
WorkWithDisabledNo = strUnChecked
End If
Dim WorkWithDisabled As String = appRec.WorkWithDisabled
Dim ImpairmentYes As String
If appRec.ImpairmentYes Then
ImpairmentYes = strChecked
Else
ImpairmentYes = strUnChecked
End If
Dim ImpairmentNo As String
If appRec.ImpairmentNo Then
ImpairmentNo = strChecked
Else
ImpairmentNo = strUnChecked
End If
Dim Impairment As String = appRec.Impairment
'page 3
Dim WhyDoYou As String = appRec.WhyDoYou
Dim Satisfaction As String = appRec.Satisfaction
Dim Failed As String = appRec.Failed
Dim Faith As String = appRec.Faith
Dim FavoriteBiblePassage As String = appRec.FavoriteBiblePassage
Dim LedDevotion As String
If appRec.LedDevotion Then
LedDevotion = strChecked
Else
LedDevotion = strUnChecked
End If
Dim LedDevotionTopic As String = appRec.LedDevotionTopic
Dim LedDevotionAudience As String = appRec.LedDevotionAudience
Dim LedBibleStudy As String
If appRec.LedBibleStudy Then
LedBibleStudy = strChecked
Else
LedBibleStudy = strUnChecked
End If
Dim LedBibleStudyTopic As String = appRec.LedBibleStudyTopic
Dim LedBibleStudyAudience As String = appRec.LedBibleStudyAudience
Dim LedWorship As String
If appRec.LedWorship Then
LedWorship = strChecked
Else
LedWorship = strUnChecked
End If
Dim LedWorshipTopic As String = appRec.LedWorshipTopic
Dim LedWorshipAudience As String = appRec.LedWorshipAudience
Dim WrittenDevotion As String
If appRec.WrittenDevotion Then
WrittenDevotion = strChecked
Else
WrittenDevotion = strUnChecked
End If
Dim WrittenDevotionTopic As String = appRec.WrittenDevotionTopic
Dim WrittenDevotionAudience As String = appRec.WrittenDevotionAudience
Dim WrittenBibleStudy As String
If appRec.WrittenBibleStudy Then
WrittenBibleStudy = strChecked
Else
WrittenBibleStudy = strUnChecked
End If
Dim WrittenBibleStudyTopic As String = appRec.WrittenBibleStudyTopic
Dim WrittenBibleStudyAudience As String = appRec.WrittenBibleStudyAudience
Dim WrittenWorship As String
If appRec.WrittenWorship Then
WrittenWorship = strChecked
Else
WrittenWorship = strUnChecked
End If
Dim WrittenWorshipTopic As String = appRec.WrittenWorshipTopic
Dim WrittenWorshipAudience As String = appRec.WrittenWorshipAudience
Dim Systematic As String
If appRec.Systematic Then
Systematic = strChecked
Else
Systematic = strUnChecked
End If
Dim Random As String
If appRec.Random Then
Random = strChecked
Else
Random = strUnChecked
End If
Dim Spontaneous As String
If appRec.Spontaneous Then
Spontaneous = strChecked
Else
Spontaneous = strUnChecked
End If
Dim Analyzer As String
If appRec.Analyzer Then
Analyzer = strChecked
Else
Analyzer = strUnChecked
End If
Dim Decisive As String
If appRec.Decisive Then
Decisive = strChecked
Else
Decisive = strUnChecked
End If
Dim Submissive As String
If appRec.Submissive Then
Submissive = strChecked
Else
Submissive = strUnChecked
End If
Dim Reserved As String
If appRec.Reserved Then
Reserved = strChecked
Else
Reserved = strUnChecked
End If
Dim Enthusiastic As String
If appRec.Enthusiastic Then
Enthusiastic = strChecked
Else
Enthusiastic = strUnChecked
End If
Dim Independent As String
If appRec.Independent Then
Independent = strChecked
Else
Independent = strUnChecked
End If
Dim Sociable As String
If appRec.Sociable Then
Sociable = strChecked
Else
Sociable = strUnChecked
End If
Dim Rigid As String
If appRec.Rigid Then
Rigid = strChecked
Else
Rigid = strUnChecked
End If
Dim Flexible As String
If appRec.Flexible Then
Flexible = strChecked
Else
Flexible = strUnChecked
End If
Dim Earliest As String = appRec.Earliest
Dim Latest As String = appRec.Latest
Dim CommitmentsYes As String
If appRec.CommitmentsYes Then
CommitmentsYes = strChecked
Else
CommitmentsYes = strUnChecked
End If
Dim CommitmentsNo As String
If appRec.CommitmentsNo Then
CommitmentsNo = strChecked
Else
CommitmentsNo = strUnChecked
End If
Dim Commitments As String = appRec.Commitments
Dim Distance As String = appRec.Distance
Dim MinimumYes As String
If appRec.MinimumYes Then
MinimumYes = strChecked
Else
MinimumYes = strUnChecked
End If
Dim MinimumNo As String
If appRec.MinimumNo Then
MinimumNo = strChecked
Else
MinimumNo = strUnChecked
End If
Dim Minimum As String = appRec.Minimum
'page 4
Dim RehireYouYes As String
If appRec.RehireYouYes Then
RehireYouYes = strChecked
Else
RehireYouYes = strUnChecked
End If
Dim RehireYouNo As String
If appRec.RehireYouNo Then
RehireYouNo = strChecked
Else
RehireYouNo = strUnChecked
End If
Dim RehireYou As String = appRec.RehireYou
Dim FiredYes As String
If appRec.FiredYes Then
FiredYes = strChecked
Else
FiredYes = strUnChecked
End If
Dim FiredNo As String
If appRec.FiredNo Then
FiredNo = strChecked
Else
FiredNo = strUnChecked
End If
Dim Fired As String = appRec.Fired
Dim Late As String = appRec.Late
Dim PreviouslyEmployedYes As String
If appRec.PreviouslyEmployedYes Then
PreviouslyEmployedYes = strChecked
Else
PreviouslyEmployedYes = strUnChecked
End If
Dim PreviouslyEmployedNo As String
If appRec.PreviouslyEmployedNo Then
PreviouslyEmployedNo = strChecked
Else
PreviouslyEmployedNo = strUnChecked
End If
Dim PreviouslyEmployed As String = appRec.PreviouslyEmployed
Dim PreviouslyVolunteeredYes As String
If appRec.PreviouslyVolunteeredYes Then
PreviouslyVolunteeredYes = strChecked
Else
PreviouslyVolunteeredYes = strUnChecked
End If
Dim PreviouslyVolunteeredNo As String
If appRec.PreviouslyVolunteeredNo Then
PreviouslyVolunteeredNo = strChecked
Else
PreviouslyVolunteeredNo = strUnChecked
End If
Dim PreviouslyVolunteered As String = appRec.PreviouslyVolunteered
Dim Employer1Company As String = appRec.Employer1Company
Dim Employer1Supervisor As String = appRec.Employer1Supervisor
Dim Employer1Job As String = appRec.Employer1Job
Dim Employer1City As String = appRec.Employer1City
Dim Employer1Phone As String = appRec.Employer1Phone
Dim Employer2Company As String = appRec.Employer2Company
Dim Employer2Supervisor As String = appRec.Employer2Supervisor
Dim Employer2Job As String = appRec.Employer2Job
Dim Employer2City As String = appRec.Employer2City
Dim Employer2Phone As String = appRec.Employer2Phone
Dim Ref1Name As String = appRec.Ref1Name
Dim Ref1Title As String = appRec.Ref1Title
Dim Ref1Address As String = appRec.Ref1Address
Dim Ref1City As String = appRec.Ref1City
Dim Ref1Phone As String = appRec.Ref1Phone
Dim Ref1Email As String = appRec.Ref1Email
Dim Ref2Name As String = appRec.Ref2Name
Dim Ref2Title As String = appRec.Ref2Title
Dim Ref2Address As String = appRec.Ref2Address
Dim Ref2City As String = appRec.Ref2City
Dim Ref2Phone As String = appRec.Ref2Phone
Dim Ref2Email As String = appRec.Ref2Email
Dim Ref3Name As String = appRec.Ref3Name
Dim Ref3Title As String = appRec.Ref3Title
Dim Ref3Address As String = appRec.Ref3Address
Dim Ref3City As String = appRec.Ref3City
Dim Ref3Phone As String = appRec.Ref3Phone
Dim Ref3Email As String = appRec.Ref3Email
Dim SmokingYes As String
If appRec.SmokingYes Then
SmokingYes = strChecked
Else
SmokingYes = strUnChecked
End If
Dim SmokingNo As String
If appRec.SmokingNo Then
SmokingNo = strChecked
Else
SmokingNo = strUnChecked
End If
Dim AlocholicBeverages As String = appRec.AlocholicBeverages
Dim IllegalDrugsYes As String
If appRec.IllegalDrugsYes Then
IllegalDrugsYes = strChecked
Else
IllegalDrugsYes = strUnChecked
End If
Dim IllegalDrugsNo As String
If appRec.IllegalDrugsNo Then
IllegalDrugsNo = strChecked
Else
IllegalDrugsNo = strUnChecked
End If
Dim FelonyYes As String
If appRec.FelonyYes Then
FelonyYes = strChecked
Else
FelonyYes = strUnChecked
End If
Dim FelonyNo As String
If appRec.FelonyNo Then
FelonyNo = strChecked
Else
FelonyNo = strUnChecked
End If
Dim Felony As String = appRec.Felony
Dim ParoleYes As String
If appRec.ParoleYes Then
ParoleYes = strChecked
Else
ParoleYes = strUnChecked
End If
Dim ParoleNo As String
If appRec.ParoleNo Then
ParoleNo = strChecked
Else
ParoleNo = strUnChecked
End If
Dim ChildAbuseYes As String
If appRec.ChildAbuseYes Then
ChildAbuseYes = strChecked
Else
ChildAbuseYes = strUnChecked
End If
Dim ChildAbuseNo As String
If appRec.ChildAbuseNo Then
ChildAbuseNo = strChecked
Else
ChildAbuseNo = strUnChecked
End If
Dim ChildAbuse As String = appRec.ChildAbuse
Dim SSN As String = appRec.SSN
Dim DriversLicenseNumber As String = appRec.DriversLicenseNumber
Dim DriversLicenseState As String = appRec.DriversLicenseState
Dim DriversLicenseType As String = appRec.DriversLicenseType
Dim LegallyEligibleYes As String
If appRec.LegallyEligibleYes Then
LegallyEligibleYes = strChecked
Else
LegallyEligibleYes = strUnChecked
End If
Dim LegallyEligibleNo As String
If appRec.LegallyEligibleNo Then
LegallyEligibleNo = strChecked
Else
LegallyEligibleNo = strUnChecked
End If
Dim BackroundCheckYes As String
If appRec.BackroundCheckYes Then
BackroundCheckYes = strChecked
Else
BackroundCheckYes = strChecked
End If
Dim BackroundCheckNo As String
If appRec.BackroundCheckNo Then
BackroundCheckNo = strChecked
Else
BackroundCheckNo = strUnChecked
End If
'************************Columns**********************************
t.Columns.Add("CabinCounselor")
t.Columns.Add("OnSiteDayCampStaff")
t.Columns.Add("FamilyCampAssistant")
t.Columns.Add("OffSiteDayCampStaff")
t.Columns.Add("WorkWithHandicapped")
t.Columns.Add("AdventureCounselor")
t.Columns.Add("ProgramDirector")
t.Columns.Add("Waterfront")
t.Columns.Add("HorseCareInstruction")
t.Columns.Add("AdventureLeader")
t.Columns.Add("OffSiteTripLeader")
t.Columns.Add("CounselorSupport")
t.Columns.Add("OffSiteDayCampLeader")
t.Columns.Add("CraftsDirector")
t.Columns.Add("Lifeguard")
t.Columns.Add("HorseRidingInstruction")
t.Columns.Add("RopesCourse")
t.Columns.Add("FamilyCampLeaders")
t.Columns.Add("SpecialEventsPlanning")
t.Columns.Add("OnSiteDayCampLeader")
t.Columns.Add("Cook")
t.Columns.Add("Dishwasher")
t.Columns.Add("Maintance")
t.Columns.Add("Medic")
t.Columns.Add("OfficeWorker")
t.Columns.Add("ComputerOperator")
t.Columns.Add("KitchenHelper")
t.Columns.Add("Housekeeper")
t.Columns.Add("Groundskeeper")
t.Columns.Add("StoreKeeper")
t.Columns.Add("Photographer")
t.Columns.Add("DesiredPosition1")
t.Columns.Add("DesiredPosition2")
t.Columns.Add("DesiredPosition3")
t.Columns.Add("FirstName")
t.Columns.Add("LastName")
t.Columns.Add("Nickname")
t.Columns.Add("BirthDate")
t.Columns.Add("Male")
t.Columns.Add("Female")
t.Columns.Add("ReachYouCell")
t.Columns.Add("ReachYouHome")
t.Columns.Add("ReachYouSchool")
t.Columns.Add("ReachYouWork")
t.Columns.Add("CellNumber")
t.Columns.Add("HomeNumber")
t.Columns.Add("SchoolNumber")
t.Columns.Add("WorkNumber")
t.Columns.Add("Email")
t.Columns.Add("InstantMessage")
t.Columns.Add("PresentAddress1")
t.Columns.Add("PresentAddress2")
t.Columns.Add("PresentCity")
t.Columns.Add("PresentState")
t.Columns.Add("PresentZip")
t.Columns.Add("HomeAddress1")
t.Columns.Add("HomeAddress2")
t.Columns.Add("HomeCity")
t.Columns.Add("HomeState")
t.Columns.Add("HomeZip")
t.Columns.Add("HomeChurch")
t.Columns.Add("ChurchCityState")
t.Columns.Add("Denomination")
t.Columns.Add("Synod")
t.Columns.Add("CampChoice1")
t.Columns.Add("CampChoice2")
t.Columns.Add("RegionalPreference1")
t.Columns.Add("RegionalPreference2")
t.Columns.Add("AnyCamp")
t.Columns.Add("CampExceptions")
t.Columns.Add("Position")
t.Columns.Add("Location")
t.Columns.Add("FirstChoiceCampYes")
t.Columns.Add("FirstChoiceCampNo")
t.Columns.Add("FirstChoiceJobYes")
t.Columns.Add("FirstChoiceJobNo")
'page 2
t.Columns.Add("CurrentCollege")
t.Columns.Add("CurrentCity")
t.Columns.Add("CurrentMajor")
t.Columns.Add("CurrentYears")
t.Columns.Add("CurrentDegree")
t.Columns.Add("PreviousCollege")
t.Columns.Add("PreviousCity")
t.Columns.Add("PreviousMajor")
t.Columns.Add("PreviousYears")
t.Columns.Add("PreviousDegree")
t.Columns.Add("OrganizationClubs")
t.Columns.Add("CampingAdventureLeaderSkills")
t.Columns.Add("SportsGamesCraftsSkills")
t.Columns.Add("LeadershipInterpersonalSkills")
t.Columns.Add("MusicSkills")
t.Columns.Add("ChristianEducationSkills")
t.Columns.Add("KitchenSkills")
t.Columns.Add("OfficeSkills")
t.Columns.Add("MaintenanceSkills")
t.Columns.Add("CampingAdventureLeaderNotWilling")
t.Columns.Add("SportsGamesCraftsNotWilling")
t.Columns.Add("LeadershipInterpersonalNotWilling")
t.Columns.Add("MusicNotWilling")
t.Columns.Add("ChristianEducationNotWilling")
t.Columns.Add("KitchenNotWilling")
t.Columns.Add("OfficeNotWilling")
t.Columns.Add("MaintenanceNotWilling")
t.Columns.Add("WaterfrontCertifications")
t.Columns.Add("HorsemanshipCertifications")
t.Columns.Add("FoodCertifications")
t.Columns.Add("MedicalCertifications")
t.Columns.Add("WildernessCertifications")
t.Columns.Add("OtherCertifications")
t.Columns.Add("BillingualYes")
t.Columns.Add("BillingualNo")
t.Columns.Add("Languages")
t.Columns.Add("ImpairmentsYes")
t.Columns.Add("ImpairmentsNo")
t.Columns.Add("Impairments")
t.Columns.Add("WorkWithDisabledYes")
t.Columns.Add("WorkWithDisabledNo")
t.Columns.Add("WorkWithDisabled")
'page 3
t.Columns.Add("WhyDoYou")
t.Columns.Add("Satisfaction")
t.Columns.Add("Failed")
t.Columns.Add("Faith")
t.Columns.Add("FavoriteBiblePassage")
t.Columns.Add("LedDevotion")
t.Columns.Add("LedDevotionTopic")
t.Columns.Add("LedDevotionAudience")
t.Columns.Add("LedBibleStudy")
t.Columns.Add("LedBibleStudyTopic")
t.Columns.Add("LedBibleStudyAudience")
t.Columns.Add("LedWorship")
t.Columns.Add("LedWorshipTopic")
t.Columns.Add("LedWorshipAudience")
t.Columns.Add("WrittenDevotion")
t.Columns.Add("WrittenDevotionTopic")
t.Columns.Add("WrittenDevotionAudience")
t.Columns.Add("WrittenBibleStudy")
t.Columns.Add("WrittenBibleStudyTopic")
t.Columns.Add("WrittenBibleStudyAudience")
t.Columns.Add("WrittenWorship")
t.Columns.Add("WrittenWorshipTopic")
t.Columns.Add("WrittenWorshipAudience")
t.Columns.Add("Systematic")
t.Columns.Add("Random")
t.Columns.Add("Spontaneous")
t.Columns.Add("Analyzer")
t.Columns.Add("Decisive")
t.Columns.Add("Submissive")
t.Columns.Add("Reserved")
t.Columns.Add("Enthusiastic")
t.Columns.Add("Independent")
t.Columns.Add("Sociable")
t.Columns.Add("Rigid")
t.Columns.Add("Flexible")
t.Columns.Add("Earliest")
t.Columns.Add("Latest")
t.Columns.Add("CommitmentsYes")
t.Columns.Add("CommitmentsNo")
t.Columns.Add("Commitments")
t.Columns.Add("Distance")
t.Columns.Add("MinimumYes")
t.Columns.Add("MinimumNo")
t.Columns.Add("Minimum")
'page 4
t.Columns.Add("RehireYouYes")
t.Columns.Add("RehireYouNo")
t.Columns.Add("RehireYou")
t.Columns.Add("FiredYes")
t.Columns.Add("FiredNo")
t.Columns.Add("FiredYou")
t.Columns.Add("Late")
t.Columns.Add("PreviouslyEmployedYes")
t.Columns.Add("PreviouslyEmployedNo")
t.Columns.Add("PreviouslyEmployed")
t.Columns.Add("PreviouslyVolunteeredYes")
t.Columns.Add("PreviouslyVolunteeredNo")
t.Columns.Add("PreviouslyVolunteered")
t.Columns.Add("Employer1Company")
t.Columns.Add("Employer1Supervisor")
t.Columns.Add("Employer1Job")
t.Columns.Add("Employer1City")
t.Columns.Add("Employer1Phone")
t.Columns.Add("Employer2Company")
t.Columns.Add("Employer2Supervisor")
t.Columns.Add("Employer2Job")
t.Columns.Add("Employer2City")
t.Columns.Add("Employer2Phone")
t.Columns.Add("Ref1Name")
t.Columns.Add("Ref1Title")
t.Columns.Add("Ref1Address")
t.Columns.Add("Ref1City")
t.Columns.Add("Ref1Phone")
t.Columns.Add("Ref1Email")
t.Columns.Add("Ref2Name")
t.Columns.Add("Ref2Title")
t.Columns.Add("Ref2Address")
t.Columns.Add("Ref2City")
t.Columns.Add("Ref2Phone")
t.Columns.Add("Ref2Email")
t.Columns.Add("Ref3Name")
t.Columns.Add("Ref3Title")
t.Columns.Add("Ref3Address")
t.Columns.Add("Ref3City")
t.Columns.Add("Ref3Phone")
t.Columns.Add("Ref3Email")
t.Columns.Add("SmokingYes")
t.Columns.Add("SmokingNo")
t.Columns.Add("AlocholicBeverages")
t.Columns.Add("IllegalDrugsYes")
t.Columns.Add("IllegalDrugsNo")
t.Columns.Add("FelonyYes")
t.Columns.Add("FelonyNo")
t.Columns.Add("Felony")
t.Columns.Add("ParoleYes")
t.Columns.Add("ParoleNo")
t.Columns.Add("ChildAbuseYes")
t.Columns.Add("ChildAbuseNo")
t.Columns.Add("ChildAbuse")
t.Columns.Add("SSN")
t.Columns.Add("DriversLicenseNumber")
t.Columns.Add("DriversLicenseState")
t.Columns.Add("DriversLicenseType")
t.Columns.Add("LegallyEligibleYes")
t.Columns.Add("LegallyEligibleNo")
t.Columns.Add("BackroundCheckYes")
t.Columns.Add("BackroundCheckNo")
t.Columns.Add("Signature")
t.Columns.Add("Signaturedate")
'****************************************Load Array*********************
i = 0
FormData(i) = CabinCounselor
i = i + 1
FormData(i) = OnSiteDayCampStaff
i = i + 1
FormData(i) = FamilyCampAssistant
i = i + 1
FormData(i) = OffSiteDayCampStaff
i = i + 1
FormData(i) = WorkWithHandicapped
i = i + 1
FormData(i) = AdventureCounselor
i = i + 1
FormData(i) = ProgramDirector
i = i + 1
FormData(i) = Waterfront
i = i + 1
FormData(i) = HorseCareInstruction
i = i + 1
FormData(i) = AdventureLeader
i = i + 1
FormData(i) = OffSiteTripLeader
i = i + 1
FormData(i) = CounselorSupport
i = i + 1
FormData(i) = OffSiteDayCampLeader
i = i + 1
FormData(i) = CraftsDirector
i = i + 1
FormData(i) = Lifeguard
i = i + 1
FormData(i) = HorseRidingInstruction
i = i + 1
FormData(i) = RopesCourse
i = i + 1
FormData(i) = FamilyCampLeaders
i = i + 1
FormData(i) = SpecialEventsPlanning
i = i + 1
FormData(i) = OnSiteDayCampLeader
i = i + 1
FormData(i) = Cook
i = i + 1
FormData(i) = Dishwasher
i = i + 1
FormData(i) = Maintance
i = i + 1
FormData(i) = Medic
i = i + 1
FormData(i) = OfficeWorker
i = i + 1
FormData(i) = ComputerOperator
i = i + 1
FormData(i) = KitchenHelper
i = i + 1
FormData(i) = Housekeeper
i = i + 1
FormData(i) = Groundskeeper
i = i + 1
FormData(i) = StoreKeeper
i = i + 1
FormData(i) = Photographer
i = i + 1
FormData(i) = DesiredPosition1
i = i + 1
FormData(i) = DesiredPosition2
i = i + 1
FormData(i) = DesiredPosition3
i = i + 1
FormData(i) = FirstName
i = i + 1
FormData(i) = LastName
i = i + 1
FormData(i) = Nickname
i = i + 1
FormData(i) = BirthDate
i = i + 1
FormData(i) = Male
i = i + 1
FormData(i) = Female
i = i + 1
FormData(i) = ReachYouCell
i = i + 1
FormData(i) = ReachYouHome
i = i + 1
FormData(i) = ReachYouSchool
i = i + 1
FormData(i) = ReachYouWork
i = i + 1
FormData(i) = CellNumber
i = i + 1
FormData(i) = HomeNumber
i = i + 1
FormData(i) = SchoolNumber
i = i + 1
FormData(i) = WorkNumber
i = i + 1
FormData(i) = Email
i = i + 1
FormData(i) = InstantMessage
i = i + 1
FormData(i) = PresentAddress1
i = i + 1
FormData(i) = PresentAddress2
i = i + 1
FormData(i) = PresentCity
i = i + 1
FormData(i) = PresentState
i = i + 1
FormData(i) = PresentZip
i = i + 1
FormData(i) = HomeAddress1
i = i + 1
FormData(i) = HomeAddress2
i = i + 1
FormData(i) = HomeCity
i = i + 1
FormData(i) = HomeState
i = i + 1
FormData(i) = HomeZip
i = i + 1
FormData(i) = HomeChurch
i = i + 1
FormData(i) = ChurchCityState
i = i + 1
FormData(i) = Denomination
i = i + 1
FormData(i) = Synod
i = i + 1
FormData(i) = CampChoice1
i = i + 1
FormData(i) = CampChoice2
i = i + 1
FormData(i) = RegionalPreference1
i = i + 1
FormData(i) = RegionalPreference2
i = i + 1
FormData(i) = AnyCamp
i = i + 1
FormData(i) = CampExceptions
i = i + 1
FormData(i) = Position
i = i + 1
FormData(i) = Location
i = i + 1
FormData(i) = FirstChoiceCampYes
i = i + 1
FormData(i) = FirstChoiceCampNo
i = i + 1
FormData(i) = FirstChoiceJobYes
i = i + 1
FormData(i) = FirstChoiceJobNo
i = i + 1
'page 2
FormData(i) = CurrentCollege
i = i + 1
FormData(i) = CurrentCity
i = i + 1
FormData(i) = CurrentMajor
i = i + 1
FormData(i) = CurrentYears
i = i + 1
FormData(i) = CurrentDegree
i = i + 1
FormData(i) = PreviousCollege
i = i + 1
FormData(i) = PreviousCity
i = i + 1
FormData(i) = PreviousMajor
i = i + 1
FormData(i) = PreviousYears
i = i + 1
FormData(i) = PreviousDegree
i = i + 1
FormData(i) = OrganizationClubs
i = i + 1
FormData(i) = CampingAdventureLeaderSkills
i = i + 1
FormData(i) = SportsGamesCraftsSkills
i = i + 1
FormData(i) = LeadershipInterpersonalSkills
i = i + 1
FormData(i) = MusicSkills
i = i + 1
FormData(i) = ChristianEducationSkills
i = i + 1
FormData(i) = KitchenSkills
i = i + 1
FormData(i) = OfficeSkills
i = i + 1
FormData(i) = MaintenanceSkills
i = i + 1
FormData(i) = CampingAdventureLeaderNotWilling
i = i + 1
FormData(i) = SportsGamesCraftsNotWilling
i = i + 1
FormData(i) = LeadershipInterpersonalNotWilling
i = i + 1
FormData(i) = MusicNotWilling
i = i + 1
FormData(i) = ChristianEducationNotWilling
i = i + 1
FormData(i) = KitchenNotWilling
i = i + 1
FormData(i) = OfficeNotWilling
i = i + 1
FormData(i) = MaintenanceNotWilling
i = i + 1
FormData(i) = WaterfrontCertifications
i = i + 1
FormData(i) = HorsemanshipCertifications
i = i + 1
FormData(i) = FoodCertifications
i = i + 1
FormData(i) = MedicalCertifications
i = i + 1
FormData(i) = WildernessCertifications
i = i + 1
FormData(i) = OtherCertifications
i = i + 1
FormData(i) = BillingualYes
i = i + 1
FormData(i) = BillingualNo
i = i + 1
FormData(i) = Languages
i = i + 1
FormData(i) = ImpairmentYes
i = i + 1
FormData(i) = ImpairmentNo
i = i + 1
FormData(i) = Impairment
i = i + 1
FormData(i) = WorkWithDisabledYes
i = i + 1
FormData(i) = WorkWithDisabledNo
i = i + 1
FormData(i) = WorkWithDisabled
i = i + 1
'page 3
FormData(i) = WhyDoYou
i = i + 1
FormData(i) = Satisfaction
i = i + 1
FormData(i) = Failed
i = i + 1
FormData(i) = Faith
i = i + 1
FormData(i) = FavoriteBiblePassage
i = i + 1
FormData(i) = LedDevotion
i = i + 1
FormData(i) = LedDevotionTopic
i = i + 1
FormData(i) = LedDevotionAudience
i = i + 1
FormData(i) = LedBibleStudy
i = i + 1
FormData(i) = LedBibleStudyTopic
i = i + 1
FormData(i) = LedBibleStudyAudience
i = i + 1
FormData(i) = LedWorship
i = i + 1
FormData(i) = LedWorshipTopic
i = i + 1
FormData(i) = LedWorshipAudience
i = i + 1
FormData(i) = WrittenDevotion
i = i + 1
FormData(i) = WrittenDevotionTopic
i = i + 1
FormData(i) = WrittenDevotionAudience
i = i + 1
FormData(i) = WrittenBibleStudy
i = i + 1
FormData(i) = WrittenBibleStudyTopic
i = i + 1
FormData(i) = WrittenBibleStudyAudience
i = i + 1
FormData(i) = WrittenWorship
i = i + 1
FormData(i) = WrittenWorshipTopic
i = i + 1
FormData(i) = WrittenWorshipAudience
i = i + 1
FormData(i) = Systematic
i = i + 1
FormData(i) = Random
i = i + 1
FormData(i) = Spontaneous
i = i + 1
FormData(i) = Analyzer
i = i + 1
FormData(i) = Decisive
i = i + 1
FormData(i) = Submissive
i = i + 1
FormData(i) = Reserved
i = i + 1
FormData(i) = Enthusiastic
i = i + 1
FormData(i) = Independent
i = i + 1
FormData(i) = Sociable
i = i + 1
FormData(i) = Rigid
i = i + 1
FormData(i) = Flexible
i = i + 1
FormData(i) = Earliest
i = i + 1
FormData(i) = Latest
i = i + 1
FormData(i) = CommitmentsYes
i = i + 1
FormData(i) = CommitmentsNo
i = i + 1
FormData(i) = Commitments
i = i + 1
FormData(i) = Distance
i = i + 1
FormData(i) = MinimumYes
i = i + 1
FormData(i) = MinimumNo
i = i + 1
FormData(i) = Minimum
i = i + 1
'page 4
FormData(i) = RehireYouYes
i = i + 1
FormData(i) = RehireYouNo
i = i + 1
FormData(i) = RehireYou
i = i + 1
FormData(i) = FiredYes
i = i + 1
FormData(i) = FiredNo
i = i + 1
FormData(i) = Fired
i = i + 1
FormData(i) = Late
i = i + 1
FormData(i) = PreviouslyEmployedYes
i = i + 1
FormData(i) = PreviouslyEmployedNo
i = i + 1
FormData(i) = PreviouslyEmployed
i = i + 1
FormData(i) = PreviouslyVolunteeredYes
i = i + 1
FormData(i) = PreviouslyVolunteeredNo
i = i + 1
FormData(i) = PreviouslyVolunteered
i = i + 1
FormData(i) = Employer1Company
i = i + 1
FormData(i) = Employer1Supervisor
i = i + 1
FormData(i) = Employer1Job
i = i + 1
FormData(i) = Employer1City
i = i + 1
FormData(i) = Employer1Phone
i = i + 1
FormData(i) = Employer2Company
i = i + 1
FormData(i) = Employer2Supervisor
i = i + 1
FormData(i) = Employer2Job
i = i + 1
FormData(i) = Employer2City
i = i + 1
FormData(i) = Employer2Phone
i = i + 1
FormData(i) = Ref1Name
i = i + 1
FormData(i) = Ref1Title
i = i + 1
FormData(i) = Ref1Address
i = i + 1
FormData(i) = Ref1City
i = i + 1
FormData(i) = Ref1Phone
i = i + 1
FormData(i) = Ref1Email
i = i + 1
FormData(i) = Ref2Name
i = i + 1
FormData(i) = Ref2Title
i = i + 1
FormData(i) = Ref2Address
i = i + 1
FormData(i) = Ref2City
i = i + 1
FormData(i) = Ref2Phone
i = i + 1
FormData(i) = Ref2Email
i = i + 1
FormData(i) = Ref3Name
i = i + 1
FormData(i) = Ref3Title
i = i + 1
FormData(i) = Ref3Address
i = i + 1
FormData(i) = Ref3City
i = i + 1
FormData(i) = Ref3Phone
i = i + 1
FormData(i) = Ref3Email
i = i + 1
FormData(i) = SmokingYes
i = i + 1
FormData(i) = SmokingNo
i = i + 1
FormData(i) = AlocholicBeverages
i = i + 1
FormData(i) = IllegalDrugsYes
i = i + 1
FormData(i) = IllegalDrugsNo
i = i + 1
FormData(i) = FelonyYes
i = i + 1
FormData(i) = FelonyNo
i = i + 1
FormData(i) = Felony
i = i + 1
FormData(i) = ParoleYes
i = i + 1
FormData(i) = ParoleNo
i = i + 1
FormData(i) = ChildAbuseYes
i = i + 1
FormData(i) = ChildAbuseNo
i = i + 1
FormData(i) = ChildAbuse
i = i + 1
FormData(i) = SSN
i = i + 1
FormData(i) = DriversLicenseNumber
i = i + 1
FormData(i) = DriversLicenseState
i = i + 1
FormData(i) = DriversLicenseType
i = i + 1
LineNumber = 1
FormData(i) = LegallyEligibleYes
i = i + 1
FormData(i) = LegallyEligibleNo
i = i + 1
LineNumber = 2
FormData(i) = BackroundCheckYes
i = i + 1
FormData(i) = BackroundCheckNo
i = i + 1
LineNumber = 3
FormData(i) = FirstName + " " + LastName
i = i + 1
LineNumber = 4
FormData(i) = Today.ToShortDateString
'Add Row
LineNumber = 5
t.Rows.Add(FormData)
LineNumber = 6
doc.MailMerge.Execute(t)
LineNumber = 6
doc.Save(NlomaApplicationPath + FirstName + "_" + LastName + ".doc")
Catch ex As Exception
Return ex.Message + " FormData(i):" + i.ToString + " Line Number:" + LineNumber.tostring
End Try
Return ""
End Function
Two things:
1. SetLicense will throw an exception if it cannot find a license. Maybe it does so in your case. You catch all exception and return their message as a string. You must be sure you do something useful with this string (log it and check the log), otherwise you can easily overlook the exceptions the program is throwing at your.
2. If this function is called more then once, then calling SetLicense each time is a waste or computer resources. It should only be called once per application, you can do that at startup time.
1. The string is returned to the screen in a error text box and emailed to me.
2. This is the only section of code that SetLicense is in.
lic.SetLicense("Aspose.Words.lic")
Dim doc As Aspose.Words.Document = New Aspose.Words.Document(NlomaFormDoc)
then at the end of the try I:
doc.Save(NlomaApplicationPath + FirstName + "_" + LastName + ".doc")
if an error was to happen at the lic.SetLicense statement I wouldn't get a doc. Because the try would break and the last statment:
doc.Save(NlomaApplicationPath + FirstName + "_" + LastName + ".doc")
would not execuite.
Other things to try:
1. Make sure the document that you open with Aspose.Words does not have evaluation watermark already. Aspose.Words does not remove existing watermarks.
2. Try a very simple console application that consists of three lines: SetLicense, open document and save document.
3. Try explicit, hardcoded path for the license file.
If nothing of the above helps, email your license file to auckland at aspose dot com so I can look at it.
Yes. Thank you. The Evaluation Only is on the templete.