print_r

<% Sub print_r(var) Dim myPrint Set myPrint = New clsPrint myPrint.print var, 0 End Sub Class clsPrint Public Sub print(var, nIndent) Dim nType, sTypeName 'Response.Write TypeName(var) nType = VarType(var) Select…