<%@LANGUAGE="VBSCRIPT"%> <% Dim rsIntegralNews__MMColParam rsIntegralNews__MMColParam = "Integral RFID" If (Request("MM_EmptyValue") <> "") Then rsIntegralNews__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsIntegralNews Dim rsIntegralNews_numRows Set rsIntegralNews = Server.CreateObject("ADODB.Recordset") rsIntegralNews.ActiveConnection = MM_IntegralNews_STRING rsIntegralNews.Source = "SELECT dtmNewsDate, lngNewsID, strNewsCaption FROM tblNewsItems WHERE strNewsSource = '" + Replace(rsIntegralNews__MMColParam, "'", "''") + "' ORDER BY dtmNewsDate DESC" rsIntegralNews.CursorType = 0 rsIntegralNews.CursorLocation = 2 rsIntegralNews.LockType = 1 rsIntegralNews.Open() rsIntegralNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 rsIntegralNews_numRows = rsIntegralNews_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Integral RFID home page - innovation in RFID engineering
Go to Integral RFID HomeAbout Integral RFIDIntegral RFID help and supportContact Integral RFID
Integral RFID - propagating innovation in the RFID industry
Looking for 100% Gen2 Read Rates?

  • Check out EPC Hotspot, the only software suite that guides you to 100% RFID read success. Click here for more information and to download you free trial today.

    • Wilderness Asset Tracking?

  • Let Integral RFID talk to you about its highly successful Wilderness Asset Tracking System. Already deployed around the world, this long-range active tagging system is currently tracking Polar Bears, Grizzly Bears, Elk, Sea Mammals and Firefighting Equipment. For more details Click here.

    • Consulting?

  • Integral RFID consultants specialize in all aspects of RFID, from low level hardware to high level supply chain integration. Our knowledge is your success - put it to the test today! Click here for futher information.

    		•
    RFID Wizards?

  • RFID Wizards is the premier community for all RFID users worldwide. Integral RFID is proud to be recognized by this forum for its expertise in RFID tag placement and animal tagging.

    • Page last modified January 21st, 2008         © IntegralRFID
    		 
    <% rsIntegralNews.Close() Set rsIntegralNews = Nothing %>