Formular med mulighed for at downloade..

Jeg har sat følgende kode sammen til dig. Du skal nu definere din ASP kode hvilken mappe dine filer ligger i, som der står beskrevet øverst og så i din select (i HTML'en) skal du angive hvad filen hedder i mappen.

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath(strMappe) & "\" & strFilnavn

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="download.asp" class="input">

<select name="download">
<option value="" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

Tusind tak for det :-) Du får hermed lige nogle points af mig :-)

Har du testet at det virker, for det har jeg nemlig ikke ;-) Men jeg regner dog meget stærkt med det.

Jeg kan faktisk ikke få det til at virke? Ved ikke om jeg gør noget forkert? :-(

Jeg har oprettet en mappe som hedder "Download" og lagt en fil der hedder"test.jpg" ned og så har jeg ændret i select:

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

Men det virker ikke :-(

Hvilken meddelelse modtager du, siden det ikke virker?

Den går ind på en side der hedder www.mitdomæne/download.asp, som ikke findes, i stedet for at hente filen fra mappen :-/

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath(strMappe) & "\" & strFilnavn

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

Og husk...

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath(strMappe) & "\" & strFilnavn

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

Har du ændret noget i det?

Prøv at gå ind på www.userfriendly.dk/test.asp

Så kan du måske selv bedre se, hvad der kan være galt? :-)

På forhånd mange mange gange tak for din hjælp :-)

Din server handler jo ikke ASP'en som den skal. Prøv at højreklikke og klikke "Vis kilde" - ASP koden bliver jo vist :-)

hmm, hehe.... Prøv på denne side... www.bellcon.dk/test.asp

Der bliver koden ikke vist, men det fungerer stadigvæk ikke :-/

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath(strMappe & strFilnavn)

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

prøv sådan her...

Stadigvæk ikke, hehe... Det er sgu da mærkelig, er det ikke?

Nu siger den en anden fejl som måske hjælper os lidt på vej.

Dette er bare en test, for at finde ud af hvad den skriver ud som mappe og filnavn. Lad os se ad ;-)

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath(strMappe & strFilnavn)
Response.Write(FilePath)

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

Så har jeg smidt den nye op :-)

der er en fejl i server.mappath, så prøv lige at lægge denne her op...

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "/download/"
strFilnavn = Request.Form("download")

response.write strMappe & strFilnavn
response.end

FilePath = Server.MapPath(strMappe & strFilnavn)
Response.Write(FilePath)

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "\download\"
strFilnavn = Request.Form("download")

FilePath = Server.MapPath("/") & strMappe & strFilnavn

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

hmm... læste lige lidt... prøv lige det her...

ellebaek, din kode virkede heller ikke, hehe :-)

madeindk: den sidste er vist tæt på. Tag et kig på www.bellcon.dk/test.asp :-)

Den burde virke nu. Hvis din mappe ligger helt tilbage i roden og hedder download.

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

' Din mappe hvor dine download filer ligger
strMappe = "\download\"
strFilnavn = Request.Form("download")

FilePath = Server.Mappath("/download") & "\" & strFilnavn

Response.Buffer = True

Set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile FilePath

Response.Clear

Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment;filename=" & strFilnavn

Response.BinaryWrite st.Read()

st.Close
Set st = Nothing
Response.End

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" class="input">

<select name="download">
<option value="test.jpg" style="background-color: #D6D1C4">Testfil<br>
</select>

<input type="submit" target="_blank" name="download" value="Download">

</form>

<% End if %>

Argh, det er da fordi din submit knap også hedder "download" - doooh!!!

Ret til:
<input type="submit" target="_blank" name="downloadKnap" value="Download">

Sådan madeindk!!!! Det virker, hehehehe!!! Tusind tak! :-)

Det var godt.

Her er mit svar ;-)