LISTA DE CADASTRADOS NO NIVAS GERAIS 4x4

<% Dim Myconn Dim RS Dim Sqlstr Set Myconn = server.createobject("ADODB.Connection") Myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\db\cadastronivas.mdb" Myconn.Open Set RS = server.CreateObject("ADODB.Recordset") Sqlstr = "Select ID from Cadastro where CadastroOK = 'OK'" RS.open Sqlstr, Myconn 'loop through the recordset and generate table rows DIM iRecordCount iRecordCount = 0 Do until RS.EOF iRecordCount = iRecordCount + 1 RS.MoveNext Loop Response.Write "" & iRecordCount & " Membros Cadastrados

Cadastre-se na nossa página e tenha sua Home Page pessoal, com a foto de seu Niva.

Assine o Grupo de discussão do Yahoo e receba Notícias no seu email. Clique aqui! e envie um email automático de cadastramento.

Diretoria

<% Set Myconn = server.createobject("ADODB.Connection") Myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\db\cadastronivas.mdb" Myconn.Open Set RS = server.CreateObject("ADODB.Recordset") Sqlstr = "Select * from Cadastro where Cargo <> '' and CadastroOK = 'OK' order by Ordem" RS.open Sqlstr, Myconn response.write "" 'loop through the recordset and generate table rows Do until RS.EOF response.write "" response.write "" response.write "" response.write "" RS.MoveNext Loop response.write "" RS.close Myconn.close set RS = nothing set Myconn = nothing response.write "

" response.write "" response.write "" & FixQuote(RS.fields("Nome").value) &" - (" & FixQuote(RS.fields("Cidade").value) &" - " & FixQuote(RS.fields("Estado").value) &")" &"" response.write "" response.write " " response.write "" & FixQuote(RS.fields("Cargo").Value) & " " response.write "

" %>

Niveiros

<% Set Myconn = server.createobject("ADODB.Connection") Myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\db\cadastronivas.mdb" Myconn.Open Set RS = server.CreateObject("ADODB.Recordset") Sqlstr = "Select * from Cadastro where Cargo is null and CadastroOK = 'OK' order by nome" RS.open Sqlstr, Myconn response.write "" 'loop through the recordset and generate table rows Do until RS.EOF response.write "" response.write "" response.write "" response.write "" RS.MoveNext Loop response.write "" RS.close Myconn.close set RS = nothing set Myconn = nothing response.write "

" response.write "" response.write "" & FixQuote(RS.fields("Nome").value) &" - (" & FixQuote(RS.fields("Cidade").value) &" - " & FixQuote(RS.fields("Estado").value) &")" &"" If FixQuote(RS.fields("imagem1").value) <> "" Then response.write "" End If If FixQuote(RS.fields("novo").value) <> "" Then response.write "" End If response.write " " response.write "" & FixQuote(RS.fields("Cargo").Value) & " " response.write "

" %>