<%
Dim SPath
SPath=Request.ServerVariables("PATH_INFO")
SPath=mid(SPath,1,InStrRev(SPath,"/")-1)
If UCase(Trim(Request.ServerVariables("HTTPS")))="OFF" then
	strSiteURL="http://" & Request.ServerVariables("HTTP_HOST") & SPath & "/"
Else
	strSiteURL="https://" & Request.ServerVariables("HTTP_HOST") & SPath & "/"
End if

	Randomize
	tmp1=fix(10*Rnd)
	select case request("p")
		case 1:	tmp3=session("store_num")
		case 2: tmp3=session("store_affnum")
		case 3: tmp3=Session("store_Regnum")
		case 4: tmp3=session("store_AffRegnum")
		case 5: tmp3=session("store_Reg1num")
	end select
	tmp2=mid(tmp3,1,request("a")-1) & tmp1 & mid(tmp3,request("a")+1,len(tmp3))
	select case request("p")
		case 1:	session("store_num")=tmp2
		case 2: session("store_affnum")=tmp2
		case 3: Session("store_Regnum")=tmp2
		case 4: session("store_AffRegnum")=tmp2
		case 5: session("store_Reg1num")=tmp2
	end select
	Response.ContentType = "image/gif"
	Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
	objHTTP.open "GET", strSiteURL & "images/" & tmp1 & ".gif",false
	objHTTP.send
	Response.BinaryWrite objHTTP.ResponseBody
	Set objHTTP = Nothing
%>