<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/INDOORSKI_READER.asp"-->
<%
	Connect = MM_INDOORSKI_READER_STRING 
	Set db = Server.CreateObject("ADODB.Connection")
	db.Open Connect

	SQL = "SELECT IMAGE FROM TABEL_LERAREN 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")
	
%>