<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim categoria Dim categoria_numRows Set categoria = Server.CreateObject("ADODB.Recordset") categoria.ActiveConnection = MM_Loja_STRING categoria.Source = "SELECT * FROM categoria ORDER BY nome ASC" categoria.CursorType = 0 categoria.CursorLocation = 2 categoria.LockType = 1 categoria.Open() categoria_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_Loja_STRING Recordset2.Source = "SELECT * FROM produtos" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 categoria_numRows = categoria_numRows + Repeat1__numRows %> Imperium
        • Home | Empresa | Serviços | Contate-nos
q
Camisão
Camisetas
Uniformes

Linha Feminina
 
 
q
s
Bonés
Bonés Personalizados
Bonés de Marcas
a
a
..::.Imperium Bordados Computadorizados

Rua Recife, 311Centro - Catanduva-SP
Cep 15800-000
Fone (17) 3523 2917
Desenvolvimento MaquinaWEB™ Studio and Solutions®Tecnologia Simplesnet
<% categoria.Close() Set categoria = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>