Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'strShortName'

/person/priem.asp, line 93