--- title: "Felmeddelande på LoadPicture" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/178003-felmeddelande-på-loadpicture" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Bjarne A" published: "2009-04-13T12:23:19.000Z" updated: "2009-04-14T20:43:33.000Z" replies: 6 views: 633 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/178003-felmeddelande-på-loadpicture" --- # Felmeddelande på LoadPicture ## #1 — Bjarne A, 2009-04-13T12:23Z Jag får följande felmeddelande: HTTP 500.100 - Internal Server Error - ASP error Apache Technical Information (for support personnel) \* Error Type: Sun ONE ASP VBScript runtime (0x800A4001) Function or method call not implemented: 'LoadPicture' /matchrapporter_adm.asp, line 110 \* Browser Type: Mozilla/5.0 (Windows; U; Windows NT 6.0; sv-SE; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8 (.NET CLR 3.5.30729) \* Page: GET /matchrapporter_adm.asp \* Time: Monday, April 13, 2009, 2:11:46 PM \* More information: Sun ONE Active Server Pages Support När jag hämtar bildens storlek med denna funktionen: ``` Function getImgWidth(img) Dim myImg, fs Set fs= CreateObject("Scripting.FileSystemObject") If fs.fileExists(Server.MapPath(img)) Then Set myImg = LoadPicture(Server.MapPath(img)) getImgWidth = Round(myImg.width / 26.4583) Set myImg = Nothing Else getImgWidth="Fel!" End If Set fs=Nothing End Function ``` Det funkar på ett webhotell: Men inte på Beror det på olika ASP tolkar eller kan man göra något åt det?? Permalänk: https://www.webforum.nu/p/178003 ## #2 — WebbisNet, 2009-04-13T13:03Z > **[Bjarne A skrev:](https://www.webforum.nu/p/1464184)** > > Jag får följande felmeddelande: > > HTTP 500.100 - Internal Server Error - ASP error > Apache > > Technical Information (for support personnel) > > \* Error Type: > Sun ONE ASP VBScript runtime (0x800A4001) > Function or method call not implemented: 'LoadPicture' > /matchrapporter_adm.asp, line 110 > > \* Browser Type: > Mozilla/5.0 (Windows; U; Windows NT 6.0; sv-SE; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8 (.NET CLR 3.5.30729) > > \* Page: > GET /matchrapporter_adm.asp > > \* Time: > Monday, April 13, 2009, 2:11:46 PM > > \* More information: > Sun ONE Active Server Pages Support > > > > När jag hämtar bildens storlek med denna funktionen: > > > > ``` > Function getImgWidth(img) > Dim myImg, fs > Set fs= CreateObject("Scripting.FileSystemObject") > If fs.fileExists(Server.MapPath(img)) Then > Set myImg = LoadPicture(Server.MapPath(img)) > getImgWidth = Round(myImg.width / 26.4583) > Set myImg = Nothing > Else > getImgWidth="Fel!" > End If > Set fs=Nothing > End Function > ``` > > > > Det funkar på ett webhotell: > Men inte på > Beror det på olika ASP tolkar eller kan man göra något åt det?? kan vara så att unixservrar inte gillar FSO web10 har windowsservrar med fullt stöd för asp och one.com har unixservrar med en asp-tolk som inte stöder asp fullt ut, ska du köra asp så ska du ha ett hotell med windowsservrar. Axentus som jag har är det fullt stöd på asp och jag kan även köra php där......men de kostar lite mer än de billiga hotellen Permalänk: https://www.webforum.nu/p/2181722 ## #3 — colione, 2009-04-13T17:15Z LoadPicture är ingen FSO-metod. I vilken fil är LoadPicture specad? Permalänk: https://www.webforum.nu/p/2181756 ## #4 — Bjarne A, 2009-04-13T19:26Z Jag hämtar ett bildnamn ur en databas Hämtar bildens storlek med denna funktion och visar bilden som den är om den är mindre än 215 px. Annars så skalar jag ner den och lägger ett javascript som förstorar den vid klickning. ``` <% Function getImgWidth(img) Dim myImg, fs Set fs= CreateObject("Scripting.FileSystemObject") If fs.fileExists(Server.MapPath(img)) Then Set myImg = LoadPicture(Server.MapPath(img)) getImgWidth = Round(myImg.width / 26.4583) Set myImg = Nothing Else getImgWidth="Fel!" End If Set fs=Nothing End Function strCon = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=morethanagame_s;UID=morethanagame_s;PWD=mtag2369" Set connect = Server.CreateObject("Adodb.Connection") connect.Open strCon %> <% SQL = "SELECT * FROM coming_up ORDER BY ID DESC" set rs = connect.execute(SQL) %> <%Do until Rs.EOF intCnt = intCnt + 1%> <%Response.write "

"%> <% str_bildnamn = RS("bildnamnet") str_bildnamn2 = "images/" & str_bildnamn IF NOT str_bildnamn = "" THEN %> <% IF getImgWidth(str_bildnamn2) > 215 THEN %> Klicka för att förstora <% ELSE %> <% END IF %> <% END IF %> <%= RS("rubrik")%> <%Response.write "
"%> <%=RS("datumet")%> <%Response.write "

"%> <% mintext =replace(Server.HTMLEncode(RS("meddelande")), vbcrlf, "
") mintext = Replace(mintext, " ", "  ") Response.Write mintext & "

" %> <%RS.MoveNext%> <%Loop%> <% RS.close set RS = nothing %> ``` Permalänk: https://www.webforum.nu/p/2181769 ## #5 — Troxy, 2009-04-14T06:52Z > **[colione skrev:](https://www.webforum.nu/p/1464223)** > > LoadPicture är ingen FSO-metod. I vilken fil är LoadPicture specad? Det är en VBScript-funktion: http://msdn.microsoft.com/en-us/library/66bd1sx9(VS.85).aspx Den verkar saknas i Sun ONE ASP. Permalänk: https://www.webforum.nu/p/2181804 ## #6 — colione, 2009-04-14T07:12Z > **[Troxy skrev:](https://www.webforum.nu/p/1464279)** > > Det är en VBScript-funktion: > http://msdn.microsoft.com/en-us/library/66bd1sx9(VS.85).aspx > > Den verkar saknas i Sun ONE ASP. Se där, man börjar bli lite rostig! (y) Permalänk: https://www.webforum.nu/p/2181805 ## #7 — Bjarne A, 2009-04-14T20:43Z Då verkar det som man får klara sig utan detta :( Tack för hjälpen Permalänk: https://www.webforum.nu/p/2181881 --- Tråden på webben: https://www.webforum.nu/amne/asp/178003-felmeddelande-på-loadpicture