19. november 2003 - 09:58Der er
14 kommentarer og 1 løsning
Vis default billede hvis filen ikke eksisterer
jeg prøver at få en if then else til at virke - med 3 kriterier. Men det virker ikke, den viser hele tiden "ugyldigt_billede.jpg" selvom der er en værdi og filen eksisterer.
1. hvis værdien fra DB er tom skal den vise "intet_billede.jpg" 2. hvis der er en værdi og der ligger en fil med samme navn i det pågældende bibliotek skal billedet vises 3. hvis der er en værdi men der ikke er nogen fil med samme navn skal den vise "ugyldigt_billede.jpg"
koden: <% 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 %>
doeboy - den skal kunne checke for 3 kombinationer: tom værdi = intet billede, værdi der eksisterer på serveren = billedet, værdi men ikke eksisterer på serveren = ugyldigt billede
<% Set fs=Server.CreateObject("Scripting.FileSystemObject") if Trim(rsDistrikt.Fields.Item("Billede").Value) = "intet_billede.jpg" then filnavn = "../../images/admin/intet_billede.jpg" else checkfil = server.mappath("..\..") & "images\distrikt\" & rsDistrikt.Fields.Item("Billede").Value" response.write "Check om " & checkfil & "findes ??" If (fs.FileExists(checkfil) = true then If fs.FileExists(checkfil) = true then filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value Else filnavn = "../../images/admin/ugyldigt_billede.jpg" End If set fs = nothing end if %>
<% 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(checkfil) = true then filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value Else filnavn = "../../images/admin/ugyldigt_billede.jpg" End If set fs = nothing end if %>
jeg bruger den sti fordi jeg eksempelvis bruger denne hvis jeg skal connecte til en Access database: "Data Source=d:\\home\\becausedk\\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
<% 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(checkfil)) = true then filnavn = "../../images/distrikt/" & rsDistrikt.Fields.Item("Billede").Value Else filnavn = "../../images/admin/ugyldigt_billede.jpg" End If set fs = nothing end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.