"Magnus" <arnason(fjern)@email.dk> skrev
> Er der en som kan give mig en god måde hvorpå man kan lave en funktion som
> kan bruges til at indsætte billeder fx.
> istedet for
> Response.write"<IMG SCR=billleder/billedfil.jpg>"
> så lave en funktion som tjekker om filen findes på den opgivne sti og
> skriver ovennævnte kode hvis filen findes.
Måske noget i denne stil? Jeg har smidt en masse kommentarer ind:
<%
Sub InsertImage(URL)
'Erklær variable
Dim objFileSystem, strImagePath
'Find billedstien på serveren
strImagePath = Server.MapPath(URL)
'Opret et FSO-object
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
'Se om billedet eksisterer og skriv det ud.
If objFileSystem.FileExists(strImagePath) Then
Response.Write("<img src=""" & URL & """ alt=""Image"" />")
End If
'Ryd op
Set objFileSystem = Nothing
End Sub
'Test proceduren
Call InsertImage("minsti/mitbillede.jpg")
%>