Hej! Nu har jag har gjort en funktion som jag inte får att fungera Med fnuttar och mellanslag på rätt plats fixar det sig:visa bilder från access?
Om jag har en <form> med en <textarea> där jag skriver in lite vad som händer på en sida. Om jag vill visa bilder, hur gör man lättast då? Allt som jag skriver sparas i en access databas, och när jag skall visa texten på en sida med <%=Rs("trams")%> hur gör man för att bilderna skall länkas till det man skrivit in i texten?
tex jag har en bild som heter trams.jpg kan man göra något som kollar efter .jpg och tar då namnet innan och visar bilden. detta får kanske ligga i en function som man includerar på sidan.
Hoppas ni fattar vad jag skrivit.
//JockeSv: visa bilder från access?
meningen är att om jag skriver [bild]bildnamn.jpg[/bild] så skall bilden visas, det är bara namnet på bilden som inte vill vara med nu.
<code>
Function Bild(txt)
Dim Start, Slut, Lank, Tabort
Do While Instr(1,txt,"[bild]") > 0 And Instr(1,txt,"[/bild]") > 0
Start = Instr(1,txt,"[bild]")
Slut = Instr(1,txt,"[/bild]")
Start = Start + 6
Slut = slut - Start
Lank = Mid(txt,Start,Slut)
Tabort = Mid(txt,(Start - 6),(Slut + 13))
txt = Replace(txt,tabort,"<img src=""shimg/& Lank"">") '<Här får jag inte ut bildnamnet av Lank
Loop
End Function
</code>
Bilden länkas till rätt mapp, Men efter shimg/ så skrivs &lank ut men det skall vara vad bilden heter.
Någon som har ett förslag?
//JockeSv:visa bilder från access?
<code>
txt = Replace(txt, Tabort, "<img src=""shimg/" & Lank & """>")
</code>