Download jpg filer

Hvad med at pakke dine JPG med Winzip. Så er du ude over det problem.

Nu har jeg fundet noget der kan bruges i et andet spørgsmål her på ekspterten. Men jeg skal have tilføjet et check på om brugeren sidder ved en mac eller en pc - nedenstående kode virker nemlig fint med pc, men ikke på mac. Hvis brugeren sidder ved en mac skal billedet istedet åbnes i stor størrelse for derefter at blive gemt. - Der er muligvis flere point at hente for et godt svar.

%
Const adTypeBinary = 1

Response.Expires = 0
Response.Buffer = TRUE

picname = "../images/media_thumb/01.jpg" ' det billede der skal downloades fra serveren
saveAsPicname="redtag.jpg"

Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "IE")) Then
      ' Explorer
      Response.ContentType = "m_type"
      Response.AddHeader "Content-Disposition", "attachment; filename="& saveAsPicname
Else
      ' NetScape
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & picName & chr(34)
End if

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(picName)
Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing

Response.Flush
%>

Der sker tilsyneladende ikke mere her, og imellemtiden har jeg fundet en løsning på problemet, som også virker til mac i forhold til ovenstående.

Jeg vil da meget gerne se din metode som også virker i mac - jeg sidder nemlig med samme problem.

i den fil der hedder inc_system.asp, sakl du uskifte liie 14:

    Conn.Open "DRIVER=mysql; SERVER=" & sql_Server & "; DATABASE=" & sql_DB & "; UID=" & sql_UID & "; PWD=" & sql_PWD

med :

"provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("./dindb.mdb")

og så selvfølgelig lave en access db der matcher mysql db'en

kig evt her:
http://www.google.dk/search?hl=da&ie=UTF-8&oe=UTF-8&q=mysql+to+access+free&meta=

soorry , wrong q ;)