<% 'Applies only to the home page Dim dbH 'DB object Dim strSQLH 'DB SQL query Dim cmdH 'DB Command Dim strConnH 'DB string connection Dim arrPagesH 'DB pages table Set dbH = Server.CreateObject("ADODB.Connection") Set arrPagesH = Server.CreateObject("Scripting.Dictionary") strConnH = "Provider=SQLOLEDB; Data Source = 192.168.180.53; Initial Catalog = SD_CMS; User Id = sd_cms_client; Password=SD_CMS_1atfF4p9" dbH.Open strConnH strSQLH = "Select * from CMS_Content WHERE user_id='201'" set objRsH = dbH.execute(strSQLH) if not objRsH.EOF then do while not objRsH.EOF pageNameH = trim(objRsH("page_name")) pageContentH = trim(objRsH("page_content")) arrPagesH.Add pageNameH,pageContentH objRsH.Movenext loop End If arrkeysH = arrPagesH.Keys If Err.Number <> 0 Then response.write "Error connecting to the database" Response.End End If %> Country Fresh Meats and Deli - Deli Thunder Bay
  • WELCOME

    Welcome to our website... use our website to learn more about our company
  • ABOUT US

    Want to learn more about our company? You are in the right place!
  • SERVICES

    We offer many varities of services! Find out how we can help you today!
  • CONTACT

    Grab all of our contact information! Let's stay in touch!
Recipe of the Month

 

 

 

Deli Thunder Bay - Image 1 Deli Thunder Bay - Image 2 Deli Thunder Bay - Image 3