<% 'Option Explicit Dim user_agent, mobile_browser, Regex, match, mobile_agents, mobile_ua, i, size user_agent = Request.ServerVariables("HTTP_USER_AGENT") mobile_browser = 0 Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm)" .IgnoreCase = True .Global = True End With match = Regex.Test(user_agent) If match Then mobile_browser = mobile_browser+1 If InStr(Request.ServerVariables("HTTP_ACCEPT"), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then mobile_browser = mobile_browser+1 end If mobile_agents = Array( _ "w3c ", "acs-", "alav", "alca", "amoi", "audi", "avan", "benq", "bird", _ "blac", "blaz", "brew", "cell", "cldc", "cmd-", "dang", "doco", "eric", _ "hipt", "inno", "ipaq", "java", "jigs", "kddi", "keji", "leno", "lg-c", _ "lg-d", "lg-g", "lge-", "maui", "maxo", "midp", "mits", "mmef", "mobi", _ "mot-", "moto", "mwbp", "nec-", "newt", "noki", "oper", "palm", "pana", _ "pant", "phil", "play", "port", "prox", "qwap", "sage", "sams", "sany", _ "sch-", "sec-", "send", "seri", "sgh-", "shar", "sie-", "siem", "smal", _ "smar", "sony", "sph-", "symb", "t-mo", "teli", "tim-", "tosh", "tsm-", _ "upg1", "upsi", "vk-v", "voda", "wap-", "wapa", "wapi", "wapp", "wapr", _ "webc", "winw", "winw", "xda", "xda-" _ ) size = Ubound(mobile_agents) mobile_ua = LCase(Left(user_agent, 4)) For i=0 To size If mobile_agents(i) = mobile_ua Then mobile_browser = mobile_browser+1 Exit For End If Next If Request.QueryString("FullSite") = "yes" Then Response.Cookies("FullSite") = "yes" Response.Redirect("http://www.missouriwestern.edu") End If If Request.Cookies("FullSite") <> "yes" Then If mobile_browser > 0 Then Response.Redirect("http://mwsu.mobi") End If End If %>
GoldLink
|
Directories
|
A-Z Search
Committee on the Use of Human Subjects (CUHSR/IRB)
Proposals
Submit a new proposal
Submit a final status report
Submit an amendment to an approved proposal
Submit a request to extend the expiration date
Active Projects
List all Active Projects
View a Proposal
Find a Proposal
Committee Information
Policies and Procedures FAQ
View Agenda for the Next CUHSR Meeting
Show Committee Members
Certification Process
Before submitting a proposal, you must obtain certification. Use the following links to review and study the information, then take the quiz.
CUHSR FAQ
Informed Consent Requirements
History of IRBs and Western's IRB
Links and Reference
Western Policy Guide (Appendix S)
Code of Federal Regulations
Take the Certification Quiz
Lookup a certification
[
IRB HOMEPAGE
]
Any questions about proposals, procedures, etc. should be directed to the chair of the CUHSR by email to
cronk@missouriwestern.edu