%@LANGUAGE="VBSCRIPT"%> <% Dim rs_menu Dim rs_menu_cmd Dim rs_menu_numRows Set rs_menu_cmd = Server.CreateObject ("ADODB.Command") rs_menu_cmd.ActiveConnection = MM_padrao_STRING rs_menu_cmd.CommandText = "SELECT * FROM menu_produto ORDER BY menu ASC" rs_menu_cmd.Prepared = true Set rs_menu = rs_menu_cmd.Execute rs_menu_numRows = 0 %> <% Dim rs_produto__MMColParam rs_produto__MMColParam = "d" If (Request.QueryString("d") <> "") Then rs_produto__MMColParam = Request.QueryString("d") End If %> <% Dim rs_produto Dim rs_produto_cmd Dim rs_produto_numRows Set rs_produto_cmd = Server.CreateObject ("ADODB.Command") rs_produto_cmd.ActiveConnection = MM_padrao_STRING rs_produto_cmd.CommandText = "SELECT * FROM produto WHERE destaque = ? ORDER BY id DESC" rs_produto_cmd.Prepared = true rs_produto_cmd.Parameters.Append rs_produto_cmd.CreateParameter("param1", 200, 1, 255, rs_produto__MMColParam) ' adVarChar Set rs_produto = rs_produto_cmd.Execute rs_produto_numRows = 0 %> <% Dim rs_busca Dim rs_busca_cmd Dim rs_busca_numRows Set rs_busca_cmd = Server.CreateObject ("ADODB.Command") rs_busca_cmd.ActiveConnection = MM_padrao_STRING rs_busca_cmd.CommandText = "SELECT * FROM menu_produto ORDER BY menu ASC" rs_busca_cmd.Prepared = true Set rs_busca = rs_busca_cmd.Execute rs_busca_numRows = 0 %> <% Dim rs_texto_index Dim rs_texto_index_cmd Dim rs_texto_index_numRows Set rs_texto_index_cmd = Server.CreateObject ("ADODB.Command") rs_texto_index_cmd.ActiveConnection = MM_padrao_STRING rs_texto_index_cmd.CommandText = "SELECT * FROM texto_index ORDER BY id DESC" rs_texto_index_cmd.Prepared = true Set rs_texto_index = rs_texto_index_cmd.Execute rs_texto_index_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_menu_numRows = rs_menu_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = 30 Dim HLooper1__index HLooper1__index = 0 rs_produto_numRows = rs_produto_numRows + HLooper1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 1 Repeat2__index = 0 rs_texto_index_numRows = rs_texto_index_numRows + Repeat2__numRows %>
michael kors handbags Manolo Blahnik Outlet isabel marant usa nike free run Canada Goose Jackets Online Giuseppe Zanotti Sneakers discount christian louboutin ray ban sunglasses roger vivier boots roger vivier boots barbour mens jacket <% rs_menu.Close() Set rs_menu = Nothing %> <% rs_produto.Close() Set rs_produto = Nothing %> <% rs_busca.Close() Set rs_busca = Nothing %> <% rs_texto_index.Close() Set rs_texto_index = Nothing %>