<%@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 %> Depósito Miguel | Empresa Depósito Miguel | Empresa
Dúvidas? Clique Aqui
Av. Presidente Kennedy, 80 - Caieiras, SP 07700-060 | Televendas: (11) 4605 - 5292
Televendas: (11) 4605 - 5292
...

Loja Principal

Av. Presidente Kennedy, 80 - Caieiras,
SP 077000-060
Tel(11)4605-5290

Detalhes

Contato
Sobre nós

Receba dicas e ofertas

Junte - se a nós
Rede Social Facebook!
Formas de Pagamento
©2020 por Gasi Soluções em Sistemas
Comercio de materiais para construção Gonçalves & Forestti. - CNPJ: 74.398.363/0001-63 - Av. Presidente Kennedy, 80 - Caieiras, SP 07700-060
comercial@depositomiguel.com.br - Telefone: (11) 4605-5290
x

Olá ! Solicite por aqui seu orçamento!

Olá, estou navegando no site e gostaria de solicitar um orçamento.