<% '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='144'" 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 %> Affordable Limo - Boston Limo
Talk Now LiveHelp Text Now
Join Newsletter