Function isValidPACSSession() ... Dim sessionID : sessionID = Request.QueryString("forSessionID") isValidPACSSession = SessionID2PACSUserID(sessionID) ... End Function
Function SessionID2PACSUserID(sSessionID) if (Not IsNull(sSessionID) AND Len(sSessionID) > 0) then ...it fails here at the Len function. else ... end if End Function
Aucun commentaire:
Enregistrer un commentaire