%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim pagina Dim strSQLpag pagina = request.QueryString("id") Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("gendb.mdb") Set rsPag = Server.CreateObject("ADODB.Recordset") strSQLpag = "SELECT * FROM pags WHERE id = " & pagina & ";" rsPag.Open strSQLpag, adoCon %>
" bgcolor="<%= rsPag("bodycolor")%>"> <%= rsPag("fckeditor1") %>