Buongiorno
Ho un grave problema su aruba ho googlato parecchio ma non trovo la soluzione, qualcuno di voi ha avuto esperienze come questa.
Praticamente ho il seguente errore sul mio portalapp 4.0
Microsoft VBScript runtime error '800a01a8'
Object required: 'labels.documentElement'
/asc/common/i_utils.asp, line 700
ma non sarebbe l'errore in se il problema. Il fratto è che quando salvo il global.asa ho le sessioni al posto e funziona tutto, quando passa la mezzanotte boh forse il server IIS di aruba riparte e ho questo errore. A me sembra molto strano, cioè lperrore non ci sarebbe nemmeno. Se salvo nuovamente il global.asa riparte tutto a modo. Il global.asa è questo
codice:<object runat="server" scope="application" id="online_users" progid="scripting.dictionary"> </object> <object runat="server" scope="session" id="page_vars" progid="scripting.dictionary"></object> <object runat="server" scope="application" id="labels_alt" progid="scripting.dictionary"> </object> <object runat="server" scope="application" id="labels" progid="MSXML2.DOMDocument"></object> <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart ':: app database connection string application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=C:\inetpub\wwwroot\mdb-database \8691.mdb" ':: connection string examples 'application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data/8691.mdb") & "" 'application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=E:\homepages \useraccount\db\8691.mdb" 'application("cn_str") = "provider=SQLOLEDB.1; server=serverip_or_address;database=database_name;uid=userid;pwd=password" ':: initilize app variables from database set cn = Server.CreateObject("ADODB.Connection") on error resume next cn.Open application("cn_str") set rs = cn.Execute("SELECT * FROM AppSettings") for each field in rs.Fields application(field.Name) = field.Value next on error goto 0 ':: alternate scripting dict labels used when XMLDOC is not available on server labels_alt("lbl_addtofavorites")="Add to Favorites" labels_alt("lbl_admin")="ACP" labels_alt("lbl_auction")="Auction" labels_alt("lbl_affiliates")="Partners" labels_alt("lbl_avgrating")="Rating" labels_alt("lbl_calendar")="Calendar" labels_alt("lbl_cart")="My Cart" labels_alt("lbl_catdelim")="/" labels_alt("lbl_chat")="Chat" labels_alt("lbl_commerce")="Shop" labels_alt("lbl_contact")="Contact" labels_alt("lbl_copyright")="Copyright" labels_alt("lbl_dateadded")="Created" labels_alt("lbl_datealert")="Alert" labels_alt("lbl_datelastmod")="Updated" labels_alt("lbl_datejoined")="Joined" labels_alt("lbl_datelast")="Last Login" labels_alt("lbl_download")="Download" labels_alt("lbl_home")="Home" labels_alt("lbl_feeds")="Feeds" labels_alt("lbl_forums")="Forums" labels_alt("lbl_friends")="Friends" labels_alt("lbl_impressions")="Impressions" labels_alt("lbl_inbox")="Inbox" labels_alt("lbl_location")="Location" labels_alt("lbl_login")="Login" labels_alt("lbl_logout")="Logout" labels_alt("lbl_menu_home")="" labels_alt("lbl_messaging")="Messaging" labels_alt("lbl_more")="More" labels_alt("lbl_myfavorites")="My Favorites" labels_alt("lbl_newest")="New Content" labels_alt("lbl_newsletter")="Newsletter" labels_alt("lbl_next")="Next" labels_alt("lbl_none")="None" labels_alt("lbl_passwordlookup")="Password Lookup" labels_alt("lbl_popular")="Most Popular" labels_alt("lbl_prev")="Previous" labels_alt("lbl_profile")="Profile" labels_alt("lbl_rate")="Rate" labels_alt("lbl_readreviews")="Read comments" labels_alt("lbl_register")="Register" labels_alt("lbl_regcode")="Obtain a registration code" labels_alt("lbl_regemail")="Email Address" labels_alt("lbl_relatedurl")="Website" labels_alt("lbl_search")="Search" labels_alt("lbl_select")="Select" labels_alt("lbl_signature")="Signature" labels_alt("lbl_sitemap")="Sitemap" labels_alt("lbl_sort")="Sort" labels_alt("lbl_surveys")="Surveys" labels_alt("lbl_toprated")="Top Rated" labels_alt("lbl_events")="Events" labels_alt("lbl_upload")="Upload" labels_alt("lbl_user")="Member" labels_alt("lbl_whos_online")="Online Now" labels_alt("lbl_form_title")="Title" labels_alt("lbl_form_cat")="Category" labels_alt("lbl_form_shortdesc")="Description" labels_alt("lbl_form_longdesc")="Content" labels_alt("lbl_form_author")="Author" labels_alt("lbl_form_user")="Username" labels_alt("lbl_form_email")="Email" labels_alt("lbl_form_filename")="Filename" labels_alt("lbl_form_relatedurl")="Related URL" labels_alt("lbl_form_downloadurl")="Download URL" labels_alt("lbl_form_image")="Image" labels_alt("lbl_form_thumbnail")="Thumbnail" labels_alt("lbl_form_nextcontent")="Next" labels_alt("lbl_form_prevcontent")="Previous" labels_alt("lbl_form_priority")="Priority" labels_alt("lbl_form_status")="Status" labels_alt("lbl_form_datealert")="Alert Date" labels_alt("lbl_form_username")="Username" labels_alt("lbl_form_password")="Password" labels_alt("lbl_form_addr1")="Address" labels_alt("lbl_form_addr2")="Address (2)" labels_alt("lbl_form_city")="City" labels_alt("lbl_form_state")="State / Province" labels_alt("lbl_form_postalcode")="Postal Code" labels_alt("lbl_form_country")="Country" labels_alt("lbl_form_phone")="Phone" labels_alt("lbl_form_fname")="First Name" labels_alt("lbl_form_lname")="Last Name" labels_alt("lbl_form_notes")="Comments" labels_alt("lbl_form_mailinglist")="Subscribe" labels_alt("btn_add")="Add+" labels_alt("btn_edit")="Edit.." labels_alt("btn_login")="Login" labels_alt("btn_vote")="Vote" labels_alt("btn_results")="Results" labels_alt("lbl_rememberme")="Remember my on this computer" labels_alt("lbl_newuserregister")="New user? Click here to sign-in." labels_alt("opt_permalink")=".html" labels_alt("lang")="en" labels_alt("charset")="windows-1252" labels_alt("langname")="English" labels_alt("lcid")="1033" labels_alt("codepage")="" ':: load xml labels labels.async = False labels.Load(server.MapPath("common/language.xml")) End Sub Sub Session_OnStart ':: set default user session timeout session.timeout = 30 ':: set default LCID if application("lcid")<>"" and not isNull(application("lcid")) then session.lcid = application("lcid") else session.lcid = 1033 end if ':: set default languge if application("lang")<>"" and not isNull(application("lang")) then session("lang") = application("lang") else session("lang") = "en" end if End Sub Sub Session_OnEnd if isObject(online_users) then on error resume next online_users.remove (session.sessionid) end if End Sub </SCRIPT>

Rispondi quotando

