Vise billeder fremfor link ...

har denne stump kode, men kunne godt tænke mig at billederne bliver vist (evt resized med et link til det store\"

----- START ---
  <%
AbsolutePath = \"C:\\InetPub\\wwwroot\\uploads\\\"
RelativePath = \"uploads/\"
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set f = fso.GetFolder (AbsolutePath)

For Each f1 in f.Files
    If UCase(Right(f1.name,3)) = \"JPG\" Then
    Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set fsoStream = fsoSystem.OpenTextFile(Server.MapPath(RelativePath & f1.name), 1, False)
        If Not fsoStream.AtEndOfstream Then strContent = fsoStream.ReadAll
    fsoStream.Close: Set fsoStream = Nothing
    Set fsoSystem = Nothing

    intTitle = InStr(LCase(strContent), \"<title>\")
    If intTitle > 0 Then
        intTitle = intTitle + 7
        intEndTitle = InStr(LCase(strContent), \"</title>\")

        strTitle = Mid(strContent, intTitle, (intEndTitle - intTitle))
    Else
        strTitle = f1 \' Ingen titel. Brug filnavnet.
    End If

        Response.Write \"<div align=center><a href=\'\" & RelativePath & f1.name & \"\'>\" & strTitle & \"</a><br></div>\"
    End If
Next
%> 

----- SLUT-----------------

Nemt for en ASP-haj :o)

mvh martens