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