Class not defined: 'System'

[Enrique_Rojas]

Non riesco a risolvere questo problema:

Microsoft VBScript runtime error '800a01fa' 

Class not defined: 'System' 

/public/photobook/default.asp, line 5

qualunche file richiamo di questo script mi segnala quest'errore...

<%

Class PhotoBook

	Private page


	Private Sub Class_Initialize()
		Call GetClientData()
		Call DisplayPage()
	End Sub


	Private Sub GetClientData()
		page = Request("page")
	End Sub


	Private Sub DisplayPage()
		Dim sys, thisApp, system
		
		Set sys = New System
		Call sys.ImportLibrary("application")
		
		Set thisApp = New CurrentApplication
		
		Select Case page
			Case "viewcat":
				Server.Execute(thisApp.LocalPath & "/viewcat.asp")
			Case "viewphoto":
				Server.Execute(thisApp.LocalPath & "/viewphoto.asp")
			Case Else:
				Server.Execute(thisApp.LocalPath & "/main.asp")
		End Select
		
		Set thisApp = Nothing
		Set sys = Nothing
	End Sub

End Class

Dim pb__
Set pb__ = New PhotoBook
Set pb__ = Nothing

%>

[gold]

se usi solo questo cod senza includere nessun altro file allora ti posso dire che la classe System (Set sys = New System) non esiste...

quindi cerchi di richiamare una cosa che non c'è

[Enrique_Rojas]

Originariamente inviato da gold
se usi solo questo cod senza includere nessun altro file allora ti posso dire che la classe System (Set sys = New System) non esiste...

quindi cerchi di richiamare una cosa che non c'è

E' uno script scaricato da un sito di asp... scaricalo da qui e provalo se puoi per favore...