<%
	Connect = "Provider=SQLOLEDB;Server=193.93.174.47,1433;Database=wsdb_137;UID=sqluser137;PWD=O3zCDl!37E"
	Set db = Server.CreateObject("ADODB.Connection")
	db.Open Connect

	SQL = "SELECT IMAGE FROM TABEL_SHOP where id = " & Request("id")
	Set rs = db.Execute( SQL )
	If rs.EOF Then Response.End
	Response.ContentType = "application/octet-stream"
	'Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(rs("filename"))
	'Response.AddHeader "Content-Length", CStr(rs("filesize"))
	Response.BinaryWrite rs("image")
	
%>