Pessoal,

Sei que o melhor é ensinar a pescar e não dar o peixe, mas nesse caso estou pedindo o PEIXE, pois não estou sabendo pescar.
Preciso colocar paginação neste código, pois os resultados da busca são muitos. Tem que ser neste código e eu não sei nada sobre paginação. Se alguém puder me ajudar peço que faça no código.

Eu preciso que coloquem a paginação no código literalmente. Já tentei várias vezes e não consegui, seguindo dicas e exemplos.


<% If Request.QueryString("mode") = "doit" Then

If Trim(Request.Form("SearchString")) = "" Then

Response.Write("<br><br><p align='center'><b>Você deve especificar uma busca!</b>")
Response.Write("<p align='center'><a href='buscar_eventos.asp'>Voltar!</a></p>")

Else

StrSQL = "SELECT IDNews, NewsHeadline, NewsDate FROM News WHERE IDNews AND releaseDate <= NOW() AND (expireDate >= NOW() OR expireDate IS NULL) AND"

If Not Request.Form("SearchHeader") = "yes" Then

StrSQL = StrSQL & " (NewsText LIKE '%" & Trim(Request.Form("SearchString")) & "%'"

Else

If Not Request.Form("SearchText") = "yes" Then

StrSQL = StrSQL & " (NewsHeadline LIKE '%" & Trim(Request.Form("SearchString")) & "%'"

Else

StrSQL = StrSQL & " (NewsHeadline LIKE '%" & Trim(Request.Form("SearchString")) & "%'"
StrSQL = StrSQL & " OR NewsText LIKE '%" & Trim(Request.Form("SearchString")) & "%'"

End If


End If

StrSQL = StrSQL & ") ORDER BY NewsDate DESC, IDNews DESC"

Set objConnesp = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConnesp.Open strConnesp
objRs.Open StrSQL, objConnesp, 0, 1
%>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr>
<td valign="top">&nbsp;</td>
</tr>
<tr>
<td valign="top">
<div align="right"><a href="buscar_noticias.asp"><img src="../pic/pesqoutra.gif" width="151" height="11" border="0" alt="Nova pesquisa"></a></div>
</td>
</tr>
<tr>
<td valign="top"><b>A sua procura por "<i> <font color="#CC0000">
<% = Request.Form("SearchString") %>
</font></i>" encontrou os seguintes resultados: </b></td>
</tr>
<tr>
<td>&nbsp; </td>
</tr>
<tr>
<td valign="top"> <small> <font color="#999999">A</font><font color="#999999">s
<b><font color="#FF9933">seguintes</font></b> noticias foram <b><font color="#FF9900">inc</font></b>lu&iacute;das
na <b><font color="#FF9900">sua</font></b> pesquisa.<br>
Clique no <b><font color="#FF9900">t&iacute;tulo</font></b> da not&iacute;cia
para ver a noticia completa. </font></small> </td>
</tr>
</table>
<br><br>
<%
If objRs.BOF And objRs.EOF Then
%>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<tr>

<td valign="top"> <font color="#CC0000">A sua pesquisa... n&atilde;o encontrou
nada...</font></td>
</tr>
<tr>

<td valign="top"> <a href="buscar_noticias.asp">Clique aqui para tentar
novamente!</a>
<td>
</tr>
</table>
<%
Else
%>
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<%
nRun = 1
Do While Not objRs.EOF
%>
<tr>

<td valign="top" style="padding-top: 3px;"> <b> <font color="#0066FF">
<%
If Application(ScriptName & "OneSheet") = "Yes" Then
%>
<% = nRun %>
.)</font></b> <a href="um_esportes.asp?IDNews=<% = objRs("IDNews") %>">
<% = objRs("NewsHeadline") %>
</a> <small><font color="#CCCCCC">(
<% = FormatDateTime(objRs("NewsDate"), vb script:history.go(-1)">Voltar</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>

<% End if
%>


Valeu Mesmo

Pessoal,

Como faço para enviar por e-mail os itens de um "carrinho"?
para mostrar em html é assim <% ShowTotalItens%>, eu quero enviar essses itens por e-mail. O cadastro chega, mas os itens não.


Valeus

Olá,

o problema é mesmo ref a permissão.
Qual seu Host?



Valeu

Olá galera,


tem como desabilitar um menu (select), ou seja ele vai estar lá funcionando normal, só que a pessoa não pode mudar, clicar... sei lá... É possível?

tipo assim: eui tenho um menu com 10 itens e o item 5 é o "selected", o visitante não poderá mudar ou seja ele clicar no item 09 e seleciona-lo

É isso!

valeu

Olá,

não é um select com link, é de opções que busca no BD
<%=ObjRs("algumacoisa")%>, como aparece todas as categorias gostaria que o visitante, que pode editar o que postou, não pudesse mudar de categoria. Não estou conseguindo mostrar somente a categoria da pessoa logada!



Valeu

Olá,

Tenho um select que não é com link, é de opções que busca no BD
<%=ObjRs("algumacoisa")%>, o visitante faz o LOGIN para poder editar o que publicou, seu nome de autor aparece selecionado, só que o de todos outros aparece também e ele pode alterar isso, mas não quero que ele tenha essa possibilidade. Como fazer para: ou proibi-lo de alterar (colocando uma mensagem de alerta) ou não mostrar todos os autores, somente o nome de daquele autor logado. Não estou conseguindo mostrar somente autor da pessoa logada e nem colocar uma forma de impedir que se mude de autor!



Valeu aí qualquer ajuda!

Olá,


Bom, não sou lá muito bom(ainda) em ASP, se puder me dar mais detalhes... de qualquer forma já sou grato.



valeu

Olá,

na verdade não sei como fazer isso. Tem como me passar um exemplo?
Funciona assim, o vistante se cadastra e depois vai para uma pagina onde pode postar e editar, ele só vê o que ele postou, mas na pagina para editar tem um menu que aparece seu nome de usuário e todos os outros. Tirei o menu(select), coloquei um campo com <%=ObjRS("AutorNick")%> mas na hora que clicar em editar dá mensagem erro que falta o nome do autor no qual o post esta relacionado na tabela AUTOR.

Pensei em colocar um IF para na hora que ele aterasse o nome usuario (autor) desse a mensagem tipo "voce não tem permissão para alterar o autor", quebrei a cabeça mas não consegui fazer. Tá tudo pronto so falta isso.

Bom, é isso.


Valeu

Olá Pessoal,

tem como cadastrar em dois banco de dados simultaneamente?
Se sim, Como se faz?


Eu fiz assim:

strDBPath = "../bd/r.mdb"
strDBPath = "../bd/c.mdb"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath(strDBPath)

Somente cadastrou no > strDBPath = "../bd/c.mdb"

É assim que faz?

Os campos são iguais só que em BDs diferentes.

Valeu

Olá cybermix,


Bom, fiz assim:

Set objConn = Server.CreateObject("ADODB.Connection")
Set objConn2 = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn
objConn2.Open strConn2

objRs.Open "SELECT * FROM Autor", objConn , 3, 3


objRs.Open "SELECT * FROM Autor", objConn, objconn2 , 3, 3

Não deu certo.

Valeu

Olá Cybernix



Consegui. Havia esqucido de colocar o addnew2

E tem que fazer o RecordSet2 também


VALEU

Olá Pessoal,

tem como inpedir que um visitante altere um SELECT, ou seja aparece varias categorias, mas a categoria que pertence ao visitante LOGADO aparece SELECIONADA o que quero é que se ele tentar mudar de CATEGORIA aparece uma mensagem alertando tipo "voce não esta autorizado a mudar de categoria".




Valeus

Olá,


Obrigado!

Pessoal,


Como fazer para comparar o perfil entre bds diferentes. Ex. tem uma pessoa cadastrada em um BD que tem 20 anos e no outro BD alguém procura alguém com 20 anos. Como fazer?


Acho que é isso, não sei se me expressei bem.


Valeu

Olá cybermix,

É... me expressei mal. Bom, o que quero é cruzar infomações entre BDs.

Exemplos:

1) Tem um visitante cadastrado por ex: procurando empregos ou a cara metade
e tem outro visitante OFERECENDO EMPREGO ou procurando a cara metade. O que quero é fazer o cruzamento de informações entre BDs achar o pefil de um que agrade o outro.

Mais ex: Empresa procura vendedor que tenha habilidades em informatica, o sistema varreiria os BD procurando candidato que tenha habilidades em informática.

Acho que agora me fiz entender. Ou não?


Valeu grande mestre.

Pessoal,

é o seguinte: o visitante faz uma busca e o itens são relacionados, gostaria de colocar uma opção para cliente ir selecionando os itens a sua vontade e esses itens fossem para uma página tipo session, que quando fecha o navegador os itens desaparecem. Como fazer? Os itens ficam em um BD Acess.
Alguém teria um exemplo?

Tipo deste site: Estadao



Valeu

Olá Rodrigo,


bom, o visitante faz uma busca por: Vendedor, ai aparece,

Resultadodabusca.asp

-senhor fulano de tal 1
-senhor fulano de tal 2
-senhor fulano de tal 3
-senhor fulano de tal 4
-senhor fulano de tal 5
-senhor fulano de tal 6

Gostaria de colocar um checkBox ou um "selecionar" para que visitante pudesse enviar para uma lista (seleção) todos os itens que ele selecionar.

Sua selecao.asp

Voce tem 02 itens selecionados

-senhor fulano de tal 1
-senhor fulano de tal 5

Entendeu?

De uma olhada neste link ESTADAO, é +ou- isso que quero.

isso pode ser feito usando uma session só, separando os valores por "-" e depois usando o velho split para separar os valores.

se tiver alguma duvida em relacao ao uso do split ou como ficara essa estrutura é só postar

Olá cybermix,


bom, se puder me ajudar com exemplos ficaria muitissimo grato.



Valeu

Fera ASP cybermix,

Muito obrigado é isso mesmo que queria. Valeu mesmo.
Bom, vou abusar.... na pagina ver.asp como colocar uma tabela que teria 2 limhas e cinco colunas para mostrar os dados.

EU fiz assim:
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"

Não ficou do jeito que eu queria mas tá bom, eu queria algo assim:

data: tal
Lugar: tal
Empresa: tal

coloquei a variavel item em celulas separadas (data, lugar, empresa) mas mostra tudo junto.

Me ajudou muito,


Valeu mesmo!

em vez de colocar todo o conteudo na secao como eu fiz:

http://www.seusite.c....asp?nome=carla

coloca o id

http://www.seusite.c...ona.asp?id=5020

da na pagina de exibir voce da um select no banco de dados e exibe os dados selecionados como faz uma exibicao normal dos dados de um banco de dados ok?

Olá cybermix,

Muito obrigado. O resultado já esta bom pra mim.
Mas como quero aprender um pouco mais, vou colocar o que fiz para sua apreciação:

add.asp?selecao=<%=ObjRs("ID")%>

e na pagina VER.ASP coloquei assim:

<!--#include file="config5.asp"-->
<%

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn

objRs.Open "SELECT ID, Titulo, empresa, data, texto FROM class ORDER BY Data DESC, ID DESC", objConn, 3, 1

conteudo = split(session("selecao"), "-")

for each item in conteudo
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>

Só que aparece somente o numero do ID e não todo conteudo. Deu certo assim:

add.asp?selecao=<%=ObjRs("ID")%><br><%=ObjRs("empresa")%><br><%=ObjRs("texto")%><br><%=ObjRs("data")%>

<%

conteudo = split(session("selecao"), "-")

for each item in conteudo
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>

Como quero aprender, se quiser continuar me ajudando.

Já sou muito grato.

Valeu.

ai vai a  ver.asp melhorada =D

ve se vai funcionar.  e qq duvida é só perguntar

<!--#include file="config5.asp"-->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

conteudo = split(session("selecao"), "-")

for each item in conteudo
"SELECT * FROM class where id = " & item
set rs = conexao.execute(sql)
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item & "<BR>" & rs("empresa") & "<BR>" & rs("texto") & "<BR>" & rs("data")
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>

Olá cybermix,


deu esse erro:


Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/vagas/novo/ver_.asp, line 9
"SELECT * FROM class where id = " & item



valeu

Olá cybermix,


Perfeito. Muito obrigado!!!!






valeu

Pessoal,


Cmo colocar o If no response.write? tipo:

response.write "If rs("Yes")= "" Then "<a href='mailto:" & ObjRs("mail") & " ' > Else & "não autorizado" End If




Valeu

o certo seria assim amigo

If rs("Yes")= "" Then 
  response.write "<a href='mailto:" & ObjRs("mail") & " ' >"
Else 
  response.write "não autorizado" 
End If

Olá cybermix,


na verdade eu tava querendo fazer no proprio response.write, dentro daquele script de session que me passou.




Valeu

Olá pessoal,


Ih, então não tem jeito?
Bom, o quero (queria) é algo assim:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

conteudo = split(session("selecao"), "-")

for each item in conteudo
sql = "SELECT * FROM class where id = " & item
set rs = objConn.execute(sql)
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item & "<BR>" & rs("empresa") & "<BR>" & rs("texto") & "<BR>" & rs("data") & "If rs("Yes")= "" Then "<a href='mailto:" & ObjRs("mail") & " ' > Else & "não autorizado" End If

response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>

Vou expicar o que quero: O visitante seleciona o que quer(o que achou mais interessante), dai que selecionou vai uma SESSION (ver.asp), nesta pagina gostaria de colocar os emails disponiveis (autorizados), so teria os e-emails autorizados. Tenho no BD a opção de mostar ou não o e-mail. por isso preciso do IF, dentro da minha ignorância ASP, deduzi que isso só seria possivel dentro do RESPONSE.WRITE acima.

Já vi que não dá! Tudo bem.


valeu