<% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "Driver={SQL Server}; Server=bcmenu.db.8990392.hostedresource.com; Database=bcmenu; Uid=bcmenu; Pwd=BC123xyzbc;" conn.Open %> <% page_sql = "SELECT * FROM pages WHERE page_id = 2" ' Create you Recordset Object Set objRst = Server.CreateObject("ADODB.Recordset") ' The CursorLocation and the CursorType must be set as they are here ' in order for Recordset Paging to work properly. objRst.CursorLocation = 3 'adUseClient objRst.CursorType = 3 'adOpenStatic objRst.ActiveConnection = conn ' Open the recordset. objRst.Open page_sql Do While Not (objRst.Eof) ' All we do here is just show the records page_html = objRst("page_html") ' Move on to the next record objRst.MoveNext Loop objRst.close set objRst = nothing %> Bagel Country
   
     

<% response.Write(page_html) %>











Copyright 2012 Bagel Country
9306 Skokie Blvd. Skokie, Illinois Call (847) 673-3030