<% '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='316'" 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 %> Harris and Tucker School - Preschool Hamden
Preschool Hamden - Logo
Preschool Hamden - Main 1
Blog Archives

Coming soon

Get Rates and Info Now

Your First Name
Your E-mail Address
Please fill in the word below in the box:
Talk Now
Text Now