U.S. Meat Export Federation

<% Option Explicit %> U.S. Meat Export Federation <% If Not BOOL_RNAV_LIVE Then %> <% Else %> <% End If %> <% If Not BOOL_RNAV_LIVE Then %> <% ElseIf False Then %> <% End If %>

传奇世界私服新开传奇世界私服新开传奇私服最新传奇私服 . 1.76传奇私服传奇世界私服变态传奇私服

<% Call writeHeaderTabs() %>

height=2>

<% If BOOL_RNAV_LIVE Then %> <% Else %> <% End If %>

bgcolor="333366"> <%=displayLeftNav()%>

HEIGHT=12>

<% Call writeSearchTable() %>

<%=getHeaderImage()%>
<% If False Then %>

>
<% End If %> <% If Not BOOL_RNAV_LIVE Then %><%=showLoginBlurb()%>

<% End If %>

<% Response.Write displayReleases(1) %>

<% If (isMember() OR isStaff() OR isCMSPreview()) Then If getFieldValue("MemberField",intContentID)<>"" Then Response.Write bar("Members Only") & "
" %>

<% End If End If %> <% If (isStaff() OR isCMSPreview()) Then If getFieldValue("staffContent",intContentID)<>"" Then Response.Write bar("Staff Only") & "
" %> <% End If End If %> <% If (isMedia() OR isStaff() OR isCMSPreview()) Then If getFieldValue("mediaContent",intContentID)<>"" Then Response.WRite bar("Media Only") & "
" %> <% End If End If %> <%=copyright%>

align="left"> <% ' ****** START RIGHT NAV ******* %> <% Call showRightNav() %> <% ' ****** END RIGHT NAV ******* %>

<% Call closeBody() %> <% Sub drawRightNavBox(strTitle,strBody) %>

<%=strTitle%>

cellpadding=0 cellspacing=0 border=0 bgcolor="#ffffff" x="#C8DCFD">

<%=strBody%>

<% End Sub Sub drawLoginNav() Dim strTitle,strBody If isAuthenticated() Then strTitle="Hello, " & Session("contactFirstName") strBody= "" & _ "" & _ "" & _ "" & _ "" & _ "

Logout

Update Contact Information

Change Password

Change Username

" Else strTitle="Login" strBody= "" End If Call drawRightNavBox(strTitle,strBody) End Sub Sub drawSupplierSearch() Dim strTitle,strBody strTitle="Supplier Search" strBody= "" Call drawRightNavBox(strTitle,strBody) End Sub Sub drawLoginNav2() %> <% End Sub '*************************************************************************** '*************************************************************************** Function displayReleases(intCount) 'intCount is the number of releases to display. Pass in 0 to display ALL 'display NEWS and AUDIO pages Dim strRet Dim rsReleaseDate Dim rsReleaseTitle Dim rsReleaseContent Dim dtCurrentDate Dim strCurrentTitle Dim boolDisplay Dim iCounter DIm rsNewsType If intCount="" Or Not isNumeric(intCount) Then intCount=0 Else intCount=CLng(intCount) End If If intCount=0 Then intCount=32000 'strRet=getCache("strReleaseIndex" & intCount,600) strRet=NULL If isNull(strRet) Then iCounter=1 set rsReleaseDate = getLCMSReadOnlyRS("SELECT c.ContentID,t.Value,c.ContentName from WebCASShortText t INNER JOIN Content c ON t.ContentID=c.ContentID WHERE c.statusID=6 AND c.CategoryID=411 AND t.Name='ReleaseDate' ORDER BY CONVERT(smalldatetime,Value) DESC") set rsReleaseTitle = getLCMSReadOnlyRS("SELECT ContentID,Value from WebCASShortText WHERE Name='ReleaseTitle'") set rsReleaseContent = getLCMSReadOnlyRS("SELECT ContentID,Value from WebCASRichText WHERE Name='ReleaseContent'") set rsNewsType = getLCMSReadOnlyRS("SELECT ContentID,Value as newsType FROM WebCASShortText WHERE Name='newsType'") dtCurrentDate=CDate("1/1/1700") strCurrentTitle="" strRet=strRet & "" Do Until rsReleaseDate.EOF OR iCounter>intCount boolDisplay=True rsReleaseTitle.Filter="ContentID=" & rsReleaseDate("ContentID").Value If dtCurrentDate=CDate(rsReleaseDate("Value").Value) Then 'displaying the same date as previous item If Trim(strCurrentTitle)=Trim(rsReleaseTitle("Value").Value) Then 'same date, same title, THIS IS A DUPE! boolDisplay=False End If End If If boolDisplay Then rsNewsType.Filter="ContentID=" & rsReleaseDate("ContentID").Value If Not rsNewsType.EOF Then If Not isNull(rsNewsType("newsType").Value) Then If LCase(rsNewsType("newsType").Value)="media alert" Then boolDisplay=False End If End If End If End If If boolDisplay Then rsReleaseContent.Filter="ContentID=" & rsReleaseDate("ContentID").Value dtCurrentDate=rsReleaseDate("Value").Value strCurrentTitle=rsReleaseTitle("Value").Value strRet = strRet & "" 'strRet = strRet & "" & _ ' "" iCounter=iCounter+1 End If rsReleaseDate.MoveNext Loop strRet=strRet & "

" & strCurrentTitle & "" 'strRet = strRet & " " & showMic(rsReleaseContent("Value").Value) & "" 'strRet = strRet & " Release Date: " & formatDateTime(dtCurrentDate,vbShortDate) & " " & _ ' "Contact: Lynn Heinze (Phone: 303-623-6328, Email: " & scrambleEmail("lheinze@usmef.org") & ") " strRet = strRet & " " & rsReleaseContent("Value").Value & _ "
" & showMic(rsReleaseContent("Value").Value) & _ ' "	" & formatDateTime(dtCurrentDate,vbShortDate) & _ ' "	" & strCurrentTitle & "
" & rsReleaseContent("Value").Value & "

" set rsReleaseDate = Nothing set rsReleaseTitle = Nothing set rsReleaseContent = Nothing 'store as application variable so that we can resuse this value in cache. 'Call setCache("strReleaseIndex" & intCount,strRet) End If displayReleases = strRet End Function '*************************************************************************** Function showMic(strContent) 'given content, display MIC if necessary If (InStr(1,LCase(strContent),".mp3",vbTextCompare)>0) Then showMic="" Else showMic=" " End If End Function %><% Option Explicit %> U.S. Meat Export Federation <% If Not BOOL_RNAV_LIVE Then %> <% Option Explicit %> U.S. Meat Export Federation

传奇世界私服新开传奇世界私服新开传奇私服最新传奇私服 . 1.76传奇私服传奇世界私服变态传奇私服

<% If Not BOOL_RNAV_LIVE Then %>

传奇世界私服新开传奇世界私服新开传奇私服最新传奇私服 . 1.76传奇私服传奇世界私服变态传奇私服