%@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 %>
" class="linklista"><%=(categorias.Fields.Item("categoria").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 categorias.MoveNext() Wend %>
|
<%
startrw = startrw + 1
produtos.MoveNext()
Wend
%>
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)%>