<%Response.expires="0"%> <%Response.buffer=True%> <% '[Get Default opening record and page] set vUtil = server.createobject("Fanore.Software") if Request.querystring("A") <> "" then auto_logon_file = Request.querystring("A") '[try and find file] sPath = application("BasePath") & "images\" set vData = vUtil.Utility() vData.add auto_logon_file,"FILE" vData.add sPath,"PATH" set vResponse = vUtil.check_File(vData) if vresponse("Errors") then response.write vresponse("errmsg") & "
" response.write "An error has occurred processing your request. Please refresh your page !
" response.end end if bExists= vResponse("Exists") if not bExists then auto_logon_file = "" else '[load file into buffer] set vData = vUtil.Utility() vData.add auto_logon_file,"FILE" vData.add sPath,"PATH" set vResponse = vUtil.load_File(vData) if vresponse("Errors") then response.write vresponse("errmsg") & "
" response.write "An error has occurred processing your request. Please refresh your page !
" response.end end if sBuffer = vResponse("Contents") set vData = vUtil.Utility() vData.add sBuffer,"BUFFER" set vResponse = vUtil.Create_As_Collection(vData) set key_data = vResponse("Key_Data") iKeys = key_data("ITEMS") for k = 1 to iKeys set vKey = key_data("ITEM" & cstr(k)) sKey = vKey("Title") session(skey) = vResponse(sKey) next session("account_id")=session("accountid") end if end if sURL = "asp/fanore.asp" 'response.write sURL 'response.end server.transfer(sURL) %>