check om billede eksistere med FSO

Desuden skal man jo have adgang (id+password) til kataloget på den IP-adresse billederne ligger, der har jeg selvfølgelig, men hvor skal man sætte det ind henne??????

Eller skal man have lavet ftp adgang så man kan gøre sådan her:


<img src=\"www.domainnavn.dk/images/medarbejdere/pia.jpg\">" target="_blank">ftp://fpadresse:xjpz92@www.domainnavn.dk/images/medarbejdere/pia.jpg\">

JEg har også prøvet noget ala:

tt = server.mappath(\"www.domainnavn.dk/images/medarbejdere/\"" target="_blank">ftp://fpadresse:xjpz92@www.domainnavn.dk/images/medarbejdere/\")
Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFolder(tt)
  Set fc = f.Files
  For Each f1 in fc
      s = s & f1.name
      s = s & \"<BR>\"
  Next


men det virker heller ikke

Set fs = fs.GetFolder(\"http:\\\\ip\\pix\\\")

En gut foreslog mig at gøre dette:

\"<i>Det jeg ville gøre, er at oprette mappe et netværksdrev til det share du
connecter til. Derved kan du bruge FSO.</i>\"

Så hvis man kan få lavet et share hos webudebyderen,kan det lade sig gøre.

desværre mmp  dette kan ikke lade sig gøre.

Burde det ikke kunne klares således?


Set fs = Server.CreateObject(\"Scripting.FileSystemObject\")
                               
                                Set f = fs.Getfolder(\"w:\\\")
               
                                Set fc = f.Files
                                If instr(fc) = rs(\"classified_id\") Then
                                    For Each f1 in fc
                                        Response.Write \"<a href=\'#\' onclick=winpop(\'\" & f1.name & \"\') ><img alt=\'Tryk på billedet for at se det i stor\' border=0 src=\"\"\'\" & f1.name & \"\'\"\"></a><br>\"   
                                    Next
                                End If   

Er der nogen der har erfaring med dette?
Det virker nemlig ikke helt hvis man gør som i ovenstående kode.

Nu har fundet en løsning:
jvf. http://support.microsoft.com/support/kb/articles/Q197/9/64.ASP

og dette kode:

set rsFOR= con.Execute(\"SELECT * FROM  TableName WHERE id=\"& Request(\"id\"))

Dim fso, f, f1, fc, s
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFolder(\"\\\\ip-adresse\\folder\")

  Set fc = f.Files
  For Each f1 in fc
      If instr(f1.name,rsFOR(\"classified_id\")) Then
      s = s & f1.name
      s = s &  \"<BR>\"
      end if
  Next

det var nu sådan her.
set rsFOR= con.Execute(\"SELECT * FROM  TableName WHERE id=\"& Request(\"id\"))

Dim fso, f

Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set f = fso.GetFolder(\"\\\\ip-adresse\\folder\")
 
\'--------------
Dim FullFile,FullFileSmall

FullFile = rsFOR(\"id\") & \".jpg\"
FullFileSmall = f & \"\\subfolder\\\" & rsFOR(\"id\") & \".jpg\"

If (fso.FileExists(f & \"\\\" &  FullFile)) AND (fso.FileExists(FullFileSmall)) Then
    Response.write (\"<td><a href=\"\"#\"\" onclick=imagewin(\"\"showpic.asp?pic=\" & FullFile & \"\"\")><img alt=\"\"Tryk på billedet for at se det i stor\"\" border=\"\"0\"\" src=\"\"\" & FullFileSmall & \"\"\"></a></td>\")
Elseif (fso.FileExists(FullFileSmall)) Then
    Response.write (\"<td><img alt=\"\"\"\" border=\"\"0\"\" src=\"\"\" & FullFileSmall  & \"\"\"></td>\")
End IF