%
'
' 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
'
%>
Ford Library archivists discovered this during the processing of Vice Presidential Papers in 1981 to prepare them for opening to researchers. If you come to the Library, you can find this document in the folder “Opening Statement: Experts View on Vice Presidency” in Box 242.