cupyMedlem sedan apr. 2002299 inlägg Hej hej!
Jag skulle behöva hjälp:
Min upload script döper om alla filer jag laddar upp och det gör det genom att lägger 1- framför varenda fil !
Problemet är att när jag laddar inte upp något fil alls då lägger den ändå 1- i databasen så när jag hämtar en inlägg som innehåller ingen bild
då scripten försöker ändå visa en bild!
Så döper scripten om filen :
Dim pathToFile
Dim fso,fnum
Set fso=Server.CreateObject("Scripting.FileSystemObject")
fnum=1
Do While fso.FileExists(Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName)
fnum=fnum+1
Loop
pathToFile=Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName
fileName=fnum & "-" & fileName
Set fso=Nothing
och såhär visar jag bilden i ett inlägg
<%IF trim(RecSet("filename") & "") <> "" then%>
<a href="uploaded/<%= replace(RecSet("filename"),"_th", "_or") %>">
<img src="uploaded/<%= RecSet("filename") %>" border=0 alt="<%= rubrik %>"></a>
<%end if %>
Jag tror hit skulle jag behöva en if-sats men jag kan inte fixa den själv. Tack på förhand
PoffeMedlem sedan apr. 20022 743 inlägg Du får lägga till ett fält i din databas, ex Ja/Nej-fält (True/False) som du sätter till Ja eller Nej (True eller False) när man laddar upp bilden beroende på om man laddar upp nån bild eller inte.
Sen när du ska hämta posten ur databasen så kontrollerar du om det fältet innehåller Ja elel rNej och gör utifrån det en if-sats som skriver eller inte skriver ut bilden.
cupyMedlem sedan apr. 2002299 inlägg Tack för svaret Men det är precis mitt problem if-satsen
sedan jag glömde säga att i db lagras bara namnet på bilderna
solbulleMedlem sedan mars 20015 287 inlägg Fullösning :e :
<%IF len(trim(RecSet("filename") & "")) > 3 then%>
<a href="uploaded/<%= replace(RecSet("filename"),"_th", "_or") %>">
<img src="uploaded/<%= RecSet("filename") %>" border=0 alt="<%= rubrik %>"></a>
<%end if %>
cupyMedlem sedan apr. 2002299 inlägg Tack Solbolle men jag löste oxå undertiden så här
Dim pathToFile
If filename<>"" Then
Dim fso,fnum
Set fso=Server.CreateObject("Scripting.FileSystemObject")
fnum=1
Do While fso.FileExists(Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName)
fnum=fnum+1
Loop
pathToFile=Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName
fileName=fnum & "-" & fileName
Set fso=Nothing
End If
men för hjälp!