<% @ Language=VBScript %>
<!--#include file="inc_fonksiyonlar.asp"-->
<%
Response.Buffer = True

Dim objADOStream
Dim intImageNumber
Dim strImagePath

strImagePath = "img/"

intImageNumber = CInt(Temizle(Request.QueryString("I")))
intImageNumber = Mid(Session("OnayKodu"), intImageNumber, 1)     
strImagePath = Server.MapPath(strImagePath & intImageNumber & ".gif")    

Set objADOStream = server.createobject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.LoadFromFile strImagePath

Response.ContentType = "image/gif"
Response.BinaryWrite objADOStream.Read
Response.Flush

objADOStream.Close
Set objADOStream=Nothing 
%>