<%@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 %> :: FAST-CUT :: michael kors clearance
cheap Manolo Blahnik Shoes
isabel marant factory outlet
nike free 4.0
Canada Goose Jackets Online
Giuseppe Zanotti outlet
christian louboutin shoes online
ray ban glasses
cheap roger vivier shoes
cheap roger vivier shoes
discount barbour jackets
     
<% While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF)) %>
" class="style3 style4"><%=(rs_menu.Fields.Item("menu").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_menu.MoveNext() Wend %>


michael kors handbags
Manolo Blahnik Boots
cheap isabel marant shoes
nike free womens
Cheap Canada Goose Jackets
Giuseppe Zanotti Sneakers
christian louboutin shoes outlet
ray ban clubmaster
discount roger vivier shoes
discount roger vivier shoes
barbour wax jacket


<% While ((Repeat2__numRows <> 0) AND (NOT rs_texto_index.EOF)) %> michael kors purses
Manolo Blahnik Pumps
cheap isabel marant boots
nike free shoes
Canada Goose Jackets man
Giuseppe Zanotti Loafers
christian louboutin shoes
ray ban online
roger vivier online store
roger vivier online store
barbour ferndown jacket
" width="198" height="140" />
<%=(rs_texto_index.Fields.Item("texto").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_texto_index.MoveNext() Wend %> <% If rs_texto_index.EOF And rs_texto_index.BOF Then %> Não há texto cadastrado. <% End If ' end rs_texto_index.EOF And rs_texto_index.BOF %>
michael kors wallet
Manolo Blahnik Sandals
cheap isabel marant sneakers
nike free australia
Canada Goose Jackets woman
Giuseppe Zanotti Sale
discount christian louboutin
ray ban usa
roger vivier shoes
roger vivier sandals
barbour mens jacket
 

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 10 while((numrows <> 0) AND (Not rs_produto.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rs_produto.EOF)) %> <% startrw = startrw + 1 rs_produto.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
michael kors wallet
Manolo Blahnik Sandals
cheap isabel marant sneakers
nike free australia
Canada Goose Jackets woman
Giuseppe Zanotti Sale
discount christian louboutin
ray ban usa
roger vivier shoes
roger vivier sandals
barbour outlet
">" width="138" height="117" border="0" />
<%=(rs_produto.Fields.Item("produto").Value)%>
Preço sob consulta

michael kors bags
Manolo Blahnik Shoes
isabel marant uk
nike shoes
Canada Goose Jackets Outlet
Giuseppe Zanotti Boot
christian louboutin shoes
cheap ray ban sunglasses
roger vivier shoes
roger vivier shoes
barbour outlet
<% If rs_produto.EOF And rs_produto.BOF Then %> No momento não há produtos em destaque. <% End If ' end rs_produto.EOF And rs_produto.BOF %>
 

 

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 %>