<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim empresa Dim empresa_cmd Dim empresa_numRows Set empresa_cmd = Server.CreateObject ("ADODB.Command") empresa_cmd.ActiveConnection = MM_conexao_STRING empresa_cmd.CommandText = "SELECT cep, cidade, email, endereco, estado, fone, site, subtitulo, titulo FROM institucional" empresa_cmd.Prepared = true Set empresa = empresa_cmd.Execute empresa_numRows = 0 %> <% Dim produtos__MMColParam produtos__MMColParam = "1" If (Request.QueryString("cat") <> "") Then produtos__MMColParam = Request.QueryString("cat") End If %> <% Dim produtos Dim produtos_cmd Dim produtos_numRows Set produtos_cmd = Server.CreateObject ("ADODB.Command") produtos_cmd.ActiveConnection = MM_conexao_STRING produtos_cmd.CommandText = "SELECT * FROM produto WHERE categoria = ? ORDER BY id DESC" produtos_cmd.Prepared = true produtos_cmd.Parameters.Append produtos_cmd.CreateParameter("param1", 200, 1, 100, produtos__MMColParam) ' adVarChar Set produtos = produtos_cmd.Execute produtos_numRows = 0 %> <% Dim nomecat__MMColParam nomecat__MMColParam = "1" If (Request.QueryString("cat") <> "") Then nomecat__MMColParam = Request.QueryString("cat") End If %> <% Dim nomecat Dim nomecat_cmd Dim nomecat_numRows Set nomecat_cmd = Server.CreateObject ("ADODB.Command") nomecat_cmd.ActiveConnection = MM_conexao_STRING nomecat_cmd.CommandText = "SELECT * FROM produto_categoria WHERE id = ?" nomecat_cmd.Prepared = true nomecat_cmd.Parameters.Append nomecat_cmd.CreateParameter("param1", 5, 1, -1, nomecat__MMColParam) ' adDouble Set nomecat = nomecat_cmd.Execute nomecat_numRows = 0 %> <% Dim categorias Dim categorias_cmd Dim categorias_numRows Set categorias_cmd = Server.CreateObject ("ADODB.Command") categorias_cmd.ActiveConnection = MM_conexao_STRING categorias_cmd.CommandText = "SELECT * FROM produto_categoria ORDER BY categoria ASC" categorias_cmd.Prepared = true Set categorias = categorias_cmd.Execute categorias_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 produtos_numRows = produtos_numRows + HLooper1__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 categorias_numRows = categorias_numRows + Repeat1__numRows %>

Soluções

<% While ((Repeat1__numRows <> 0) AND (NOT categorias.EOF)) %>

" class="linklista"><%=(categorias.Fields.Item("categoria").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 categorias.MoveNext() Wend %>

 

Atendimento Online

mapa

Você está em: Home > Produtos

<%=(nomecat.Fields.Item("categoria").Value)%>

Clique e conheça nossos produtos

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not produtos.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not produtos.EOF)) %> <% startrw = startrw + 1 produtos.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
">" alt="Saiba mais" width="185" />

 

<%=(produtos.Fields.Item("produto").Value)%>

">+ Saiba mais

 

Home  |  Voltar

Home  |  Quem somos  |  O que fazemos  |  Produtos  |  Clientes  |  Atendimento

 

<%=(empresa.Fields.Item("titulo").Value)%> | <%=(empresa.Fields.Item("subtitulo").Value)%>

<%=(empresa.Fields.Item("endereco").Value)%> | <%=(empresa.Fields.Item("cidade").Value)%>, <%=(empresa.Fields.Item("estado").Value)%>

Fone: <%=(empresa.Fields.Item("fone").Value)%>

<% empresa.Close() Set empresa = Nothing %> <% produtos.Close() Set produtos = Nothing %> <% nomecat.Close() Set nomecat = Nothing %> <% categorias.Close() Set categorias = Nothing %>