<%
if request.QueryString("Pagina") <> "" then
Pagina_ID = cint(request.QueryString("Pagina"))
end if
Dim Pagina
Dim Pagina_cmd
Dim Pagina_numRows
Set Pagina_cmd = Server.CreateObject ("ADODB.Command")
Pagina_cmd.ActiveConnection = MM_Loja_STRING
Pagina_cmd.CommandText = "SELECT * FROM pagina WHERE PaginaID = ?"
Pagina_cmd.Prepared = true
Pagina_cmd.Parameters.Append Pagina_cmd.CreateParameter("param1", 5, 1, -1, Pagina_ID) ' adDouble
Set Pagina = Pagina_cmd.Execute
Pagina_numRows = 0
%>
<%If Not Pagina.EOF Then%>