Jump to content

  2. → lone's Content

lone's Content

There have been 28 items by lone (Search limited from 19/04/2023)


Tipos

See this member's


Ordernar por                Order  

#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


#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.


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


#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?


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


#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


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


#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

%>


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


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


#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


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


#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


#214350 Whois (.com.br) Em Asp

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

Kra tenta esse sistema aqui

DIWhoIs


#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


#198523 Listbox Dinamica

Posted by lone on 30/09/2003, 11:28 in ASP

Caros tenho uma lista de cidades no bd, e quero montar uma listbox dinamica ou seja quando for selecionado uma cidade ela automaticamente seja enviada para a pagina com o nome da cidade, no bd tenho os campos "nomecidade" e "link", a listbox eu consegui fazer agora como faço para cada cidade estar linkada nos seus respectivos links

<%
Set Conn=server.createobject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("osmelhores.mdb")

Set Usr=server.createobject("ADODB.Recordset")
Usr.Open "Select Distinct(nomecidade) From cidades", Conn, 3, 3

If Usr.eof then
response.write "não existe registro"
else
%>
<BODY>
<select name="select">
<%do While not Usr.eof%>
<option><%=Usr("nomecidade")%></option>
<%USR.MoveNext()
loop%>
</select>
<%end if%>
<%Usr.close%>
</BODY>
</HTML>


#205645 Erro No Recordset

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

Aqui o mrecordset só abre se estiver assim
<option value="teste.htm"><%=Usr("nomecidade")%></option>

mas se estiver assim
<option value="<%=Usr("link")%>"><%=Usr("nomecidade")%></option>
e dá o seguinte erro
Tipo de erro:
ADODB.Recordset (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/casali/novoteste.asp, line 31


#205620 Erro No Recordset

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

Caros crie um menu estilo e quando busco no banco de dados ele bre o nomes da cidade mas não os links dá o seguinte erro

Tipo de erro:
ADODB.Recordset (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/casali/novoteste.asp, line 31

mas quando tiro a referencia do link e coloco uma url ele abre normalmente os nomes da cidades no bd. não consegui achar o erro, 


<%
Set Conn=server.createobject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("osmelhores.mdb")

Set Usr=server.createobject("ADODB.Recordset")
Usr.Open "Select Distinct(nomecidade) From cidades", Conn, 3, 3

If Usr.eof then
response.write "não existe registro"
else
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>

<form name="navegacao" method="post" action="">
<select name="navegacao" onChange="MM_jumpMenu('parent',this,0)">
<%do While not Usr.eof%>
<option value="<%=Usr("link")%>"><%=Usr("nomecidade")%></option>
<%USR.MoveNext()
loop%>
</select>
<%end if%>
<%Usr.close%>
             
</body>
</html>


#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!


#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, ........


#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



  1. Fórum WMO
  2. → lone's Content
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq