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:
Mic restituisce il seguente errore: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 . . .
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.
Rispondi quotando
