Gustavo Moraes

Nunca tentei com javascript! Você tem o codigo pra isso? não domino muito javascript... vou tentar achar! valeu abraço

Pessoal, estou com uma duvida que não sei se já aconteceu com alguém antes, Eu fiz um redirecionamento para contar cliques em banners, e está funcionando perfeitamente. No entanto, o que observei, é que nenhum programa de estatísticas como Analytics ou AWstats, estão considerandos os cliques vindos do meu site. No entando se eu tiro esse redirecionamento, e coloco link direto, sem contar cliques com Banco de dados...ai eles voltam a reconhecer a fonte dos cliques. No analytics por exemplo, ele dá os cliques como acesso DIRETO e não por referencia de algum site... Será que estou fazendo algo de errado? Já tentei o redirecionar pro site do cliente de duas formas: - Mudam o Header da pagina dinamicamente - E via response redirect... se alguém souber porque isso pode estar acontecendo ou souber de alguma outra solução. Porque embora os cliques fiquem armazenados no BD... tem cliente que gosta de ver os cliques q recebeu no proprio sistema de estatisticas, por uma questao de confiança... e vejo que grandes portais usam esses sistemas de redirecionar cliques, pra gravar em BD...então deve ter um jeito q funcione legal!!! Valeu desde já! Obrigado

Aee pessoal, to com um problema aqui é o seguinte: quando eu faço uma busca por palavra (select, utilizando uma paginação) a busca retorna certinho o q eu pedi. Mas se der tipo 3 paáginas de resultado, quando eu clicar pra ir pra segunda página ela (perde) os valores da busca, e retorna os resultados como se eu tivesse pesquisado isso : "" , ou seja a variavel que guardava o q eu digitei na busca é perdida, como posso corrigir isso? segue o codigo: Call Abrecla busca = request.Form("busca") Const intPageSize = 12 If Request.Querystring = "" then intCurrentPage = 1 Else intCurrentPage = CInt(Request.Querystring("CurrentPage")) Select Case Request.Querystring("Submit") Case "Previous" intCurrentPage = intCurrentPage -1 Case "Next" intCurrentPage = intCurrentPage +1 End Select End If Set exe = Server.CreateObject("ADODB.Recordset") exe.CursorLocation = adUseClient exe.CursorType = adOpenStatic exe.CacheSize = intPageSize busca2 = "SELECT * FROM cadastro WHERE cidade like '%"& busca &"%' or categoria like '%"& busca &"%' or destaque like '%"& busca &"%' or descricao like '%"& busca &"%' or tipo like '%"& busca &"%' or endereco like '%"& busca &"%'" exe.Open busca2, conexao, , , adCmdText exe.PageSize = intPageSize If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage intTotalPages = exe.PageCount %> note que a variavel busca, pega do form o q eu digitei, e é utilizada no Select... mas se eu for pra segunda pagina de resultados ele zera o q tava na variavel "busca" ... alguma sugestao?

valeu, já entendi, mas de qualquer forma não era essa minha duvida... a duvida era o cara escreve no nagevador: www.meusite.com.br/teste e abrir a pagina www.meusite.com.br/teste/index.asp mas descobri q pelo fato da pagina chamar index ela abre automaticamente, o problema é se ela não for a index, for a teste.asp q você quer, ai sim usa o redirect! ufa... valeu

mas onde eu coloco o redirect? no proprio index.asp?

alguém sabe como faz para por exemplo: Um endereço: www.meusite.com.br/teste entre na pagina principal dessa pasta, sem ter q digitar www.meusite.com.br/teste/index.asp por exemplo... Vejo isso na maioria dos sites, mas não sei como isso é feito!

Olá pessoal, sou iniciante em flash, eu gostaria de fazer um banner, só que o cliente muda as informações desse banner dinamicamente, através de uma area administrativa, eu sei programar em asp, mas não faço a menor ideia de como fazer esse tipo de coisa em flash & actionScript!!! alguém tem alguma sugestao? brigadao ae!!!

Ae to fazendo uma busca, e to usando Select case, mas não sei porque o unico case que funciona é o primeiro, os outros ele não "lê" segue o codigo: Select Case busca case var_categoria <> "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local <> "Informe a cidade" sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'" case var_categoria <> "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local = "Informe a cidade" sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"'" case var_categoria <> "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local <> "Informe a cidade" sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND cidade = '"& var_local &"'" case var_categoria = "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local <> "Informe a cidade" sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'" case var_categoria <> "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local = "Informe a cidade" sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"'" case var_categoria = "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local = "Informe a cidade" sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"'" case var_categoria = "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local <> "Informe a cidade" sql = "SELECT * FROM cadastro WHERE cidade = '"& var_local &"'" Case else sql = "SELECT * FROM cadastro" End Select exe.Open sql, conexao, , , adCmdText valeu ae!!!

tem razao, o id é do tipo auto-numerico, mas tipo, eu to usando uma paginação q não deixa eu usar qualquer tipo de select, o q eu poderia colocar no lugar de adCmdText , como ficaria o SQL para o id então? pls! , valeu brigadao ae

Olá pessal, já quebrei muito a cabeça e não consigo corrigir esse sql: var_codigo = Request.Form("codigo") Const intPageSize = 5 If Request.Querystring = "" then intCurrentPage = 1 Else intCurrentPage = CInt(Request.Querystring("CurrentPage")) Select Case Request.Querystring("Submit") Case "Previous" intCurrentPage = intCurrentPage -1 Case "Next" intCurrentPage = intCurrentPage +1 End Select End If Set exe = Server.CreateObject("ADODB.Recordset") exe.CursorLocation = adUseClient exe.CursorType = adOpenStatic exe.CacheSize = intPageSize sql = "SELECT * FROM cadastro WHERE id = '"& var_codigo &"'" exe.Open sql, conexao, adCmdText exe.PageSize = intPageSize If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage intTotalPages = exe.PageCount na linha do exe.open da o o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /class/resultado2.asp, line 139 Agradeço qualquer ajuda!!! OBrigado

Eu fiz uma busca, onde se a pessoa preencher um campo, executa uma sql, se a pessoa preencher o outro campo, executa outra sql, mas o foda é q não ta dando certo, eu uso paginação, e parece q e´nisso q está tendo algum tipo de conflito, o código está assim: var_categoria = Request.form("f_categoria") var_tipo = Request.form("f_tipo") var_local = Request.form("f_local") codigo = Request.form("codigo") Const intPageSize = 5 If Request.Querystring = "" then intCurrentPage = 1 Else intCurrentPage = CInt(Request.Querystring("CurrentPage")) Select Case Request.Querystring("Submit") Case "Previous" intCurrentPage = intCurrentPage -1 Case "Next" intCurrentPage = intCurrentPage +1 End Select End If Set exe = Server.CreateObject("ADODB.Recordset") exe.CursorLocation = adUseClient exe.CursorType = adOpenStatic exe.CacheSize = intPageSize sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND cidade = '"& var_local & "'" exe.Open sql, conexao, , , adCmdText exe.PageSize = intPageSize If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage intTotalPages = exe.PageCount %> <%If codigo = "" then If var_categoria = "Informe a categoria" Then Response.Write "Informe a categoria" Elseif var_tipo = "Informe o tipo" Then Response.Write "Informe o tipo" Elseif var_local = "Informe o local" Then Response.Write "Informe o local" Elseif var_valor = "Informe o valor" Then Response.Write "Informe o Valor" ElseIf exe.EOF then Response.Write "<center>Não foi encontrado nenhum imóvel com essas especificações.</center>" Else %> Aí mostra o conteúdo da primeira SQL, aí depois eu fiz: Else FALTA uma SQL aqui embaixo desse else, na verdade não sei se eu coloco a SQL aqui ou em outro lugar, porque se eu fizer a SQL assim: sql2 = "SELECT * FROM cadastro WHERE id = '"& codigo &"'" Set exe = conexao.execute(sql2) Aí ele da pau.... nunca fiz esse negocio de usar o if pra mostrar uma ou outra SQL, alguém tem alguma sugestao? obrigado

valeu já consegui resolver!!!

Seguinte, eu fiz um formulario q tem um radio button, se a pessoa selecionar uma opçao, vai chamar a pagina gravar.asp, e se selecionar a outra, vai chamar gravar2.asp. Mas não há meio, no value do radio coloquei 1 e 2 respectivamente, mas independente da opçao escolhida, ele parece q sempre cai na condição ELSE do meu IF. ta assim: <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% Session("nome") = Request.Form("nome") Session("responsavel") = Request.Form("responsavel") Session("preço") = Request.Form("preço") Session("telefone") = Request.Form("telefone") Session("endereco") = Request.Form("endereco") Session("email") = Request.Form("email") Session("anuncio") = Request.Form("anuncio") Session("noticia2") = request.Form("noticia2") Session("radio") = request.Form("radio") If radio=1 Then response.write "<br><br>você será redirecionado em 1 segundos..<br>" response.write "<meta http-equiv='refresh' content='1; url=gravar2.asp'/>" else %> <html> <body> <form name="form" method="post" action="gravar.asp" enctype="multipart/form-data"> <input type="hidden" value="<%=Session("login")%>" name="usuario"> <input type="hidden" value="<%=Session("nome")%>" name="nome"> <input type="file" id="arquivo1" name="foto1"> <br> <input type="file" id="arquivo2" name="foto2"> <br> <input type="file" id="arquivo3" name="foto3"> <br> <input type="submit" name="botao" id="botao" value="Cadastrar "> </form> </body> <HTML> <% End If %> Agradeço desde já

Agora eu tentei fazer assim: <a href="java script:open_window('foto.asp?imovel=<%=exe("id")%>&foto=<%=exe("foto1")%>')"><img border=0 width='135' height='106' src=<%=exe("foto1")%> /></a> Tirei os if else, mas a imagem continua não aparecendo, quando quero ver o codigo da pagina ainda mostra src="" /> tipo, ele ta lendo o banco no exe("foto") só no primeiro, porque no da imagem não ta lendo, afff q raiva!

hmmm andrei não entendi muito bem !!! está dentro do <a> porque eu quero linkar a imagem pro popup!! se puder explicar melhor o q você quis dizer, hehehe não entendi muito bem

então, o caminho está no bd também, imagens/fotos/nomedaimage.jpg , ai eu chamo a variavel exe("foto1") q é onde está o caminho, porém a foto não aparece!!!! No entando se você for ver, um pouco mais acima eu estou usando a mesmo variavel para linkar no javascript e a foto abre normal no popup, ou seja, to ficando loco já por não aparecer a imagem!!!!

pessoal, to tentando colocar uma imagem q clicando nela abre um pop-up da mesma, só q puxa o nome da imagem do Bd, o código ta assim: <%If IsNull(exe("categoria")) Then Response.Write fonte02 & "Não possui foto." Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto1")&"')" & Chr(34) & "><img border=0 width='135' height='106' src="&exe("foto1")&" /></a>" End If%> Tipo, ta abrindo o popup legal, mostrando a foto e tudo, a dúvida é: " A foto em miniatura que era pra aparecer na pagina não está aparecendo, deve haver algum erro de sintaxe, mas já tentei de tudo e não funciona!!!, aparece aquele quadradinho onde teria q ter uma imagem, mas não a imagem!!!! e quando exibo o codigo da pagina aparece isso no browser: <a href="java script:open_window('foto.asp?imovel=43&foto=imagens/fotos/piscina-1.jpg')"><img border=0 width='135' height='106' src= /></a> nota-se que o erro está no "src=" mas não há meio de aparecer a maldita foto ali, não sei o q fazer, alguém pode ajudar? vlw!

Exatamento Andréia, era esse o problema!!! um detalhe tosco q me deu mta dor de cabeça!!!! Obrigado

Pessoal, tenho um sistema de imobiliaria, q blza, cadastro imoveis , apaga, mas não atualiza!! e pior q aparentemente está tudo correto, mas quando mando atualiza com os dados novos, ele atualiza deixando TODOS os campos em branco, é tipo como se ele não tivesse conseguindo pegar o valor das coisas novas q digitei ou algo do tipo, alguém tem alguma ideia? vou postar o codigo da pagina para verem: altera2.asp <!--#include file="../includes/config.asp"--> <!--#include file="../includes/abrebanco2.asp"--> <!--#include file="travar.asp"--> <% Call abreimo %> <% var_id = Request.QueryString("id") var_categoria = Request.QueryString("categoria") sql = "SELECT * FROM categorias" sql2 = "SELECT * FROM tipos" sql3 = "SELECT * FROM cidades" sql4 = "SELECT * FROM imoveis WHERE id LIKE '"& var_id &"' AND categoria = '"& var_categoria &"'" Set exe = banco.execute(sql) Set exe2 = banco.execute(sql2) Set exe3 = banco.execute(sql3) Set exe4 = banco.execute(sql4) %> <title><%=titulo%></title> <body bgcolor="<%=fundo%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css"> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <!--#include file="../includes/barraadm.asp"--> </td> </tr> <tr> <td height="0"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="159" valign="top"> <!--#include file="../includes/menuesqadm.asp" --> </td> <td width="60%" height="738" valign="top"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="0"><form action="alterado2.asp?categoria=<%=exe4("categoria")%>&id=<%=exe4("id")%>" method="post" enctype="multipart/form-data"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2"><%=fonte02%><strong>Atualizar im&oacute;vel</strong></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2"><div align="center"><font color="#FF0000" size="1" face="verdana">*Campos obrigat&oacute;rios</font></div></td> </tr> <tr bgcolor="<%=tit_fundo%>"> <td colspan="2"><div align="center"><%=fonte04%><strong>Dados</strong></div></td> </tr> <tr> <td width="27%"><%=fonte02%>Categoria:*</td> <td width="73%"><select name="f_categoria" size="1" id="f_categoria"> <option selected><%=exe4("categoria")%></option> <%WHILE NOT exe.eof Response.Write "<option>" & exe("categoria") & "</option>" exe.MOVENEXT : Wend%> </select></td> </tr> <tr> <td><%=fonte02%>Tipo:*</td> <td><select name="f_tipo" size="1" id="f_tipo"> <option selected><%=exe4("tipo")%></option> <%WHILE NOT exe2.eof Response.Write "<option>" & exe2("tipo") & "</option>" exe2.MOVENEXT : Wend%> </select></td> </tr> <tr> <td><%=fonte02%>Local:*</td> <td><select name="f_local" size="1" id="f_local"> <option selected><%=exe4("cidade")%></option> <%WHILE NOT exe3.eof Response.Write "<option>" & exe3("cidade") & "</option>" exe3.MOVENEXT : Wend%> </select></td> </tr> <tr> <td><%=fonte02%>Endere&ccedil;o:*</td> <td><textarea name="f_endereco" id="f_endereco"><%=exe4("endereco")%></textarea></td> </tr> <tr> <td><%=fonte02%>N&uacute;mero:</td> <td><input name="f_numero" type="text" id="f_numero" value="<%=exe4("numero")%>"></td> </tr> <tr> <td><%=fonte02%>&Aacute;rea:*</td> <td><input name="f_area" type="text" id="f_area" value="<%=exe4("area")%>"></td> </tr> <tr> <td><%=fonte02%>Dormit&oacute;rios:*</td> <td><input name="f_dormitorios" type="text" id="f_dormitorios" value="<%=exe4("dormitorio")%>"></td> </tr> <tr> <td><%=fonte02%>Sendo Su&iacute;tes:</td> <td><input name="f_suites" type="text" id="f_suites" value="<%=exe4("suite")%>"></td> </tr> <tr> <td><%=fonte02%>Pre&ccedil;o:*</td> <td><input name="f_preco" type="text" id="f_preco" value="<%=exe4("preço")%>"></td> </tr> <tr> <td><%=fonte02%>Condi&ccedil;&otilde;es de Pagamento:</td> <td><textarea name="f_condicoes" id="f_condicoes"><%=exe4("cond_pagamento")%></textarea></td> </tr> <tr> <td><%=fonte02%>Descri&ccedil;&atilde;o:*</td> <td><textarea name="f_descricao" id="f_descricao"><%=exe4("descricao")%></textarea></td> </tr> <tr> <td><%=fonte02%>Texto em destaque:*</td> <td><textarea name="f_destaque" id="f_destaque"><%=exe4("desc_destaque")%></textarea></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2"><div align="center"> <input name="Limpar" type="reset" id="Limpar" value="Limpar"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="Inserir" type="submit" id="Inserir" value="Atualizar"> </div></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2"><div align="center"><%=fonte01%><a href="imoveis.asp">Voltar</a></div></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> </table> </form></td> </tr> </table></td> <td width="154" valign="top"><!--#include file="../includes/menudiradm.asp" --></td> </tr> </table></td> </tr> <tr> <td><!--#include file="../includes/rodapeadm.asp"--></td> </tr> </table> </body> <% call fechaimo %> Agora a pagina q insere os dados do formulario no BD <!--#include file="../includes/config.asp"--> <!--#include file="../includes/abrebanco2.asp"--> <!--#include file="travar.asp"--> <% Call abreimo %> <% var_id = Request.QueryString("id") var_categoria = Request.QueryString("categoria") var_categoria2 = Request.form("f_categoria") var_tipo = Request.form("f_tipo") var_local = Request.form("f_local") var_endereco = Request.form("f_endereco") var_numero = Request.form("f_numero") var_area = Request.form("f_area") var_dormitorio = Request.form("f_dormitorios") var_suite = Request.form("f_suites") var_preco = Request.form("f_preco") var_condicoes = Request.form("f_condicoes") var_descricao = Request.form("f_descricao") var_destaque = Request.form("f_destaque") sql = "UPDATE imoveis SET categoria = '"& var_categoria2 &"', tipo = '"& var_tipo &"'," sql = sql & "cidade = '"& var_local &"'," sql = sql & "endereco = '"& var_endereco &"', numero = '"& var_numero &"'," sql = sql & "dormitorio = '"& var_dormitorio &"', suite = '"& var_suite &"'," sql = sql & "preço = '"& var_preco &"', cond_pagamento = '"& var_condicoes &"'," sql = sql & "descricao = '"& var_descricao &"'," sql = sql & "desc_destaque = '"& var_destaque &"' WHERE id LIKE '"& var_id &"' AND categoria = '"& var_categoria &"'" Set atualiza = banco.execute(sql) %> <title><%=titulo%></title> <body bgcolor="<%=fundo%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css"> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <!--#include file="../includes/barraadm.asp"--> </td> </tr> <tr> <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="159" height="249" valign="top"> <!--#include file="../includes/menuesqadm.asp"--> </td> <td width="60%" valign="top"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td>&nbsp;</td> </tr> <tr> <td><div align="center"><%=fonte02%>O im&oacute;vel selecionado foi alterado corretamente.</div></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><div align="center"><%=fonte01%><a href="imoveis.asp">Voltar</a></div></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> </table></td> <td width="154" valign="top"> <!--#include file="../includes/menudiradm.asp"--> </td> </tr> </table></td> </tr> <tr> <td><!--#include file="../includes/rodapeadm.asp"--></td> </tr> </table> </body> <% call fechaimo %> já GASTEI HORAS COM ESSE PROBLEMA , E A BAGAÇA não FUNCIONA DE JEITO NENHUM!!!!

valeu! consegui resolver tirando o distinct e criando uma tabela separada pra categoria

pessoal, tenho o seguinte select: sql_categ = "SELECT DISTINCT categoria FROM imoveis" Só q os resultados são mostrados por ordem alfabetica, eu queria ordenar por ID é possivel? porque eu sei q por o order by id no final não funciona junto com o distinct... alguma ideia? valeu..

eu uso esse script no meu site , porem não uso com BD , tenho q inserir manualmente as noticias diariamente

funcionou legal kuroi, no caso usei a segunda opção! valeu!

está logado sim, eu estou usando um include restrito.asp, seria impossivel acessar a pagina sem estar logado... e quando eu faço o login, eu guardo isso numa session certo!? minha dúvida é apenas como executar esse sql....devo estar escrevendo algo de errado na sintaxe

Minha dúvida é simples, eu quero fazer um select no access para exibir apenas os registros postados pelo usuario q está logado no momento. o campo fica na tabela cadastro e chama user. então eu queria fazer algo do tipo Where user = session("login"), mas sintaticamente isso esta errado, como é o jeito certo? tentei isso mas não deu: Abrecla usuario = Session("login") SQL = "SELECT * FROM cadastro where user = "usuario" ORDER BY id DESC" Set rs = Conexao.Execute(SQL) valeu!