Carlos Rocha

Ola pessoal. Tem geito de colocar uma condição no comando for? Por exemplo, num laço com 4 palavras: Eu gosto de eu Na hora de fazer o for rodar ele desconsidera a palavra que repete no caso a palavra eu, e passa pra frente?

No Dreamweaver, no lado esquerdo da area de codigos, informa em que linha do codigo estou, se estou na 1 ou 10 assim por diante certo? Mas como saber, na horizontal, em que coluna estou? Quianmdo o Internet Explorer da erro ele notifica assim: erro linha x coluna y Tem geito de saber em que coluna estou?

O comandoSql Like '%"&variavel"&%' Faz pesquiza por toda a fraze ou palavra digitada certo? Como faço como por exemplo para no caso da frase: E no apartamento da madame usando o comando for do asp do asp, entrara no loop as pesquizas e, no, apartamento, da, madame O que eu preciso, é que a pesquiza não seja feita quando encontrar caracters como e, no, da, Isso tem geito

O comandoSql Like '%"&variavel"&%' Faz pesquiza por toda a fraze ou palavra digitada certo? Como faço como por exemplo para no caso da frase: E no apartamento da madame usando o comando for do asp do asp, entrara no loop as pesquizas e, no, apartamento, da, madame O que eu preciso, é que a pesquiza não seja feita quando encontrar caracters como e, no, da, Isso tem geito

Olá a todos! Quando se usa a declaração <% Option Explicit %> Se obriga a declarar todas as variaveis, certo? No meu caso, preciso saber como fazer o contrario. Ou seja, quais varaveis estão declaradas mas não estão sendo usadas sem ter que ficar procurando no código todo que as vezes é muito grando. Isso tem geito?

Como fazer uma Paginação com asp e Sql Server do tipo. Registros de 001 a 049 - página 1 Registros de 050 a 099 - página 2 Registros de 100 a 149 - página 3 e assim por diante?

É kara, postei no lugar errado. Num é duvida não, é um script legal que consegui criar mas num to onseguindo jogar no lugar certo...

<% Dim Nome_usu, Nome %> <!--#include file="sessoes/sessoes.asp" --> <% Call VerificaLogon() %> <% Nome_usu = Session("nome") %> <% Nome = Split(Nome_usu," ") %> <!--#include file="../../Connections/conexao.asp" --> <table width="700" height="139" border="0" cellpadding="0" cellspacing="0"> <tr> <th width="700" height="109" scope="col"><img src="../../imagens/top-admin.jpg" width="700" height="109"></th> </tr> <tr> <td height="30" align="center" valign="middle"> <div align="center"> <a href="faq.asp?action=editar" target="_self">Cadastro de FAQ's</a> | <a href="usuarios.asp?action=alterasenha" target="_self">Altera Senha</a> | <a href="usuarios.asp?action=editar" target="_self" >Cadastro de Usuarios</a> | <a href="topo.asp?action=logout">Sair</a> </div> <% ' ############################# Logout Destruindo a sessão ########################### If Request.QueryString("action") = "logout" Then Session("nome")="" Response.Redirect("default.asp") end if ' ############################# Fim do Logout Destruindo a sessão ########################### %> </p></td> </tr> </table>

<% Dim Nome_usu, Nome %> <!--#include file="sessoes/sessoes.asp" --> <% Call VerificaLogon() %> <% Nome_usu = Session("nome") %> <% Nome = Split(Nome_usu," ") %> <!--#include file="../../Connections/conexao.asp" --> <table width="700" height="139" border="0" cellpadding="0" cellspacing="0"> <tr> <th width="700" height="109" scope="col"><img src="../../imagens/top-admin.jpg" width="700" height="109"></th> </tr> <tr> <td height="30" align="center" valign="middle"> <div align="center"> <a href="faq.asp?action=editar" target="_self">Cadastro de FAQ's</a> | <a href="usuarios.asp?action=alterasenha" target="_self">Altera Senha</a> | <a href="usuarios.asp?action=editar" target="_self" >Cadastro de Usuarios</a> | <a href="topo.asp?action=logout">Sair</a> </div> <% ' ############################# Logout Destruindo a sessão ########################### If Request.QueryString("action") = "logout" Then Session("nome")="" Response.Redirect("default.asp") end if ' ############################# Fim do Logout Destruindo a sessão ########################### %> </p></td> </tr> </table>

Como fazer uma pesquiza no banco de dados sql server 2000, de forma tal que se digitar. Joao - a pesquiza encontra Joao e também João. Jose - a pesquiza encontra Jose e também José. Tranquilo - a pesquiza encontra Tranquilo e também Tranqüilo. Mas se Digitar Deus é amor - a pesquiza encontra Deus é amor mas não encontra Deus e amor? Ou seja se o acento estiver no meio de uma palavra ele desconsidera, mas se caso a palavra for um letra só como por exemplo "e" ou "é", ele considera pois são palavras diferentes.

<% Option Explicit %> <% 'Declara as variaveis. Dim Conn, DSNtest, busca, tabela, x, pesq, onde, strSQL, sql, Rs_SELECT %> <% ' Conecta o Banco de Dados Sql Server Set Conn = Server.CreateObject("ADODB.Connection") DSNtest="DRIVER={SQL Server};SERVER=Nome_do_Servidor_Sql;UID=sa;PWD=;DATABASE=Nome_do_Banco_de_Dados" Conn.open DSNtest %> <% IF REQUEST.QUERYSTRING("I") = 1 THEN busca=trim(request.form("chave")) 'Retira os espaços da direita e da esquerda da fraze. busca=split(busca,chr(32)) 'Cria um array e separa cada palavra da strig tabela = true 'Cria uma variavel que será usada na exibição do cabeçalho da tabela 'que será desenhada para exibir os resultados for x = 0 to Ubound(busca) 'Cria um laço que conta quantas e quais palavras foram separadas pesq=busca(x) ' entrega à variavel pesq, cada uma das palavras digitadas no formulário 'Escolha na linha de baixo qual tipo de busca no texto digitado voce quer fazer: letra por letra ou palavra por palavra ' onde= "texto like '%" & pesq & "%' or titulo like '%" & pesq & "%'" 'String Sql que busca letra por letra onde= "texto like '" & pesq & "' or titulo like '" & pesq & "'" 'String Sql que busca palavra por palavra 'Cria o Select strSQL = "select * from estudos where " & onde & "" Set Rs_SELECT = server.createobject("ADODB.Recordset") Rs_SELECT.Open strSQl,Conn , 3, 3 if not Rs_SELECT.eof=true then ' Se houver resultados if tabela = true then response.Write " <table border=1>" response.Write " <tr><td>Titulo</td>" response.Write " <td>Texto</td></tr>" tabela = false end if do until Rs_SELECT.eof= true 'Cria o laço para impressão dos resultados da pesquiza 'Imprime os resultados da busca response.Write "<tr><td>"&Rs_SELECT("titulo")&"</td>" response.Write " <td>"&Rs_SELECT("texto")&"</td></tr>" Rs_SELECT.MoveNext Loop 'Fim do laço para impressão dos resultados da pesquiza end if next 'Fim do laço for response.Write "</table>" ' Se houver resultados if tabela = true then response.Write "Não achei Nada!" else 'fecha a tabela criada response.Write "</table>" end if END IF %> <form action=oi.asp?I=1 method=post> <p> <input type=text name=chave size=100> <input type=submit value=enviar> </p> </form>

Ta dando o seguinte erro no meu script: Subscrito fora do intervalo: '[number: 0]' Isto é uma variavel que recebe o valor nome(0), só que dentro de um Session. Como que usando o comando if, eu testo o erro, uma vez que o session expira, e se der o erro, eu redireciono para a pagina de login?

Ta mas onde é que eu declaro os responses, é no inicio da pagina, junto com o option explícit?

Não funcionou. Quando a pessoa clika no botão voltar do browser, a ultima pagina acessada com a sessão esta lá, com a sessão intacta. O que eu queria é que quando a pessoa fosse para a pagina de logon, abandonando a sessao, ao chegar na pagina de logon, caso ele clike no botao voltar do navegador, exiba aquela mensagem que a pagina expirou, e força ele a fazer logon novamente.

Olá Pessoal, to cum problema com sessões Tenho um sistema com login e senha com asp. Quando o usuario loga, é criada uma sessão certo? Em todas as páginas tem um botão sair, direcionado para a pagina de login. O que eu quero, é que quando o usuario clikar em "sair", além de ser redirecionado para a pagina de login, também seja encerrada seção, obrigando o proximo usuario a logar de novo. Se não encerrar a seção, quando o usuario clikar em "sair", e ser redirecionado para a pagina de login, chegando lá, basta clikar em voltar e ele esta logado certo? Como fazer isso?

Gente por favor, num to conseguindo. Preciso de uma busca por aproximação. Me passaram o código abaixo, mas esse código, quando agente digita uma fraze no campo de busca, ele se pesquiza pela ultima palavra digitada, e preciso que pesquize por todas as palavras da frase. Como fazer? <% dim chave chave = request.form("chave") IF chave = "" THEN response.Write("Você tem que digitar alguma coisa no campo de busca") response.Write("<p>") else dim busca busca=split(chave,chr(32)) dim x x = 0 for x = 0 to Ubound(busca) dim pesq pesq=busca(x) onde="DfModulo like '%"&pesq&"%' or DfPergunta like '%"&pesq&"%' or DfMemo like '%"&pesq&"%'" if x > 0 then dim onde onde=onde + " and " + onde end if next dim strSQL, Rs_FaqSelect strSQL = "select * from faq where " & onde & "" Set Rs_FaqSelect = server.createobject("ADODB.Recordset") Rs_FaqSelect.Open strSQl,Conn , 3, 3 %> Obrigado.

Desculpe a insistencia mas não ta dando certo Estou uzando o código abaixo para texte <!--#include file="host/viveasp/global/funcoes.asp" --> <% 'separa palavras (busca com varias palavras) e cria as instruções SQL dim busca, onde, pesq, sql busca=split(request.form("chave"),chr(32)) dim onde for x = 0 to Ubound(busca) if x > 0 then onde=onde + " and " end if pesq=busca(x) onde=onde+"texto like '%" & pesq & "%'" next strSQL = "select * from estudos where " & onde & " order by campo" Set Rs_SELECT = server.createobject("ADODB.Recordset") Rs_SELECT.Open strSQl,Conn , 3, 3 response.Write Rs_SELECT("texto") %> <form action=oi.asp method=post> <input type=text name=chave size=100> <input type=submit value=enviar> </form> E esta dando o seguinte erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0411) Redefinição do nome /oi.asp, line 6, column 4 dim onde ---^ Se eu tiro a linha dim onde da o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][sql Server]Incorrect syntax near the keyword 'order'. /oi.asp, line 18 Se tiro a clausula order by da o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][sql Server]Line 1: Incorrect syntax near 'where'. /oi.asp, line 19 E agora o erro ta no scripr da busca, e agora, o que eu faço?

Meu formulrio envia uma variavel html com o nome "chave"" para o asp que recebera ela dentro de outra variavel asp com o mesmo nome "chave". dim chave chave= request,form("chave") E agora como exibir a cosulta se o texto digitado for uma frase grande.

Preciso fazer um sistema de busca no meu site igual a do Google. Caso a pessoa digite uma frase como consulta como por exemplo. Digite aqui a tua conulta: E a pessoa digitar............ Onde posso encontrar tutoriais de asp? A consulta pesquizar por cada palavra e se caso não houver como resultado a frase inteira Onde posso encontrar tutoriais de asp?, a consuta sera feita por aproximação ou seja, separando as palavras e retornando resultados que contenha cada palavra em separado. Como desse jeito.. Onde eu possa morar posso ir ate aíi? encontrar alguém tutoriais de asp de idade asp.net Como fazer essa pesquiza?

Gente, boa tarte. Estou fazendo o site de uma emissora de radio FM da minha cidade, e o dono da radio me pediu pra colocar no site o sinal da radio. Eu não tenho a mínima idéia de como fazer isso nem por onde começar. É preciso algum hardware ou software especiais? Se alguém tiver um tutorial ou puder me dar uma dica. Desde já muito obrigado.....

Como ficaria esta query? Na pesquiza do google, você digita um texto e ele faz a busca de diversas formas: * Pelo texto inteiro * Por cada uma das palavras * Pela palavra digitada sem acento mas que é acentuada. * etc.... Eu queria saber se o operador like faz esse tipo de busca, e se faz, como ficaria a strig da query? Eu tentei: Sql=" select * from tabela where campo '%"&variavel&"%' " Mas não deu certo

O problema aí é que existe uma variavel, que pode receber qualquer valor. Pode se João, joao,Fé,fe, Cálculo,calculo,etc... E nesse caso, o que fazer?

Boa tarde Como fazer para que o camando like desconsidere palavras acentuadas e nar ser case sensitive? "select * from tabela where campo like '%"&var&"%'" Deste geito, se a variavel var fosse igual a calculo, e no banco de dados tivesse gravado a palavra cálculo, a query retornaria vazia. Neste caso, como fazer? Opertador Like

Ola Pessoal, tenho uma tabela que cadastra os usuarios do meu site. A listagem sai assim: ID NOME E-MAIL CIDADE IDADE Eu gostaria de incrementar mais 2 campos mas não sei nem por onde começar. Ficaria assim: ID NOME E-MAIL CIDADE IDADE EXCLUIR ALTERAR 1 2 3 Como fazer para colocar um link abaixo da coluna excluir para que quando eu clikar no registro de numero 5, excluir apenas ele? E/ou como por esse link? Obrigado

<html> <head> <title>:: FAQ ::</title> <link href="sc.css" rel=STYLESHEET type=text/css> <meta http-equiv="Pragma" content="no-cache"> </head> <body topmargin="0" leftmargin="0"> <center> <!--#include file="../Connections/conexao.asp" --> <% If Request.QueryString("action") = 1 Then chave = request.Form("chave") strSQl = "select * from faq where faq_assunto like '"&chave&"' or faq_memo like '"&chave&"' order by faq_modulo" Set Rs_SELECT = server.createobject("ADODB.Recordset") Rs_SELECT.Open strSQl,conn , 3, 3 if not Rs_SELECT.EOF then total= Rs_SELECT.recordcount faq_id = Rs_SELECT("faq_id") faq_modulo = Rs_SELECT("faq_modulo") faq_autor = Rs_SELECT("faq_autor") response.Write "<br>Procurando por <b>"&chave&"</b>...<br>" response.Write "Total de ocorrências encontradas: " response.Write total response.Write "<br><br>" response.Write " <table border='0' cellspacing='2'>" cor_atual = 1 Do While not Rs_select.EOF If cor_atual = 1 then response.Write "<tr bgcolor='#F0F0F0'>" Else response.Write "<tr bgcolor='#FFFFFF'>" response.Write "<td width=50 height=20>"&faq_id&"</td>" response.Write "<td width=70 height=20>"&faq_modulo&"</td>" response.Write "<td width=320 height=20><a href=verfaq.php?m_id="&faq_id&">"&faq_assunto&"</a></td>" response.Write "<td width=100 align=center>"&faq_autor&"</td>" If cor_atual = 1 then cor_atual = 2 Else cor_atual = 1 end if end if Rs_SELECT.MoveNext loop response.Write "</table><br><br>" else response.Write "<p><br><p><strong>FAQ Não Encontrada!</strong>" end if end if %> </center></body></html>