<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim rsPagina
Dim rsPagina_cmd
Dim rsPagina_numRows
Set rsPagina_cmd = Server.CreateObject ("ADODB.Command")
rsPagina_cmd.ActiveConnection = MM_Feijoada_STRING
rsPagina_cmd.CommandText = "SELECT * FROM paginas WHERE idPagina = " & Request.QueryString("Pagina")
rsPagina_cmd.Prepared = true
Set rsPagina = rsPagina_cmd.Execute
rsPagina_numRows = 0
%>
Feijoada da Clementina
<%=(rsPagina.Fields.Item("pagina").Value)%>
<%
rsPagina.Close()
Set rsPagina = Nothing
%>