Felmeddelande på LoadPicture

Bjarne A skrev:

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: https://www.web10.se
Men inte på https://www.one.com
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

LoadPicture är ingen FSO-metod. I vilken fil är LoadPicture specad?

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 "<p>"%>

<% 

str_bildnamn = RS("bildnamnet") 
str_bildnamn2 = "images/" & str_bildnamn

IF NOT str_bildnamn = "" THEN %>

<%

IF getImgWidth(str_bildnamn2) > 215 THEN %>

<a id="thumb1" href="images/<%=str_bildnamn%>" class="highslide" onClick="return hs.expand(this)"><img src="images/<%=str_bildnamn%>" alt="Klicka för att förstora" width="215 hspace=" hspace="5"" vspace="5" border="0" align="left" title="Klicka för att förstora"5 /></a>

<%
ELSE
%>
<img src="images/<%=str_bildnamn%>"  hspace="5" vspace="5" align="left" />
<%
END IF

%> 
<%
END IF
%>

                <span class="rubrikruta"><%= RS("rubrik")%></span>
                <%Response.write "<BR>"%>
                <%=RS("datumet")%>
                <%Response.write "<BR><BR>"%>
                <%
mintext =replace(Server.HTMLEncode(RS("meddelande")), vbcrlf, "<br>")
mintext = Replace(mintext, "  ", "&nbsp;&nbsp;")
Response.Write mintext & "<HR size='1'>"

%>

               
                <%RS.MoveNext%>
                <%Loop%>
                <%
RS.close
set RS = nothing
%>

colione skrev:

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.

Troxy skrev:

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)

Då verkar det som man får klara sig utan detta :(
Tack för hjälpen