I am getting a type mismatch error and I think it is in the following code:
'---------------------------
Sub window_onload
Dim sLocked
sLocked = "<%=sMode%>"
thisForm.Status.value = "<%=sStatus%>"
thisForm.SubmissionDate.value = FormatDateTime("<%=vSubmissionDate%>",2)
thisForm.SubmissionTime.value = FormatDateTime("<%=vSubmissionTime%>",4)
thisForm.SubmittedBy.value = "<%=sSubmittedBy%>"
thisForm.AssignedTo.value = "<%=sAssignedTo%>"
thisForm.Level.value = "<%=sLevel%>"
thisForm.ContactName.value = "<%=sContactName%>"
thisForm.ContactTeam.value = "<%=sContactTeam%>"
thisForm.ContactPhone.value = "<%=sContactPhone%>"
thisForm.IssueType.value = "<%=sIssueType%>"
thisForm.EquipmentType.value = "<%=sEquipmentType%>"
thisForm.DateRequested.value = FormatDateTime("<%=vDateRequested%>",2)
thisForm.Description.value = "<%=sDescription%>"
thisForm.OccuranceDate.value = FormatDateTime("<%=vOccuranceDate%>",2)
thisForm.OccuranceTime.value = FormatDateTime("<%=vOccuranceTime%>",4)
thisForm.OccuranceLocation.value = "<%=sOccuranceLocation%>"
thisForm.Resolution.value = "<%=sResolution%>"
thisForm.FollowUp.value = "<%=sFollowUp%>"
'---------------------------
Sub window_onload
Dim sLocked
sLocked = "<%=sMode%>"
thisForm.Status.value = "<%=sStatus%>"
thisForm.SubmissionDate.value = FormatDateTime("<%=vSubmissionDate%>",2)
thisForm.SubmissionTime.value = FormatDateTime("<%=vSubmissionTime%>",4)
thisForm.SubmittedBy.value = "<%=sSubmittedBy%>"
thisForm.AssignedTo.value = "<%=sAssignedTo%>"
thisForm.Level.value = "<%=sLevel%>"
thisForm.ContactName.value = "<%=sContactName%>"
thisForm.ContactTeam.value = "<%=sContactTeam%>"
thisForm.ContactPhone.value = "<%=sContactPhone%>"
thisForm.IssueType.value = "<%=sIssueType%>"
thisForm.EquipmentType.value = "<%=sEquipmentType%>"
thisForm.DateRequested.value = FormatDateTime("<%=vDateRequested%>",2)
thisForm.Description.value = "<%=sDescription%>"
thisForm.OccuranceDate.value = FormatDateTime("<%=vOccuranceDate%>",2)
thisForm.OccuranceTime.value = FormatDateTime("<%=vOccuranceTime%>",4)
thisForm.OccuranceLocation.value = "<%=sOccuranceLocation%>"
thisForm.Resolution.value = "<%=sResolution%>"
thisForm.FollowUp.value = "<%=sFollowUp%>"