<% Dim BMPSecCode 'create a new object from the active x library to create the counter image Set BMPSecCode = Server.CreateObject("SecCode.clsSecCode") 'set our response type to bitmap Response.ContentType = "image/bmp" 'write the binary image data to the response Response.BinaryWrite BMPSecCode.MakeSecCode(5) 'get de security code (String) session("SecCode") = BMPSecCode.SecCode 'discard the object created from the library Set BMPSecCode = Nothing %>