<%@ Language=VBScript %> <%Option Explicit %> <% Response.Expires = 0 %> <% If IsEmpty(Session("admin")) Then Response.Redirect "index.asp" End If %>

Lista de todos os Dados do Visitantes Cadastrados

<% Dim lista_visitante,visitante_id visitante_id = Request.QueryString("visitante_id") If IsEmpty(Request.QueryString("visitante_id")) Then %> <% End If Dim lojaDB,db_path db_path = "C:\Inetpub\vhosts\maia.ind.br\private\786214dcpw.mdb" set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path lojaDB.open Select Case (Request.QueryString("acao")) Case "apagar" lojaDB.Execute("DELETE FROM clientes WHERE id=" & visitante_id) response.redirect "visitante_deletar.asp" %> <% Case "atualizar" lojaDB.Execute("UPDATE clientes set fabricante='" & Request.Form("nome") & "' WHERE id=" & cat_id) %> <% End Select 'Exibe categorias set lista_visitante = lojaDB.Execute("SELECT * FROM clientes WHERE id=" & visitante_id) 'set lista_prod = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id=" & cat_id) 'If Not (lista_fabricantes.EOF) Then 'If lista_prod.EOF Then ' prod = 0 'Else 'prod = 0 'lista_prod.MoveFirst 'While Not lista_prod.EOF 'prod = prod + 1 'lista_prod.MoveNext 'Wend 'End If %> <% 'End If lojaDB.Close set lojaDB = Nothing %>

Visitante Removido

Visitante Atualizado

Nome :

<%=lista_visitante("nome")%>

Empresa :

<%=lista_visitante("empresa")%>

CNPJ :

<%=lista_visitante("cnpj")%>

Insc. Estadual :

<%=lista_visitante("insc")%>

Endereço :

<%=lista_visitante("endereco")%>

Bairro :

<%=lista_visitante("bairro")%>

Cidade :

<%=lista_visitante("cidade")%>

Estado :

<%=lista_visitante("estado")%>

CEP :

<%=lista_visitante("cep")%>

Fone :

( <%=lista_visitante("foneddd")%> )

<%=lista_visitante("fonenumero")%>

Fax :

( <%=lista_visitante("faxddd")%> )

<%=lista_visitante("faxnumero")%>

E-Mail:

<%=lista_visitante("email")%>

Formulario :

<%=lista_visitante("formulario")%>

Data :

<%=lista_visitante("data")%>

Comentário :

<%=lista_visitante("comentarios")%>

Para apagar definitivamente este Visitante do Cadastro
clique en "Apagar" ou clique em "Cancelar"

!! ATENÇÃO !! --- Ao apagar o Cadastro do Visitante, todas as
Informações ficarão automaticamente indisponíveis.