*** Casa Auxiliadora ***

<%@LANGUAGE="VBSCRIPT"%> <% Dim Promocao__MMColParam Promocao__MMColParam = "true" if(Request("MM_EmptyValue") <> "") then Promocao__MMColParam = Request("MM_EmptyValue") %> <% response.Redirect("http://www.casaauxiliadora.com.br/novosite") set Promocao = Server.CreateObject("ADODB.Recordset") Promocao.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\casaauxiliadora1\dados\produtos.mdb;" Promocao.Source = "SELECT * FROM Produtos WHERE Promocao = " + Replace(Promocao__MMColParam, "'", "''") + " ORDER BY Nome ASC" Promocao.CursorType = 0 Promocao.CursorLocation = 2 Promocao.LockType = 3 Promocao.Open Promocao_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Promocao_numRows = Promocao_numRows + Repeat1__numRows %> *** Casa Auxiliadora ***

Produtos

Assentos e louças

Azulejos e pisos

Faixas e filetes

Banheiras e acessórios

<% dim NumBanner dim imgBanner dim linkBanner NumBanner=Application("nbanner") if NumBanner="" then NumBanner="1" end if select case NumBanner case "1" imgBanner="flash/baner1.swf" linkBanner="promo1.asp" application("nbanner")="2" case "2" imgBanner="flash/baner2.swf" linkBanner="promo1.asp" application("nbanner")="3" case "3" imgBanner="flash/baner3.swf" linkBanner="promo1.asp" application("nbanner")="1" end select %> <% While ((Repeat1__numRows <> 0) AND (NOT Promocao.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Promocao.MoveNext() Wend %>



Faça aqui seu orçamento s
-
-

Indique este site a um amigo