Vis billede

Skal det ikke være?:


Function Icon(Forhold)
   
    If Forhold <> "N/A" Then
     
        Select Case Forhold
       
          Case "Klart"
            Forhold = "sti/til/billede.gif"
          Case "Delvist klart"
            Forhold = "sti/til/billede.gif"
          Case "Mest klart"
            Forhold = "sti/til/billede.gif"
          Case "Overskyet"
            Forhold = "sti/til/billede.gif"
          Case "Delvist skyet"
            Forhold = "sti/til/billede.gif"
          Case "Mest skyet"
            Forhold = "sti/til/billede.gif"
          Case "Sne"   
            Forhold = "sti/til/billede.gif"
          Case "Sol"   
            Forhold = "sti/til/billede.gif"
          Case "Tåget"   
            Forhold = "sti/til/billede.gif"
          Case "Regn"   
            Forhold = "sti/til/billede.gif"
          Case "Lyn"   
            Forhold = "sti/til/billede.gif"
          Case "Storm"   
            Forhold = "sti/til/billede.gif"
          Case Else   
            Forhold = "sti/til/billede.gif"
       
        End Select

    Else
        Forhold = "sti/til/billede.gif"
    End If

    Icon = Forhold
End Function

Nej for det virker fint nok.
Jeg skal bare have så Icon indeholder en sti til et billede.
F.eks. <img src="sti/til/billede.gif">

Ik?

hmm... jeg ville nok lave det i JavaScript, i stedet for VBScript. VBScript virker kun i Microsoft Internet Explorer. JavaScript virker i alle browsere (med mindre at man slår det fra).

Ligende kode i java script: http://www.metalshell.com/view/source/101/

Det skal ikke bruges til en browser. Det er et script til min pc der afvikles af windows og ikke en browser. Jeg skal bare have den til at vise et billede!!

Hvor skal den vise billedet henne? Dertil skal du vel bruge et program, med et billede-objekt..?
Jeg tror ikke at .vbs filer kan vise billeder.. men måske tager jeg fejl..

Kan man ikke udskrive det som html?

"udskrive det som html"? Du siger jo at det ikke er til en browser..? :)
HTML = Hyper Text Markup Language (et sprog der anvedes på nettet)

Hvad er det lige at du vil?

Hvad med at indsætte efterfølgende .............

Dim wsh

set wsh = Wscript.CreateObject("WScript.shell")
wsh.run "sti til billede.gif"

nielsrs> Hvis det ikke melder fejl, vil det højst sandsynligt åbne billedet, i standard programmet der er registreret i Windows.

Lukker!