% 'toxictracker.asp?db=cfia or 'toxictracker.asp?db=tds db=request.querystring("db") if db="" then db="cfia" end if dim FoodCategoryTbl dim FoodItemTbl dim toxinCategoryTbl dim toxinItemTbl dim toxinTbl if db="cfia" then FoodCategoryTbl="CFIAFoodCategory" FoodItemTbl="CFIAFoodItems" toxinCategoryTbl="CFIAToxinCategory" toxinItemTbl="CFIAToxins" toxinTbl="CFIA" else FoodCategoryTbl="TDSFoodCategory" FoodItemTbl="TDSFoodItems" toxinCategoryTbl="TDSToxinCategory" toxinItemTbl="TDSToxins" toxinTbl="TDS" end if 'connect to the database Set conn = Server.CreateObject("ADODB.Connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & _ Server.MapPath("food.mdb") mySql = "SELECT FoodCatCode, FoodCatName FROM " & FoodCategoryTbl & " ORDER BY FoodCatName " set rsFoodCategory=Server.CreateObject("ADODB.recordset") rsFoodCategory.Open mySQL,conn,3 Response.Write "" & vbNewLine %>