tdaugaard >> mest til dig - ( det er jo DIT værk)

det er vedr. nedenstående script (igen) :

---- 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 & \"\'><img src=\'\" & RelativePath & f1.name & \"\' border=0></a><br></div>\"
    End If
Next
%> 
--- slut---

1 -kan man ikke skrive filnavnet under billedet ?

KUN filnavnet...

2 - kan man fortælle at billeder KUN skal vises med en procentdel af originalstørrelsen ?

mvh martens