listboks til at vise billede når man vælger noget.

Indsæt et "preview" billede: <img src="" id="preview">

og så koden:
"<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">

ahh hvad så med en slet knap der sletter det der er valgt i boksen?

mener at det er: <input type="reset" value="Slet valg">

Den skal du så placere lige før </form>..
Den skal ikke med i loop'en..

Altså sådan her burde det hele virke?

<img src="" id="preview">

<%
mvirtual = "upload/katalog/"        'her billeder

set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=10 NAME=""filnavn" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf
fil_valg = rs("fil_valg")
if len(""&fil_valg)>0 then
  tmp = tmp & "<OPTION SELECTED VALUE=""" & fil_valg & """>" & fil_valg & "</OPTION>" & vbCrLf
else
  tmp = tmp & "<OPTION SELECTED VALUE="""">-- VÆLG --</OPTION>" & VbCrLf
end if
for each file in filer
        tmp = tmp & "<OPTION VALUE=""" & file.name & """"
        tmp = tmp & ">" & file.name & "</OPTION>" & VbCrLf
Next
tmp = tmp & "</SELECT>"
set filer = nothing
set mappe = nothing
set fso = nothing
Response.Write(tmp)
%>

<input type="reset" value="Slet valg">

Ja.. jeg går ud fra at du har <form> før koden, og </form> efter koden..?

Der står sikkert:
<form action="et eller andet" method="post">

yes yes self :)

<img src="" id="preview">
<form method="POST" action="?mode=ret2">
<%
mvirtual = "upload/katalog/"        'her billeder
set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=10 NAME=""filnavn" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf
fil_valg = rs("fil_valg")
if len(""&fil_valg)>0 then
  tmp = tmp & "<OPTION SELECTED VALUE=""" & fil_valg & """>" & fil_valg & "</OPTION>" & vbCrLf
else
  tmp = tmp & "<OPTION SELECTED VALUE="""">-- VÆLG --</OPTION>" & VbCrLf
end if
for each file in filer
        tmp = tmp & "<OPTION VALUE=""" & file.name & """"
        tmp = tmp & ">" & file.name & "</OPTION>" & VbCrLf
Next
tmp = tmp & "</SELECT>"
set filer = nothing
set mappe = nothing
set fso = nothing
Response.Write(tmp)
%>

<input type="reset" value="Slet valg">
</form>

sådan er koden men får altså en fejl..

"

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/galleri/product_admin.asp, line 9, column 39
tmp = "<SELECT SIZE=10 NAME=""filnavn" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

får stadig denne

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/galleri/product_admin.asp, line 8, column 39
tmp = "<SELECT SIZE=10 NAME=""filnavn" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

Jeg kan blive ved :)

tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

hey! la' så vær! :-)

sådan:

tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

Det er fordi der mangler et " tegn ved: NAME=""filnavn"
Der skal være 4 i alt..

Jeg forstår ikke hvorfor det sidst " tegn forsvinder..

Jeg har kontrolleret det.. der er 4 " tegn omkring filnavn:

tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf

<img src="" id="preview">
<form method="POST" action="?mode=ret2">
<%
mvirtual = "gallery/"        'her billeder
set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src =this.value)"">" & VbCrLf
  tmp = tmp & "<OPTION SELECTED VALUE="""">-- VÆLG --</OPTION>" & VbCrLf
for each file in filer
        tmp = tmp & "<OPTION VALUE=""" & file.name & """"
        tmp = tmp & ">" & file.name & "</OPTION>" & VbCrLf
Next
tmp = tmp & "</SELECT>"
set filer = nothing
set mappe = nothing
set fso = nothing
Response.Write(tmp)
%>
<input type="reset" value="Slet valg">
</form>

hmm den reagere ikke rigtigt på når man vælger billede?

samt. ja det er møg træls at eksperten nogle gange fjerner " ikke særlig praktisk når man skriver kode.

Tester lige her hos mig..

i orden :)

slet delen virker heller ikke :(

Du linier der skal rettes

fjern parentesen:
tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src=this.value"">" & VbCrLf

indsæt " & mvirtual & ":

        tmp = tmp & "<OPTION VALUE=""" & mvirtual & "" & file.name & """"

husk det rette antal " tegn.. Eksperten fjerner nogle.. af en eller anden grund..

altså sådan her?
<img src="" id="preview">
<form method="POST" action="?mode=ret2">
<%
mvirtual = "gallery/"        'her billeder
set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=10 NAME=""filnavn"" CLASS=""field"" onchange=""document.images['preview'].src=this.value"">" & VbCrLf
tmp = tmp & "<OPTION VALUE=""" & mvirtual & "" & file.name & """"
tmp = tmp & "<OPTION SELECTED VALUE="""">-- VÆLG --</OPTION>" & VbCrLf
for each file in filer
        tmp = tmp & "<OPTION VALUE=""" & file.name & """"
        tmp = tmp & ">" & file.name & "</OPTION>" & VbCrLf
Next
tmp = tmp & "</SELECT>"
set filer = nothing
set mappe = nothing
set fso = nothing
Response.Write(tmp)
%>

<input type="reset" value="Slet valg">
</form>

for det giver:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/galleri/product_admin.asp, line 9

Det her virker hos mig: http://frip.dk/thesurfer/e/q/490319/490319%20_01.txt

rettelse: http://frip.dk/thesurfer/e/q/490319/490319_01.txt

..fjernede mellemrummet..

yes det virker.. ligepånær slet delen..

Skal den også "slette" billedet?

Hvis ja:

<input type="reset" onclick="document.images['preview'].src=document.images['preview'].defaultSrc" value="Slet valg">

..og så vil det være en god ide, at have et gennemsigtigt billede til "preview", fra starten af..

oploader lige et.. så bruger du bare: <img src="space.gif" id="preview">

Højreklik på linket, og vælg "Gem som..": http://frip.dk/thesurfer/e/q/490319/space.gif

gem billedet i samme mappe som asp filen..
brug: <img src="space.gif" id="preview">

.. og min sidste type="reset"-kode..

<input type="reset" value="Slet valg">
er hva jeg har som det sidste.. og det sletter ikek ens valg?

Sletter ens valg? Skal den tømme boksen, så man ikke kan vælge mere?'

Definer "slette" :-)

slette det billede fra mappen man har valgt, og som der vises et billede fra.

Slette fysisk? Dvs, slette selve filen fra mappen? Så den ikke er der mere, og kan ikke komme i listen igen?

jep.. lige som når du sletter noget i windows...

Hvorfor sagde du ikke det, fra starten af? :-)
Tænker lige lidt og tester, og så vender jeg tilbage igen :-)

"samt hvordan får man den til at slette det billede man har valgt via en slet knap ?"

beklager da hvis jeg udtrygte mig dårligt :)

takker..

"slette det billede" er ikke ensbetydende med "slette filen" :-)
"filen" er nøgleordet.. :-)

må jeg jo så huske næste gang :)

ok.. har den.. oploader, så vi undgår alt det der...

iorden så må jeg jo bare studere koden og lære fra den :)

http://frip.dk/thesurfer/e/q/490319/490319_02.txt

Svar :-)

Takker for hjælpen!!

Det var så lidt :-)
God weekend :-)

i lige måde :)

En rettelse:

<input type="button" onclick="if(this.form.filnavn.selectedIndex != 0) {this.form.slettes.value=this.form.filnavn.value;this.form.submit()} else {alert('Du skal vælge et billede først');}" value="Slet det valgte billede">

Man skal jo ikke kunne slette space.gif, som jo er "-- VÆLG --" :-)

ahh ja, vil jo være dumt :) tak igen :)

Det var så lidt.. og har du spm, kommer du bare med dem..