Jump to content


lone's Content

There have been 28 items by lone (Search limited from 20/09/2020)



Ordernar por                Order  

#431661 Exibir Campo Oculto De Formulario

Posted by lone on 24/08/2004, 15:29 in HTML, CSS e Metodologias

Po galera voceis são ninjas mesmo, valeu pela força tanto ao CrAsh_OveRride como ao Klaus, brigadão :D



#431154 Buscar Camos Na Tabela Sem Refresh No Form

Posted by lone on 23/08/2004, 20:40 in ASP

Pessoal tenho um formulario e nele um select com estado e cidade só que ele aparece no ultimo item do form e quando seleciono o estado para lista as cidades relacionadas vai beleza mas as informações que o user ja digitou acima somem, e ele tem que digitar novamente, como resolver isso?



#431140 Exibir Campo Oculto De Formulario

Posted by lone on 23/08/2004, 20:08 in HTML, CSS e Metodologias

Cara desculpe minha ineficacia mas do jeito que fiz esta dando erro e não mostra o campo

<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

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.

Eu só consegui se você utilizar o style="visibility:hidden;"... com o style="hidden" nao funciona....

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">
&nbsp;&nbsp; <a href="javascript:hugo();">link</a></form>
</body>
</html>

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?



#431008 Exibir Campo Oculto De Formulario

Posted by lone on 23/08/2004, 16:46 in HTML, CSS e Metodologias

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.



#430269 Consulta No Access

Posted by lone on 22/08/2004, 17:54 in ASP

Pessoal é possivel mostrar numa pag asp uma consulta fita no access
ou seja já tenho uma consulta pronta no access e gostaria de saber se posso utiliza-la numa pg asp, apenas referenciando o nome da consulta, já vi isso mas esqueci como se faz



#412890 Falha Ao Conectar No Bd

Posted by lone on 25/07/2004, 18:53 in ASP

(y) Cara funcionou lindo, muito obrigado, estou meio enferrujado mas voltando a ativa. :D



#412381 Falha Ao Conectar No Bd

Posted by lone on 24/07/2004, 20:00 in ASP

Caros quando tento abrir o bd aparece o seguinte erro

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>



#244238 Erro Para Liberar Registro

Posted by lone on 04/12/2003, 12:06 in ASP

Tente:

And liberar= true;

Cara Brigadão funcionou perfeitamente, valeu :D



#244222 Erro Para Liberar Registro

Posted by lone on 04/12/2003, 11:38 in ASP

Caros tenho um banco de dados onde criei um campo chamado liberar como sim/não o default dele é não até que seja atualizado para sim, porem não consigo liberar a consulta travada com os campos re e liberar dá o seguinte erro

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
%>

:o Help, Help, Help, Help, Help, Help, ........



#231588 Função Para Validar Form

Posted by lone on 16/11/2003, 15:15 in ASP

Caros gostaria de saber como criar uma Função para validar formulario de cadastro em asp que ao submeter o form ele apareça um pop up informando que todos os dados devem se preenchidos, sei que é possivel fazer em JavaScript, mas gostaria de fazer em asp, ou seja criar uma função e depois poder fazer referencia a ela por include ou mesmo que ela fique no cabeçalho da pagina, quem puder me ajudeeeeeeeeeeeeeeeeeeeeeeeeeeee!



#229600 Mistério No Update

Posted by lone on 13/11/2003, 11:43 in ASP


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
%>

B)

(y) Valeu cybermix o esquema funcionou perfeitamente, muito obrigado mesmo a todos ai do forum :D :D :D :D :D :D :D :D



#228589 Mistério No Update

Posted by lone on 11/11/2003, 15:08 in ASP

Para executar uma instrução de DELETE ou UPDATE ou INSERT vc não precisa de um record set basta usar a conexao para executar o comando

db.Execute(StrSql)

blz
Falows

Cara Fiz a alteração e dá erro do mesmo jeito dizendo que o objeto rs é necessário



#228415 Mistério No Update

Posted by lone on 11/11/2003, 11:24 in ASP

Galera tenho um sistema onde estou penando para achar o erro, o que ocorre é seguinte
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
%>



#226507 Bíblia On-line

Posted by lone on 08/11/2003, 18:22 in ASP

Gostaria de receber esta bíblia em .xls se possível. O meu e-mail é conexaojr@yahoo.com.br

um forte abraço



#224803 Erro Na Paginação

Posted by lone on 06/11/2003, 11:20 in ASP

tenta 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
%>

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, valeu :D


<%
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

blz 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

Cara eu corrigi o sistema da busca mas o erro pra navegar entra as paginas continua o mesmo

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

Galera consegui fazer a paginação com a ajuda do pessoal do forum, mas tem um erro esquisito, agora o sistemas lista todos os registro da variavel login, mas quando navego entre as paginas ele busca também os outros registro que não foram solicitados, ou seja quando clico no link para ir para a proxima pagina ele automaticamente busca os registros que estão no bd , gostaria de saber como travar a paginação só nos registros da variavel 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 "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>&nbsp;</td>
    <td><font size="2">&nbsp;</font></td>
    <td><font size="2">&nbsp;</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>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</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

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!

:D

Cara funcionou perfeitamente, valeu, a força. :D



#216113 Erro Na Paginação Do Ultimo Registro

Posted by lone on 24/10/2003, 23:44 in ASP

Valeu cara era por isso que dava o erro, eu nem me toquei, brigadão. :D



#215950 Como Mostrar Mensagen De Nenhum Arquivo Encontrado

Posted by lone on 24/10/2003, 18:56 in ASP

Galera como mostrar uma mensagem de nenhum arquivo encontrado quando não há dados no bd no codigo abaixo, pois simulei o script sem registros no bd e deu erro abaixo, quando há arquivos funciona normalmente

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>&nbsp;</td>
<td><font size="2">&nbsp;</font></td>
<td><font size="2">&nbsp;</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

ve 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>&nbsp;</td>
  <td><font size="2">&nbsp;</font></td>
  <td><font size="2">&nbsp;</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>&nbsp;</td>
  <td>&nbsp;</td>
  <td>&nbsp;</td>
  <td>&nbsp;</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
%>

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 Lone



#214809 Erro Na Paginação Do Ultimo Registro

Posted by lone on 23/10/2003, 11:40 in ASP

Caros fiz um sistema de paginação e ele lista normalmente os registros, porem no ultimo e dá a seguinte msg,

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>&nbsp;</td>
    <td><font size="2">&nbsp;</font></td>
    <td><font size="2">&nbsp;</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>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</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
%>



#214350 Whois (.com.br) Em Asp

Posted by lone on 22/10/2003, 19:18 in ASP

Kra tenta esse sistema aqui

DIWhoIs



#214324 Paginação De Registros

Posted by lone on 22/10/2003, 18:53 in ASP

galera tenho um banco de dados com os campos nome, data, avaliação, nota, professor e observações, preciso fazer uma paginação de registros da seguinte forma na pagina apareça os os 4 ultimos registros do bd por data de forma que a data seja um link que leve ao resto das opções da data clicada ou seja traga os demais campos daquela data e assim sucessivamente, mas não sei por onde começar, até agora só consegui listar todos os campos e todos os registros.
Agradeço a ajuda




IPB Skin By Virteq