- Fórum WMO
- → lone's Content
lone's Content
There have been 28 items by lone (Search limited from 22/05/2023)
#431661 Exibir Campo Oculto De Formulario
Posted by lone on 24/08/2004, 15:29 in HTML, CSS e Metodologias
#431154 Buscar Camos Na Tabela Sem Refresh No Form
Posted by lone on 23/08/2004, 20:40 in ASP
#431140 Exibir Campo Oculto De Formulario
Posted by lone on 23/08/2004, 20:08 in HTML, CSS e Metodologias
<html> <head> <title></title> <script language="javascript"> function hugo() { document.form.hugo.style.visibility = "visible"; } </script> </head> <body> <form action="" method="post" name="form" id="form"> <input type = radio Onclick ="javascript:hugo();"> <input style="visibility:hidden;" name="hugo"> </form> </body> </html>
#431128 Exibir Campo Oculto De Formulario
Posted by lone on 23/08/2004, 19:30 in HTML, CSS e Metodologias
Cara a logica que preciso é essa mesmo agora tem como fazer com um radio button, ou seja se o radio for selecionado ele mostra o campo seguinte se não for selecionado o campo permanece oculto?Eu só consegui se você utilizar o style="visibility:hidden;"... com o style="hidden" nao funciona....Pessoal gostaria de saber como exibir um campo oculto de formulario ao selecionar um radio buton, ou seja se a opção for sim ele mostra o campo oculto se for não ela passa para o proximo campo do form.
Não tenho a minima ideia de onde começar, agradeço a ajuda.
ve ae:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <script language="javascript"> function hugo() { document.form.hugo.style.visibility = "visible"; } </script> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="" method="post" name="form" id="form"> <input style="visibility:hidden;" name="hugo"> <a href="javascript:hugo();">link</a></form> </body> </html>
#431008 Exibir Campo Oculto De Formulario
Posted by lone on 23/08/2004, 16:46 in HTML, CSS e Metodologias
Não tenho a minima ideia de onde começar, agradeço a ajuda.
#412381 Falha Ao Conectar No Bd
Posted by lone on 24/07/2004, 20:00 in ASP
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'liberar='.
/news/Untitled-2.asp, line 11
Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Página:
GET /news/Untitled-2.asp
O codigo é esse
agradeço a ajuda
<% cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = conn 'RS.open "SELECT * FROM Noticias" RS.open "select *from Noticias where liberar="&sim&"" %> <html> <head> <title></title> </head> <% if not rs.eof then while not rs.eof %> <table width="100%" cellspacing="2"> <tr> <td><MARQUEE behavior=left><a href="ver.asp?id=<%=rs("id")%>"><%=rs("manchete")%></a><br><br></MARQUEE></td> <% rs.Movenext wend end if %> </tr> </table> </body> </html>
#244222 Erro Para Liberar Registro
Posted by lone on 04/12/2003, 11:38 in ASP
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 're= 30141 And liberar='.
/site/liberar.asp, line 73
o o valor re eu comparo com o request form e o campo liberar já está no banco de dados como sim/não
<% Dim re re = request.form("re") set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\dados\dados.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "Select * FROM dados WHERE re= "& re &" And liberar= "&true&"", db, 3,3 IF RecSet.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE do While not RecSet.EOF %> re=<%=RecSet("re")%> id=<%=RecSet("id")%>"> Data=<%=RecSet("data")%> Liberado<%=RecSet("liberar")%> <% RecSet.MoveNext loop End If %>
Help, Help, Help, Help, Help, Help, ........
#231588 Função Para Validar Form
Posted by lone on 16/11/2003, 15:15 in ASP
#229600 Mistério No Update
Posted by lone on 13/11/2003, 11:43 in ASP
Valeu cybermix o esquema funcionou perfeitamente, muito obrigado mesmo a todos ai do forum
StrSql = "UPDATE monitorias SET datarevisao='"&datarevisao&"', abertura='"&abertura&"', levantamentonecessidades='"&levantamentonecessidades&"', conhecimentotecnicos='"&conhecimentotecnicos&"', WHERE re= "& re &" And id= "&id
1º retire a virgula antes do where
2º nao use o rs
3º retire o on error resume next para ver qual o erro q retornara
ficando assim<% Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim db, StrSql, re, id Dim datarevisao, , abertura, levantamentonecessidades, conhecimentotecnicos 'Atrubuição dos valores as respectivas variáveis re = request.querystring("re") if re="" then re= session("re") end if id = request.querystring("id") if id="" then id= Session("id") end if datarevisao = Request.Form("datarevisao") abertura = Request.Form("abertura") levantamentonecessidades = Request.Form("levantamentonecessidades") conhecimentotecnicos = Request.Form("conhecimentotecnicos") 'Cria o objeto RecordSet e atribui a variável Set db = Server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria_online\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" StrSql = "UPDATE monitorias SET datarevisao='"&datarevisao&"', abertura='"&abertura&"', levantamentonecessidades='"&levantamentonecessidades&"', conhecimentotecnicos='"&conhecimentotecnicos&"' WHERE re= "& re &" And id= "&id 'Executaa inserção no Banco de Dados db.Execute(StrSql) 'Fecha o Objeto de Conexão db.close '"APAGA" qualquer instancia que possa ter no objeto Rs e db Set db = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.write "sucesso" end if %>
#228415 Mistério No Update
Posted by lone on 11/11/2003, 11:24 in ASP
tenho uma pagina que busca os dados e e outra que mostra os dados para alterar e a ultima que faz o update no bd, mas ai é que dá erro, pois ela não altera os dados mas não mostra a msg de erro o que preciso é que o sistema só altere os registros que estiverem com mesmo ID e RE
<% Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim db, StrSql, rs, re, id Dim datarevisao, , abertura, levantamentonecessidades, conhecimentotecnicos 'Atrubuição dos valores as respectivas variáveis re = request.querystring("re") if re="" then re= session("re") end if id = request.querystring("id") if id="" then id= Session("id") end if datarevisao = Request.Form("datarevisao") abertura = Request.Form("abertura") levantamentonecessidades = Request.Form("levantamentonecessidades") conhecimentotecnicos = Request.Form("conhecimentotecnicos") 'Cria o objeto RecordSet e atribui a variável Set db = Server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria_online\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" StrSql = "UPDATE monitorias SET datarevisao='"&datarevisao&"', abertura='"&abertura&"', levantamentonecessidades='"&levantamentonecessidades&"', conhecimentotecnicos='"&conhecimentotecnicos&"', WHERE re= "& re &" And id= "&id 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados Set Rs = db.Execute(StrSql) 'Fecha o Objeto de Conexão db.close '"APAGA" qualquer instancia que possa ter no objeto Rs e db Set Rs = Nothing Set db = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.write "sucesso" end if %>
#224803 Erro Na Paginação
Posted by lone on 06/11/2003, 11:20 in ASP
Cara eu estava apanhando da paginação mas com a sua ajuda e do pessoal do forum funcionou normalmente, brigadão, só demorei em responder porque minha placa mãe queimou, valeutenta deste jeito aqui
<%
Dim login
login = request.form("login") 'recuperando o valor para login numerico
if login="" then
login= request.querystring("login")
end if
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3
IF RecSet.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
contador=contador+1
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
RecSet.MoveNext
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste4.asp?login=" & login & "&n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<a href=paginacaoteste4.asp?n_page="&anterior&"&login =" & login & ">Anterior</a>"
End If
If proxima < navega Then
response.write space(1) & "<a href=paginacaoteste4.asp?n_page="&proxima&"&login =" & login & ">Próxima</a>"
End If
End If
%>
<% Dim login login = request.form("login") 'recuperando o valor para login numerico if login="" then login= request.querystring("login") end if n_page=request("n_page") If n_page="" Then n_page = 1 set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3 IF RecSet.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE RecSet.PageSize = 1 'registros por página RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página contador=0 do While not RecSet.EOF AND contador < RecSet.PageSize contador=contador+1 response.write "<font face=verdana size=2><b>" response.write RecSet("nome")&"</b><BR>" RecSet.MoveNext loop response.write "<br>" For navega= 1 to RecSet.PageCount If navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>" response.write navega Else response.write space(1) & "<a href=paginacaoteste7.asp?login=" & login & "&n_page=" & navega & ">" & navega & "</a>" & space(1) End If Next response.write "<br><br>" anterior = n_page - 1 proxima = n_page + 1 If anterior > 0 Then response.write "<a href=paginacaoteste7.asp?login=" & login & "&n_page=" & anterior & ">Anterior</a>" End If If proxima < navega Then response.write space(1) & "<a href=paginacaoteste7.asp?login=" & login & "&n_page=" & proxima & ">proxima</a>" End If End If %>
#219717 Erro Na Paginação
Posted by lone on 30/10/2003, 16:33 in ASP
Cara eu corrigi o sistema da busca mas o erro pra navegar entra as paginas continua o mesmoblz cara
é o seguinte: quando vc faz uma busca utilizando like ele devolve todos os resultados que tenham na string o valor do like
exemplo:
banco= login1
digito =1
no resultado vai aparecer o login1 tbm, pois nele vc tem a string 1 tbm
acredito que deve estar retornando mais de um resultado por causa disso
para testar se é isso mesmo troque
RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3
por
RecSet.Open "SELECT * FROM monitorias WHERE re = '%" & login & "%'", db, 3,3
[ ]"s
até transformei a variavel login numa variavel de sessão e mesmo assim não consigo passar ela para as proximas paginas da navegação elá continua dando o mesmo erro,
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 're='.
/monitoria/paginacaoteste4.asp, line 13
ou seja não estou conseguindo passar a variavel para as demais paginas é ele não acha a variavel de sessão que coloquei não estou conseguindo achar o erro. agradeço a ajuda
<% Dim login login = request.form("login") 'recuperando o valor para login numerico session("aut") = login ' transformando login numa variavel de sessão n_page=request("n_page") If n_page="" Then n_page = 1 set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3 IF RecSet.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE RecSet.PageSize = 1 'registros por página RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página contador=0 do While not RecSet.EOF AND contador < RecSet.PageSize contador=contador+1 response.write "<font face=verdana size=2><b>" response.write RecSet("nome")&"</b><BR>" RecSet.MoveNext loop response.write "<br>" For navega= 1 to RecSet.PageCount If navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>" response.write navega Else response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste4.asp?login=" & session("aut") & "&n_page=" & navega & ">" & navega & "</a>" & space(1) End If Next response.write "<br><br>" anterior = n_page - 1 proxima = n_page + 1 If anterior > 0 Then response.write "<a href=paginacaoteste4.asp?n_page="&anterior&"&login =" & session("aut") & ">Anterior</a>" End If If proxima < navega Then response.write space(1) & "<a href=paginacaoteste4.asp?n_page="&proxima&"&login =" & session("aut") & ">Próxima</a>" End If End If %>
#217269 Erro Na Paginação
Posted by lone on 26/10/2003, 14:34 in ASP
<% 'Paginação de Registros n_page=request("n_page") If n_page="" Then n_page = 1 set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3 IF RecSet.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE RecSet.PageSize = 1 'registros por página RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página contador=0 do While not RecSet.EOF AND contador < RecSet.PageSize contador=contador+1 response.write "<font face=verdana size=2><b>" response.write RecSet("nome")&"</b><BR>" %> <table align="center" cellspacing=4 class="quadro" cellpading=0> <tr bgcolor=#EBEBEB> <td><font color="#0000FF">Data <%=RecSet("data")%></font></td> <td> </td> <td><font size="2"> </font></td> <td><font size="2"> </font></td> </tr> <tr> <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td> <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das Necessidades</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td> </tr> <tr bgcolor="#009999"> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td colspan=4 align=center> </td> </tr> </table> <% RecSet.MoveNext loop response.write "<br>" For navega= 1 to RecSet.PageCount If navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>" response.write navega Else response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste2.asp?n_page=" & navega & ">" & navega & "</a>" & space(1) End If Next response.write "<br><br>" anterior = n_page - 1 proxima = n_page + 1 If anterior > 0 Then response.write "<font face=verdana size=2><b>" response.write "<a href=paginacaoteste2.asp?n_page="&anterior&">Anterior</a>" End If If proxima < navega Then response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste2.asp?n_page="&proxima&">Próxima</a>" End If End If %>
#217067 Como Mostrar Mensagen De Nenhum Arquivo Encontrado
Posted by lone on 26/10/2003, 10:17 in ASP
Cara funcionou perfeitamente, valeu, a força.Basicamente, você teria que agir da seguinte forma:
if RecSet.EOF = True Then
response.write "nada encontrado"
else
do While not RecSet.EOF ...
.... bla bla bla ...
end if
Entendeu?
Espero que tenha ajudado!
Boa sorte e qualquer dúvida, volte a postar!
#215950 Como Mostrar Mensagen De Nenhum Arquivo Encontrado
Posted by lone on 24/10/2003, 18:56 in ASP
Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
/monitoria/paginacaoteste.asp
<% dim login login = request.form("login") 'Paginação de Registros n_page=request("n_page") If n_page="" Then n_page = 1 set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "monitorias", db, 3,3 RecSet.PageSize = 1 'registros por página RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página contador=0 do While not RecSet.EOF AND contador < RecSet.PageSize response.write "<font face=verdana size=2><b>" response.write RecSet("nome")&"</b><BR>" contador=contador+1 %> <table align="center" cellspacing=4 class="quadro" cellpading=0> <tr bgcolor=#EBEBEB> <td><font color="#0000FF">Data <%=RecSet("data")%></font></td> <td> </td> <td><font size="2"> </font></td> <td><font size="2"> </font></td> </tr> <tr> <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td> <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das Necessidades</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td> </tr> <td colspan=4 align=center> </td> </tr> </table> <% RecSet.MoveNext loop response.write "<br>" For navega= 1 to RecSet.PageCount If navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>" response.write navega Else response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1) End If Next response.write "<br><br>" anterior = n_page - 1 proxima = n_page + 1 If anterior > 0 Then response.write "<font face=verdana size=2><b>" response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>" End If If proxima < navega Then response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>" End If %>
#215520 Erro Na Paginação Do Ultimo Registro
Posted by lone on 24/10/2003, 10:46 in ASP
Valeu Rodrigo funcionou perfeitamente, agora só me diz uma coisa quando voce tirou o movenext funcionou mas por que? se puder me explique porque ele deu o erro, Abraços Loneve se agora funciona:
<%
dim login
login = 30141
'Paginação de Registros
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "monitorias", db, 3,3
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
contador=contador+1
%>
<table align="center" cellspacing=4 class="quadro" cellpading=0>
<tr bgcolor=#EBEBEB>
<td><font color="#0000FF">Data <%=RecSet("data")%></font></td>
<td> </td>
<td><font size="2"> </font></td>
<td><font size="2"> </font></td>
</tr>
<tr>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>
<td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das
Necessidades</font></td>
<td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td>
</tr>
<tr bgcolor="#009999">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan=4 align=center> </td>
</tr>
</table>
<%
RecSet.MoveNext
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<font face=verdana size=2><b>"
response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>"
End If
If proxima < navega Then
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>"
End If
%>
#214809 Erro Na Paginação Do Ultimo Registro
Posted by lone on 23/10/2003, 11:40 in ASP
Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
/monitoria/paginacaoteste.asp
chequei o codigo e não localizei o erro
<% dim login login = 30141 'Paginação de Registros n_page=request("n_page") If n_page="" Then n_page = 1 set db = server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set RecSet=Server.CreateObject("ADODB.Recordset") RecSet.Open "monitorias", db, 3,3 RecSet.PageSize = 1 'registros por página RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página contador=0 do While not RecSet.EOF AND contador < RecSet.PageSize response.write "<font face=verdana size=2><b>" response.write RecSet("nome")&"</b><BR>" RecSet.MoveNext contador=contador+1 %> <table align="center" cellspacing=4 class="quadro" cellpading=0> <tr bgcolor=#EBEBEB> <td><font color="#0000FF">Data <%=RecSet("data")%></font></td> <td> </td> <td><font size="2"> </font></td> <td><font size="2"> </font></td> </tr> <tr> <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td> <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das Necessidades</font></td> <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td> </tr> <tr bgcolor="#009999"> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td colspan=4 align=center> </td> </tr> </table> <% loop response.write "<br>" For navega= 1 to RecSet.PageCount If navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>" response.write navega Else response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste.asp?n_page=" & navega & ">" & navega & "</a>" & space(1) End If Next response.write "<br><br>" anterior = n_page - 1 proxima = n_page + 1 If anterior > 0 Then response.write "<font face=verdana size=2><b>" response.write "<a href=paginacaoteste.asp?n_page="&anterior&">Anterior</a>" End If If proxima < navega Then response.write "<font face=verdana size=2><b>" response.write space(1) & "<a href=paginacaoteste.asp?n_page="&proxima&">Próxima</a>" End If %>
#214324 Paginação De Registros
Posted by lone on 22/10/2003, 18:53 in ASP
Agradeço a ajuda
- Fórum WMO
- → lone's Content
- Privacy Policy
- Regras ·