Vis filer i felt

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

set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=4 NAME=""billede" CLASS=""field"">" & VbCrLf
tmp = tmp & "<OPTION SELECTED VALUE=""" & "Intet billede" & """"
tmp = tmp & ">-- Intet billede --</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)
%>

Noget i denne stil ?

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/test.asp, line 7

tmp = "<SELECT SIZE=4 NAME=""billede" CLASS=""field"">" & VbCrLf
--------------------------------------^

Fåer smidt dette her ud?

en lille trykfejl...

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

set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=4 NAME=""billede"" CLASS=""field"">" & VbCrLf
tmp = tmp & "<OPTION SELECTED VALUE=""" & "Intet billede" & """"
tmp = tmp & ">-- Intet billede --</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)
%>

Sådan her!

nu kan det godt være det er mig der er dum.. men får stadig:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/test.asp, line 7

tmp = "<SELECT SIZE=4 NAME=""billede" CLASS=""field"">" & VbCrLf
--------------------------------------^

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

set fso = Server.CreateObject("Scripting.FileSystemObject")
set mappe = fso.GetFolder(Server.MapPath(mvirtual))
set filer = mappe.files
tmp = "<SELECT SIZE=4 NAME=""billede"" CLASS=""field"">" & VbCrLf
tmp = tmp & "<OPTION SELECTED VALUE=""Intet billede""""
tmp = tmp & ">-- Intet billede --</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)
%>

prøver lige igen.. Fik ikke rettet fejlen..
Prøv denne!

Nej nej nej...

Der er en eller anden fejl på exp tror jeg..
Men efter billede skal du have 2x " for at det virker, men det vil den åbenbart ikke acceptere..
altså skal den se ud som: tmp = "<SELECT SIZE=4 NAME=""billede"" CLASS=""field"">" & VbCrLf

Hmm...

Glem lige kodeeksemplet i mit sidste indlæg. Der fjernede den naturligvis også den anden " men der skal være 2 af dem efter hinanden

Takker virker.. og jeg kan vel via:

rs("billede") = Request.form("billede")
smide det man har valgt ind i en database ikke?

jo præcis...

takker :)

Anytime

Takker for points..
..Ellebæk!