Salve ragazzi sto cercando di richiamre un'oggetto da remoto per eseguire una login.

Ecco lo script e in rosso evidenzio le righe per richiamre l'oggetto:
codice:
<%
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	' MailEnable Web Client Application
	'
	' (C) MailEnable Pty. Ltd. 2002-2005
	'
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

	Dim oOptions As Object 
	Dim MessagesPerPage
	Dim MessageListSize
	Dim AllowNewWindows
	Dim MsgFormat
	Dim SiteSkinName, SiteDefaultPostoffice

	Function GetFieldCount(InString, FieldDelimiter)
	    Dim DelimiterPos
	    Dim DelimiterCount
	    DelimiterPos = 0

	    Do
	        DelimiterPos = InStr(DelimiterPos + 1, InString, FieldDelimiter)
	        DelimiterCount = DelimiterCount + 1
	    Loop While (DelimiterPos > 0) And (DelimiterCount < 100)
	    GetFieldCount = DelimiterCount
	End Function

	Function GetListItem(ItemList, Delimiter, ItemNumber)
	    'gets the specific item from a delimited list
	    
	    Dim sItems

	    On Error Resume Next        'return empty if there is an error
	    sItems = Split(ItemList, Delimiter)
	    GetListItem = sItems(ItemNumber - 1)
	    if err.number<>0 then GetListItem=""
	End Function
	

	Sub ReportApplicationError(ApplicationName, ModuleName, ErrorNumber, ErrorDescription)
		Response.Write "<HTML><head><META name=""ROBOTS"" content=""NOINDEX,NOFOLLOW"">"
		Response.Write "<META HTTP-EQUIV=""content-type"" CONTENT=""text/html;charset=iso-8859-1"">"
		Response.Write "<title>System Error</title>"
		Response.Write "</head>"
		Response.Write "<BODY BGCOLOR=""#DFDFDF"">"
		Response.Write "<H1>" & ApplicationName & " - System Error</H1>
"  
		Response.Write "
This service is currently experiencing difficulties.

Our apologies for any inconvenience.

"  
		Response.Write "
The following error needs to be rectified:

"  
		Response.Write  ApplicationName & " - " & ModuleName & " Error (" & ErrNumber & ") " & ErrorDescription & ".
"  
		Response.Write "To resolve this problem please refer to the MailEnable Knowledge Base."
		Response.Write "</BODY></HTML>"
		Response.End
	End Sub

	If Not Application("Initialised") = True Then
		On Error Resume Next
		'Dim oOptions As Object
		Set oOptions = Server.CreateObject("MEWebmail.Options")
		oOptions.CurrentHost = "80.68.196.90"
        oOptions.SetHost 		If Err <> 0 Then
			ReportApplicationError "MailEnable WebMail","MTS/COM+ MEWebMail.Options",Err,Err.Description
		End If

		MessagesPerPage = oOptions.GetOptionValue("MessagesPerPage","","")
		If MessagesPerPage = 0 then
			MessagesPerPage = 15
		End If


		UseDeletedItemsFolder = oOptions.GetOptionValue("UseDeletedItemsFolder","","")
		If UseDeletedItemsFolder = 0 then
			UseDeletedItemsFolder = 1
		End If
		
		ClearDeletedOnLogOff = oOptions.GetOptionValue("ClearDeletedOnLogOff","","")
		If ClearDeletedOnLogOff = 0 then
			ClearDeletedOnLogOff = 1
		End If
				
		MessageListSize = oOptions.GetOptionValue("MessageListSize","","")
		If MessageListSize = 0 Then
			MessageListSize = 270
		End If
		SessionTimeout = oOptions.GetOptionValue("SessionTimeout","","")
		If SessionTimeout = 0 Then
			SessionTimeout = 40
		End If
		ScriptTimeout = oOptions.GetOptionValue("ScriptTimeout","","")
		If ScriptTimeout = 0 Then
			ScriptTimeout = 1800
		End If
		
		MsgFormat = oOptions.GetOptionString("MsgFormat","","")
		If CStr(MsgFormat) = "" Then
			MsgFormat = "HTML"
		End If
		
		
		MessageListSize = oOptions.GetOptionValue("MessageListSize","","")
		If MessageListSize = 0 Then
			MessageListSize = 270
		End If
		
		AllowNewWindows = oOptions.GetOptionValue("AllowNewWindows","","")
		If AllowNewWindows = 0 or Len(CStr(AllowNewWindows)) <= 0 Then
			AllowNewWindows = 1
		End If
		
		NotificationStatus = oOptions.GetOptionValue("NotificationStatus","","")
		Frequency = oOptions.GetOptionValue("PollFrequency","","")
		
		

		Set oOptions = Nothing
.
.
.
Mic restituisce il seguente errore:
Expected end of statement alla riga 2 che è questa:
Dim oOptions As Object

Scusate ma non riesco a capire il perchè.
Potete cortesemente aiutarmi.
Grazie a tutti in anticipo.