<%@LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim strImagenArray ( 17, 1 )
Dim intRandomImageSelect

strImagenArray(0,0) = "img1.jpg"
strImagenArray(0,1) = "2YAB"

strImagenArray(1,0) = "img2.jpg"
strImagenArray(1,1) = "PEPERS"

strImagenArray(2,0) = "img3.jpg"
strImagenArray(2,1) = "A278b5tS"

strImagenArray(3,0) = "img4.jpg"
strImagenArray(3,1) = "45ATY3"

strImagenArray(4,0) = "img5.jpg"
strImagenArray(4,1) = "ITCHCH"

strImagenArray(5,0) = "img6.jpg"
strImagenArray(5,1) = "SAtUrN"

strImagenArray(6,0) = "img7.jpg"
strImagenArray(6,1) = "YakZ7"

strImagenArray(7,0) = "img8.jpg"
strImagenArray(7,1) = "A8G6E"

strImagenArray(8,0) = "img9.jpg"
strImagenArray(8,1) = "SY5EP"

strImagenArray(9,0) = "img10.jpg"
strImagenArray(9,1) = "WF8Y2"

strImagenArray(10,0) = "img11.jpg"
strImagenArray(10,1) = "9THB2"

strImagenArray(11,0) = "img12.jpg"
strImagenArray(11,1) = "JR3DL"

strImagenArray(12,0) = "img13.jpg"
strImagenArray(12,1) = "EVN04"

strImagenArray(13,0) = "img14.jpg"
strImagenArray(13,1) = "7WLA2"

strImagenArray(14,0) = "img15.jpg"
strImagenArray(14,1) = "T8MSR"

strImagenArray(15,0) = "img16.jpg"
strImagenArray(15,1) = "TM934"

strImagenArray(16,0) = "img17.jpg"
strImagenArray(16,1) = "SKL6V"

Randomize Timer

intRandomImageSelect = CInt( Rnd * (UBound(strImagenArray)-1) )

Session("verificationCode") = strImagenArray(intRandomImageSelect,1)

'Set the content type to the specific type that you are sending.
Response.ContentType = "image/jpeg"

Const adTypeBinary = 1
Dim strFilePath
Dim objStream

strFilePath = "D:\dev\websites\captcha\" & strImagenArray(intRandomImageSelect,0) 

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

'Response.Write(intRandomImageSelect)

'objStream.Close
Set objStream = Nothing
%>