<%@LANGUAGE="VBSCRIPT"%> <% ' Declarando as informações de Aviso ' Declarando as variáveis Dim VS_Pagina Dim VS_EMAIL Dim VS_Contato Dim Conn Dim RS '// cnpj Parceiro e Responsavel pelo cliente. VS_DocSujei = "74398363000163" Call Abre_Conexao '// Localiza o Logo Tipo do Parceiro. VS_LogoTipo = fLocLTCli(VS_DocSujei) '// Localiza o EMAIL do Parceiro. VS_EMDocSujei = fLocEMCli(VS_DocSujei) IF (VS_DocSujei <> "74398363000163") Then Response.Write("Acesso não permitido! Cnpj: " & VS_DocSujei) Response.End() End IF '// Recebe Codigo CATEGORIA. vsCATEG = Request.QueryString("CAT") If vsCATEG = "" Then Session.Abandon() Response.Write("Categoria não definida! 01") Response.End End If '// Recebe ORIGEM CHAMADA para definir a Pagina e o Select (Pesquisa). vsIDPro = Request.QueryString("id") If vsIDPro = "" Then Session.Abandon() Response.Write("Categoria não definida! 02") Response.End End If '// Recebe Codigo GRUPO. vsIDGRUPO = Request.QueryString("idGRUPO") If vsIDGRUPO = "" Then Session.Abandon() Response.Write("Categoria não definida! 03") Response.End End If '// Recebe Codigo SUB GRUPO. vsIDSub = Request.QueryString("SubGr") If vsIDSub = "" Then Session.Abandon() Response.Write("Categoria não definida! 04") Response.End End If vsPromo = Request.QueryString("vsPro") If vsPromo = "" Then Session.Abandon() Response.Write("Categoria não definida! 05") Response.End End If '// Recebe Descricao digitada no Botão de PESQUISA. vsDESPES = Request.Form("vsDESPES") If vsDESPE <> "" Then '// Ponteiro Fixo para usar Seleção PESQUISA pela Descrição. vsIDPro = 4 End If '// Recebe ID Enviada pela pagina anterior. GSomd = Request.QueryString("gsom") If vsIDPro = "" Then Session.Abandon() Response.Write("Categoria não definida! 06") Response.End End If '// Recebe ID Enviada pela pagina anterior. GIdid = Request.QueryString("gid") If vsIDPro = "" Then Session.Abandon() Response.Write("Categoria não definida! 07") Response.End End If '// Recebe ID Enviada pela pagina anterior. GLogi = Request.QueryString("glog") If vsIDPro = "" Then Session.Abandon() Response.Write("Categoria não definida! 08") Response.End End If %> Couros

Depósito Miguel

Qualidade requer ser Depósito Miguel!

Se Reiventando e inovando a cada dia seu portfólio, com seus novos  produtos para atender o mercado com excelência sempre.

☞ Endereço:

Av Presidente Kennedy, 80 - Cep: 07700-000
Caieiras - São Paulo SP

☏ Telefone:

(11) 4605-5292

✉ Email:

comercial@depositomiguel.com.br