<% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") host_url = Request.ServerVariables("HTTP_HOST") req_method = Request.ServerVariables("REQUEST_METHOD") dtNow = Now() filename = Server.MapPath("\ssfm") dirname = filename filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow) Function FormatVariableLine(byval var_name, byVal var_value) Dim tmpStr tmpStr = tmpStr & "" & vbCRLF tmpStr = tmpStr & var_value & vbCRLF tmpStr = tmpStr & "" FormatVariableLine = tmpStr end function Sub OutputLine(byVal line) outfile.WriteLine(line) end sub if err.number = 0 then Set outfile = fso.CreateTextFile(filename, true, false) if err.number <> 0 then bErr = true errStr = "Error creating file! Directory may not be writable or may not exist.
Unable to process request." else if(req_method = "GET") then for each Item in request.QueryString if item <> "" then bEmpty = false key = item value = Request.QueryString(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next elseif (req_method = "POST") then for each Item in request.form if item <> "" then bEmpty = false key = item value = Request.form(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next end if outfile.close end if if(bEmpty = true) AND errStr = "" then bErr = true errStr = errStr & "
No variables sent to form! Unable to process request." end if if(bErr = false) then if (landing_page <> "") then response.Redirect "http://" & host_url & "/" & landing_page else response.Redirect "http://" & host_url end if else Response.Write errStr end if set fso = nothing else Response.Write " An Error Occurred creating mail message. Unable to process form request at this time." end if %>

A message from Bill White

April 25, 2008

 

By all accounts, there is a recovery revolution afoot:  growing interest in the varieties of recovery experience, a New Recovery Advocacy Movement, new recovery community institutions (e.g., recovery community centers, recovery homes, recovery schools, recovery industries, recovery churches), and calls to shift addiction treatment from a  model of acute biopsychosocial stabilization to model of sustained recovery management.  And recovery has emerged as an organizing paradigm for national and state behavioral health care policy—a decision that has prompted efforts to define recovery, core recovery values and the crucial elements of recovery-oriented systems of care.  But once again the policy rhetoric has been undermined by administrative budget decisions.    

           

CSAT’s Recovery Community Services (RCSP) and its predecessor, the Recovery Community Support Program, have successfully led efforts to engage the recovery community since initiated in 1998.  The RCSP grantees have been a primary source of momentum for the spread of recovery community organizations and the development and delivery of peer-based recovery support services throughout the United States.  But the Administration eliminated all new RCSP funding in FY 2008, and zeroed out the program in its FY 2009 budget request.

 

Recovery advocates from around the country and allied organizations, under the leadership of Faces & Voices of Recovery, are challenging this decision and have generated strong Congressional support aimed at restoring this funding in 2009.  Any INCASE members or other addictions professionals who would like to participate in this advocacy effort can contact Pat Taylor (pat.taylor@verizon.net) at Faces & Voices of Recovery to offer their assistance.

 

William L. White

Author, Let’s Go Make Some History:  Chronicles of the New Addiction Recovery Advocacy Movement