Gerald R. Ford Presidential Library and Museum

<% ' ' MoFuse Premium API ' Mobile Detect & Redirect ' DIM sMofuseSiteID sMofuseSiteID = "ac8334de878cd4755bf6182cb3f3e474" DIM sMofuseSiteURL sMofuseSiteURL = "http://grfordlibrarymuseum.bxs.mobi/" DIM sMofuseParams MofuseSetParams sMofuseParams, "a", "mobile_detect" MofuseSetParams sMofuseParams, "v", "0.2.5" MofuseSetParams sMofuseParams, "s", sMofuseSiteID MofuseSetParams sMofuseParams, "m", sMofuseSiteURL MofuseSetParams sMofuseParams, "u", Request.ServerVariables("HTTP_USER_AGENT") IF Request.ServerVariables("SERVER_PORT") = "80" THEN MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") ELSE MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") END IF MofuseSetParams sMofuseParams, "r", Request.ServerVariables("SCRIPT_NAME") MofuseSetParams sMofuseParams, "i", Request.ServerVariables("REMOTE_ADDR") Sub MofuseSetParams(ByRef sParams, sKey, sVal) IF sVal <> "" THEN IF sParams <> "" THEN sParams = sParams & "&" & Server.URLEncode(sKey) & "=" & Server.URLEncode(sVal) ELSE sParams = sParams & "?" & Server.URLEncode(sKey) & "=" & Server.URLEncode(sVal) END IF END IF End Sub FUNCTION MofuseMobileDetectRequest(sParams) DIM sMofuseMobile sMofuseMobile = getHTML("http://api.mofusepremium.com/" & sParams) 'Response.Write sMofuseMobile IF sMofuseMobile <> "" THEN MofuseMobileDetectRequest = Left(sMofuseMobile, 25) ELSE MofuseMobileDetectRequest = "0" END IF END FUNCTION FUNCTION getHTML (strUrl) 'Response.Write strUrl Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP") xmlHttp.Open "GET", strUrl, False xmlHttp.setRequestHeader "User-Agent", "asp httprequest" xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded" xmlHttp.Send getHTML = xmlHttp.responseText xmlHttp.abort() set xmlHttp = Nothing END FUNCTION SUB MofuseMobileDetect(sParams) DIM isMobile isMobile = MofuseMobileDetectRequest(sParams) 'Response.Write isMobile DIM sMofuseParams sMofuseParams = "" IF Request.ServerVariables("SERVER_PORT") = "80" THEN MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") ELSE MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") END IF MofuseSetParams sMofuseParams, "r", Request.ServerVariables("SCRIPT_NAME") IF isMobile = 1 THEN Response.Redirect(sMofuseSiteURL & sMofuseParams) END IF END SUB IF Request.QueryString("nomobile") <> "1" THEN MofuseMobileDetect(sMofuseParams) END IF ' ' END OF MoFuse Premium API ' %> Gerald R. Ford Presidential Library and Museum

Email Us

Page Printing Info

Special Events & Exhibits
Digital Library
Education Programs
eStore
Staff Favorites
Ford Presidential Foundation

Ford Library

1000 Beal Avenue,
Ann Arbor, MI 48109
Open: Monday - Friday, 8:45 a.m. - 4:45 p.m.
Closed Federal holidays.
(734) 205-0555
>>Directions
>>More

Ford Museum

303 Pearl Street NW, Grand Rapids, MI 49504-5353
Hours: 9:00 am - 5:00 pm. (Closed New Year's Day, Thanksgiving Day, and Christmas Day)
(616) 254-0400

>>President Ford's Burial Site
>>Directions
>>More

Upcoming Exhibits & Events | Newsroom | Recent Events

On Exhibit in ANN ARBOR --
Gerald Ford in Mao's China: The Historic 1972 and 1975 Visits

Upcoming ANN ARBOR --
William T. Coleman, author of Counsel for the Situation: Shaping the Law to Realize America's Promise
Wednesday, March 30 7:00 p.m.

Ben Feller, "Front and Center: The White House Story from the First Row" - Winner of the Gerald R. Ford Journalism Prize for Distinguished Reporting on the Presidency
Wednesday, April 13 7:30 p.m.

On Exhibit GRAND RAPIDS --

The American Soldier - A Photographic Tribute to Soldiers and Marines from the Civil War to Iraq
March 17 - June 17, 2011

Upcoming GRAND RAPIDS --

William T. Coleman, author of Counsel for the Situation: Shaping the Law to Realize America's Promise
Thursday, March 31 7:00 p.m.

2011 G.R. Ford Student Essay Challenge winners announced

Staff Favorites

In 1776, the most famous American of the time, Benjamin Franklin, set sail for Paris as the ambassador to France from the world's newest nation, the United States. Two hundred years later for America's Bicentennial, the French president, Giscard d'Estaing, presented an 18th century printing press to President Ford as a tribute to our 200th birthday...

>>Read more by Deputy Director James Kratsas...

	•Researchers: Newly available material •Digital Library •Gerald R. Ford Foundation Research Travel Grant application
	•Teachers: New Education website • Today's Document from the National Archives •America's Historical Documents
	•Gerald R. Ford Congressional Tribute Book •Posthumous Tributes and Honors for President Ford

eStore

eStore logo

Michigan

Support for public programming provided by the National Archives and Records Adminstration and the Gerald R. Ford Presidential Foundation.

updated: March 22, 2011