<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = False %> <% dim UserAgent UserAgent = Request.ServerVariables("HTTP_USER_AGENT") if instr(1,UserAgent,"iPhone") > 0 then Response.Redirect "http://www.marshall.edu/www/pressrelease-mobi.asp?ID=" & Request.querystring("ID") end if %> <% Function isAplhaNumString(sPattern, sString) If Len(Trim(sString)) > 0 Then Dim oRegEx Set oRegEx = New RegExp oRegEx.Pattern = sPattern oRegEx.IgnoreCase = true oRegEx.Global = true isAplhaNumString = oRegEx.Test(sString) End If End Function %> <% If Request.Querystring("ID") <> "" Then If isAplhaNumString("^[a-zA-Z0-9% ]+$", Replace(Request.QueryString,"=","")) Then Set DBConn = Server.Createobject("ADODB.Connection") DBConn.open "Provider=SQLOLEDB;Data Source=MUWEBSQL\MUWEBSQLDB;Initial Catalog=muweblinks;User ID=sqlread;Password=trialrun;" Set RS = DBConn.Execute("SELECT * FROM PressRelease WHERE PressID=" & Request.querystring("ID")) Else Response.Redirect("http://muwww-new.marshall.edu/www/2009/errorpages/urlerror.html") End If End If %> <% Set DBConn = Server.Createobject("ADODB.Connection") DBConn.open "Provider=SQLOLEDB;Data Source=MUWEBSQL\MUWEBSQLDB;Initial Catalog=muweblinks;User ID=sqlread;Password=trialrun;" Set RS = DBConn.Execute("SELECT * FROM PressRelease WHERE PressID=" & Request.querystring("ID")) %> Marshall University News/Press Release

FOR IMMEDIATE RELEASE
<% Response.write formatdatetime(RS("PressDate"),vblongdate) & "
Contact: " & RS("Name") & ", " & RS("Title") & " " & RS("Phone") %>


<% Response.Write RS("Headline") %> <% Response.Write RS("Content1") %>



" target="_blank">For further information, contact:  Office of University Communications
Marshall University | 213 Old Main | Huntington, WV 25755-1090
Fax: (304) 696-3197