<% 'connect to the database Set conn = Server.CreateObject("ADODB.Connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & _ Server.MapPath("./toxictracker/food.mdb") mySql = " SELECT Min(TDS.id) AS MinOfid, Max(TDS.id) AS MaxOfid FROM TDS WHERE (TDS.Conc>0) " set rsId=Server.CreateObject("ADODB.recordset") rsId.Open mySQL,conn,3 if not rsId.EOF then lowerBound = rsId("MinOfid") upperBound = rsId("MaxOfid") Randomize() randValue =int((upperBound-lowerBound + 1) * rnd()) + lowerBound mySql = " SELECT TDS.Conc, TDSFoodItems.FoodName, TDSToxins.ToxinName, TDS.id " & _ " FROM (TDS INNER JOIN TDSFoodItems ON TDS.FoodCode = TDSFoodItems.FoodCode) INNER JOIN TDSToxins ON TDS.ToxinCode = TDSToxins.ToxinCode " & _ " WHERE TDS.id= " & randValue set rsFood=Server.CreateObject("ADODB.recordset") rsFood.Open mySQL,conn,3 theFood=rsFood("FoodName") theToxin=rsFood("ToxinName") theConc=rsFood("Conc") end if %> FoodWatch - food safety, human and environmental health

 

Welcome to FoodWatch

FoodWatch provides meaningful information and effective tools to Canadians so that they can make informed decisions about food safety, and act on these decisions to achieve better human and environmental health.

What's New