<%@LANGUAGE="VBSCRIPT" %> <% '******************************************************************* ' Página gerada pelo sistema Dataform 2 - http://www.dataform.com.br '******************************************************************* ' Altere os valores das variáveis indicadas abaixo se necessário 'String de conexão para o banco de dados do Microsoft Access strCon = "DBQ=E:/home/mosaicoimpressao/Dados/DB/osmosaico.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Número total de registros a serem exibidos por página Const RegPorPag = 15 'Número de páginas a ser exibido no índice de paginação VarPagMax = 10 'Cor da linha selecionada na tabela de registros cor_linha_selecionada = "gainsboro" 'Nome da página de consulta pagina_consulta = "../crm/cadastro.asp" 'Nome da página de alteração pagina_alteracao = "../crm/df_alteracao.asp" 'Nome da página de inclusão pagina_inclusao = "../crm/df_inclusao.asp" 'Nome da página de login pagina_login = "../crm/default.asp" '******************************************************************* If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then %> .::MOSAICO IMPRESSÃO::. <% Session.LCID = 1046 %>


<% Else Response.Write "Acesso negado... somente o administrador do site tem acesso a esta página." Response.Write "
Clique aqui para efetuar login no sitema" End If %><% Sub LinksNavegacao() 'O código a seguir insere uma tabela com todos os links de navegação das páginas Response.Write "" Response.Write "
" Response.Write "Página " & PagAtual & " de " & TotPag Response.Write "
" If PagAtual > 1 Then Response.Write "< Anterior" End If Response.Write "" If NumPagMax - VarPagMax <> 0 then Response.Write " <<  " End If for i = NumPagMax - (VarPagMax - 1) to NumPagMax If i <= TotPag then If i <> CInt(PagAtual) then Response.Write " " & i & " " Else If PagAtual <> TotPag Then Response.Write " " & i & " " End If End If End If Next If NumPagMax < TotPag then Response.Write "  >>" End If Response.Write "" If PagAtual <> TotPag Then Response.Write "  Proxima >" End If Response.Write "
" End Sub %>