<% '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='378'" 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 %> Selleck Mechanical - Welders / Fabricators / Pipe fitters
Mechanical Contractor Brockville
2620 County Road 15, Maitland, ON 
Phone: 613.348.3008| Fax: 613.348.3919
NEW Kingston Location
80 Hickson Avenue Un #5, Kingston ON, K7K 2N6 
Phone: 613.542.3008| Fax: 613.542.3918
Mechanical Contractor BrockvilleMechanical Contractor BrockvilleBookmark Selleck Mechanical!