<%@ Language=VBSCRIPT EnableSessionState=False%>
<!-- #include file="../include/cabecalho.asp" -->
<!-- #include file="../include/adovbs.inc" -->
<!-- #include file="../include/f_connection.asp" -->
<%
CodMateria	= Request.QueryString("CodMateria")
Imagem		= Request.QueryString("imagem")
Call F_Connection("open")

strSQL = "SELECT MateriaXImagem.CodMateria, Imagem.imagem, MateriaXImagem.CodImagem FROM Imagem INNER JOIN MateriaXImagem ON Imagem.CodImagem = MateriaXImagem.CodImagem WHERE MateriaXImagem.CodMateria =" & CodMateria
Set objRS = objConn.Execute(strSQL)

contagem=1

if not objRS.eof then
	Do while not objRS.eof
		If Cint(Imagem)=cint(contagem) Then
			Response.BinaryWrite objRS("Imagem")
		End If
	contagem=contagem+1
	objRS.movenext
	Loop
end if


set objRS=nothing
Call F_Connection("Close")

%>