Hente default billede hvis stien/navnet er angivet forkert

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists("din_sti")) = true then
      filnavn = din_sti
Else
      filnavn = "intet_billede.jpg"
End If

set fs = nothing %>

<img src="../../images/distrikt/<%=filnavn%>" width="90" height="90" border="1">

/Kovalt

tak for det hurtige svar kovalt - jeg er ikke sikker på det er det jeg skal bruge - jeg er dårlig til at formulere mine spørgsmål:

den skal kunne 3 ting:

1. hvis værdien i (rsDistrikt.Fields.Item("Billede").Value) er tom skal den vise "intet_billede.jpg"
2. hvis der er en værdi skal den vise det tilsvarende billede (filnavn = (rsDistrikt.Fields.Item("Billede").Value))
3. hvis der er en værdi men billedet ikke ligger i biblioteket ="../../images/distrikt/" så skal den vise "ugyldigt_billede.jpg"

tillægs spørgsmål: er det muligt at få den til at hente "intet_billede.jpg"
og "ugyldigt_billede.jpg" fra et andet bibliotek

satte den lige op til 60 point

hvad er forskellen på pkt. 1 og 3

1. er hvis der slet ikke angives noget
3. er hvis der angives noget, men filnavnet er forkert

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(din_sti) = "" then
      filnavn = "intet_billede.jpg"
else

      If (fs.FileExists("din_sti")) = true then
        filnavn = din_sti
      Else
        filnavn = "intet_billede.jpg"
      End If

      set fs = nothing

end if %>

<img src="../../images/distrikt/<%=filnavn%>" width="90" height="90" border="1">

/kovalt

er det et formularfelt brugeren kan indtaste i eller?

ja - det er et formularfelt

hvor brugeren indtaster en sti - og så skal dit program tjekke om stien er gyldig (dvs. der er ikke noget upload forbundet med det)

Kan du bruge det her:

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(din_sti) = "" then 'her tjekkes om der er indtastet noget
      filnavn = "intet_billede.jpg"
else

      If (fs.FileExists("din_sti")) = true then 'her tjekkes om stien er gyldig
        filnavn = din_sti
      Else
        filnavn = "intet_billede.jpg"
      End If

      set fs = nothing

end if %>

<img src="../../images/distrikt/<%=filnavn%>" width="90" height="90" border="1">

/kovalt

nej - programmet skal ikke checke om stien er gyldig, men om det billedenavn brugeren angiver ligger i det bibliotek jeg definerer (../../images/distrikt/)

skal min kode så se sådan ud:
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "" then
      filnavn = "intet_billede.jpg"
else

      If (fs.FileExists("../../images/distrikt/")) = true then
        filnavn = (rsDistrikt.Fields.Item("Billede").Value)
      Else
        filnavn = "ugyldigt_billede.jpg"
      End If

      set fs = nothing

end if %>

er det ikke det samme:

nej - programmet skal ikke checke om stien er gyldig, men om det billedenavn brugeren angiver ligger i det bibliotek jeg definerer (../../images/distrikt/)

giver den her linie:

filnavn = (rsDistrikt.Fields.Item("Billede").Value)


dig det filnavn som brugeren har indtastet

/kovalt

ja - det giver mig filnavnet (men ikke stien)

dette ser ikke ud til at virke:

      If (fs.FileExists("../../images/distrikt/")) = true then
        filnavn = (rsDistrikt.Fields.Item("Billede").Value)

hvis rsDistrikt.Fields.Item("Billede").Value er i biblioteket: ../../images/distrikt/ skal den vise billedet

så prøv med:

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "" then
      filnavn = "intet_billede.jpg"
else

      If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value
      Else
        filnavn = "ugyldigt_billede.jpg"
      End If

      set fs = nothing

end if %>

If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

det kører ok igennem, men den viser ikke billedet hvis det eksisterer

prøv at udskrive filnavn:

response.write "Filnavn: "& filnavn

og se om stien er korrekt der

/Kovalt

response.write "Filnavn: ../../images/admin/ugyldigt_billede.jpg

er den korret den sti?

<%=(rsDistrikt.Fields.Item("Billede").Value)%> = 1.jpg

ja - hvis den skal vise ugyldigt_billede er stien korrekt - men den skal vise 1.jpg

koden ser sådan ud:
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then
      filnavn = "../../images/admin/intet_billede.jpg"
else

If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

      Else
        filnavn = "../../images/admin/ugyldigt_billede.jpg"
      End If

      set fs = nothing

end if %>

denne kode: <%=("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)%> giver: ../../images/distrikt/1.jpg

det ser jo rigtigt ud - men den fanger den ikke i den der fs.FileExists

ligger ugyldigt billede og de andre billeder i samme bib

skal denne linie:

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then

ikke være

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "" then

12/11-2003 10:49:44 - nej det ligger i ../../images/admin
12/11-2003 10:51:01 - jo - jeg brugte det lige til test

så den har det rigtige billede i rsDistrikt.Fields.Item("Billede").Value men det vises ikke. den viser ugyldigt_billede.jpg

hvilket billede ligger i ../../imaegs/admin?

../../images/admin/intet_billede.jpg
../../images/admin/ugyldigt_billede.jpg

alle de rigtige billeder ligger i ../../images/distrikt/

og hvad er det der er galt med det her.

I hvilket tilfælde virker det og hvornår virker det ikke?

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then
      filnavn = "../../images/admin/intet_billede.jpg"
else

If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

      Else
        filnavn = "../../images/admin/ugyldigt_billede.jpg"
      End If

      set fs = nothing

end if %>

VIRKER:
if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then
      filnavn = "../../images/admin/intet_billede.jpg"


VIRKER IKKE:
If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

VIRKER:
        filnavn = "../../images/admin/ugyldigt_billede.jpg"


Filnavnet eks er 1.jpg og jeg ved det ligger i biblioteket (../../images/distrikt/) - men den viser ugyldigt_billede.jpg

hvor får du hvis du indtaster stien til et billede der eksisterer og derefter udskriver:

response.write "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value))

giver det den korrekte sti?

http://www.border-wines.dk/images/distrikt/1.jpg

virker det så?

jeg får denne sti: ../../images/distrikt/1.jpg ved at indsætte:
<%response.write "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value%>

det virker ikke - den viser ugyldigt_billede.jpg

så der må være et eller andet med:
If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

VIRKER:
if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then
      filnavn = "../../images/admin/intet_billede.jpg"


VIRKER IKKE:
If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value
response.wriet "test"

VIRKER:
        filnavn = "../../images/admin/ugyldigt_billede.jpg"


Filnavnet eks er 1.jpg og jeg ved det ligger i biblioteket (../../images/distrikt/) - men den viser ugyldigt_billede.jpg

prøv det og se om der bliver udskrevet test....

nu har jeg forsøgt at checke det:
If fs.FileExists("../../images/distrikt/1.jpg") = true then
  response.write("File exists!")
men den finder den ikke

der udskrives ikke tekst:
If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value
response.wriet "test"

If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value
        response.write ("test")
- jeg havde rettet response.write
- still nothing

nu har jeg prøver med en sikker vinder:
if fs.FileExists("C:\ExtendedDB\CATFILE.CDX")=true then
  response.write("File exists!")
men den skriver stadig intet - den løber måske slet ikke koden igennem ?

okay - jeg har prøvet med lokale og webfiler
men den æder ingen af dem - skriver hele tiden at filen ikke eksisterer
.
er der noget galt med FileExist eller min Azero server eller ?

prøv det her.. udskriver den nummer1 eller nummer2

<% Set fs=Server.CreateObject("Scripting.FileSystemObject")

if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then
      filnavn = "../../images/admin/intet_billede.jpg"
      reponse.write "nummer1"
else

If (fs.FileExists("../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value)) = true then
        filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value
      reponse.write "nummer2"
      Else
        filnavn = "../../images/admin/ugyldigt_billede.jpg"
      End If

      set fs = nothing

end if %>

Ingen af dem... mærkeligt

jeg skal til møde nu - tilbage om 2 timer

hvis jeg smider reponse.write "nummer3" ind efter ugyldigt_billede returnerer den nummer3...

og den her sti er rigtig i forhold til den fil du kører scriptet fra eller inkludere scriptet i:

../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value

/kovalt

ja det er der filen ligger

i images/distrikt biblioteket fra websitets rod ligger billederne - eks 1.jpg.
og det er 1.jpg som er registreret i rsDistrikt.Fields.Item("Billede").Value

any ideas ?

kovalt - tror du du kan hjælpe ?

eller skal jeg give dig nogle point og så oprette et nyt spørgsmål

det gør jeg

tak for hjælpen