<%@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") %>
" autostart="true" loop="1"> <bgsound src="<%= rsPag("bodymusic") %>" loop="-1"> <% rsPag.Close Set rsPag = Nothing %>