<% @ Language=VBScript %>
<%

Response.Buffer = True

intResimNo = CInt(Request.QueryString("I"))
intResimNo = Mid(Session("guvenlik_kodu"), intResimNo, 1)     
strResimYolu = Server.MapPath("img/guvenlik/"& intResimNo & ".gif")    

Set kd = Server.CreateObject("ADODB.Stream")

With kd
	.Open
	.Type = 1
	.LoadFromFile strResimYolu
End With

With Response
	.ContentType = "image/gif"
	.BinaryWrite kd.Read
	.Flush
End With

kd.Close
Set kd = Nothing 
%>