<% @ Language=VBScript %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' mydesign | ziyaretçi defteri ' W: http://www.mydesign.gen.tr ' @: mydesign@mydesign.gen.tr ' ' Güvenlik Kodu Üretme Sayfası Kodları ' Son Düzenleme: 30 Mart 2005 / 23:13 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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 %>