Henderson
-
Total de itens
362 -
Registro em
-
Última visita
Tudo que Henderson postou
-
tu pode montar as duas palavras, fazendo replace, uma com acento e a otra sem e na consulta tu faz where strFind = "café" OR strFind = "cafe"
-
strINS = " UPDATE tabela set nome ='" & varNome & "',endereco= '" & varEndereco & "',cidade = '" & varCidade & "',estado = '" & varEstado & "',cep = '" & varCep & "',email = '" & varEmail & "',telefone = '" & varTelefone & "',cel = '" & varCel & "' WHERE nome = '" & varcod & "' " no final tá WHERE nome = '" & varcod & "' está certo isso? porque no começo você coloca nome ='" & varNome & "' sei lá, eu não vi nenhum erro, a não ser que isso ai esteja errado não era where codigo = '"&varcod&"' ? ou qualquer coisa parecida?
-
se você colocar um link com java script:window.open('') creio que funcione, porque se você copiar esse codigo e colar no navegador, vai ver que funciona não é o flash quem executa o javascript, ele executa um link normal... eu acho qe dá certo né...
-
po, dexa posta aí tua duvida pode ser a de outros daqui a muito tempo e você não ver mais esse post então, dexa postado aí ;]
-
ah um jeito de evitar os spans era colocar uma imagem, pra digitar o código... o problema é qe aí fica chato de postar né... mas não da pra ser tudo perfeito, hauisheiueahuiheaiu
-
eu não sei se isso vai arrumar quanto ao erro, porque eu nem sei que erro é esse mas do jeito que está fazendo, não é o certo pra idéia que você tem, o ideal é: Msg = "" FOR x = 1 TO Request.Form("produtos").Count SQL = "SELECT * FROM produtos WHERE codigo IN ("& Request.Form("produtos")(x) &")" SET RS = Conect.execute(SQL) IF RS.RecordCount = 0 THEN Msg = "Nenhuma opção foi escolhida" ELSE Msg = Msg & RS("nome_produto") & "<br>" END IF NEXT Response.Write Msg
-
tinha que ler o código que ele colocou e adaptar pro esu, faz assim ó gsSqL1 = "UPDATE adcontent SET Cliques = cliques +1 WHERE ID = " & iadID GobjConnect.execute(gsSql1)
-
você não tem noção de como fazer? o que quer? é preciso utilizar um componente pra enviar os arquivos, fazer upload, sabe quais o seu host suporta?
-
eu não tinha visto teu código, mas tu já tá´pegando o valor aqui idcat=request.querystring("idcat") então ignora essa linha que eu falei... e faz o resto se o css tiver, por exemplo, na pasta "css" que tá dentro da pasta que tá a tua página .asp, ai tu faz <link href="css/<%estilo%>" rel="stylesheet" type="text/css"> se tiver fora.. <link href="../css/<%estilo%>" rel="stylesheet" type="text/css"> e assim vai, saco?
-
aí... beleza? eu mexo com asp há um tempo uns 2 ou 3 anos... so que nunca fiz nada em asp.net... nem vi um codigo mas já cansei de ver por ai... asp tá acabando, tá perdendo lugar pra asp.net entaõ acho que já´passo da hora de eu começar a aprender... so que não sei por onde começar o que procurar do que preciso pra rodar localmente os bds qe se usa com asp.net... me deem umas dicas aí se puderem, fico grato =] hehe
-
eita, faz assim no começo da página, dentro da <head> <% idcat = "xx" 'ARMAZENA AQUI O VALOR DO IDCATEGORIA, NÃO SEI COMO TU TÁ FAZENDO ISSO... Select Case idcat Case "1" estilo = "1.css" Case "2" estilo = "2.css" End Select 'COLOCA AQUI QNTOS você QUIZER %> <link href="<%=estilo%>" rel="stylesheet" type="text/css"> Se não tiver na mesma pasta o arquivo .css, na ultima linha tu altera... tu pode pegar esse valor do banco também ao invés de fazer com select, como você mesmo disse
-
tu tem que criar um loop pra mostrar tudo que tem no banco <% vSql = "SELECT * FROM tb_noticias" Call AbreBanco() Set myRst = ConnDB.Execute(vSql) If myRst.EOF Then Response.Write "Nenhuma notícia encontrada" Else while not myRst.EOF conteudo = myRst("noticia") Response.Write left(conteudo,35) myRst.movenext wend End If %>
-
você alterou o codigo, mas não alterou uma linha <% id = Request.QueryString("id") If id = "" Then Response.Write "Ops.. Você precisa selecionar uma noticia!!" Else Call AbreBanco() vSql = "SELECT * FROM tabela WHERE id = " &id Set myRst = ConnDB.Execute(vSql) ' A LINHA ABAIXO, NÃO É Rs, É myRst 'QUE É A VARIÁVEL QUE TU USO NO TEU RECORDSET If MyRst.EOF Then Response.Write "Essa noticia não existe no sistema" Else 'AQUI TU POE O CÓDIGO PRA MOSTRAR A NOTÍCIA End If End If
-
ow funciono nãõ o arquivo é .xls como que eu faço? tem que mudar alguma coisa? --- ops, achei aqui Set down = Server.CreateObject("AspSmartUpLoad.SmartUpLoad") down.DownloadFile Server.MapPath("../../../lista/E4i_oiuea_HeAEUNz_XxX.xls"), "application/vnd.ms-excel", "Lista Grupo511.xls"
-
puuuuta cara era isso que eu queria eu tinha pensado nessa idéia mas e pra achar o manuel do componente? naõ achei cara, procurei, procurei, não achei no host, falaram que iam me mandar, to esperando... fecho a empresa do componente, sei lá, mas no site não tem mais nada eu nem testei, mas se o código de download está certo, vai funcionar direintinho... valeu!
-
no lugar que você quer mostrar apenas os 50 caracteres, você faz assim: conteudo = RecordSet("campo") response.write left(conteudo,50) quanto ao link, você tem que ter uma forma de identificar a noticia no banco de dados recomendo criar um campo numeração, por exemplo com o nome ID ai você poe o id em um link, vou fazer como você quer, um resumo e mais o link conteudo = RecordSet("campo") response.write left(conteudo,50) & "<a href='mostranoticia.asp?id="&RecordSet("id")&"'>Leia mais</a>" aí nessa página, mostranotica.asp você faz assim id = Request.QueryString("id") 'FAÇA A VERIFICAÇÃO SE CONTÉM UM ID NO ENDEREÇO PORQUE SENÃO VAI DAR ERRO NO SQL If id = "" Then Response.Write "Selecione uma notícia" Else SQL = "SELECT * FROM tabela WHERE id = "&id Set Rs = conexao.Execute(SQL) If Rs.EOF Then Response.Write "Notícia não encontrada" Else 'AQUI TU POE O CÓDIGO PRA MOSTRAR A NOTÍCIA End If End If tá ai, acabei fazendo o codigo todo eahiueahiueahiauhuiea tá pronto né, so adapta pro que tu qe, se não entender alguma coisa pergunta
-
pra quem quizer, tentar entender a logica mas eu fiz um jeito aqui e deu certo criei uma tabela (davez) com um campo numerico (davez) nele fica armazenado o valor DA VEZ com o codigo da pra entende <% SQL = "SELECT * FROM links WHERE ativo = 1" Set Rs = conexao.Execute(SQL) If Rs.EOF Then Response.Write "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Nenhum link encontrado</font>" Else SQL1 = "SELECT * FROM davez" Set Rs1 = conexao.Execute(SQL1) davezv = Rs1("davez") SQL2 = "SELECT * FROM links WHERE ativo = 1 AND visitado = "&davezv&" ORDER BY id" Set Rs2 = conexao.Execute(SQL2) If davezv = 0 Then davezn = 1 Else davezn = 0 End If If Rs2.EOF Then SQLUpdate1 = "UPDATE davez SET davez = "&davezn Set RsUpdate1 = conexao.Execute(SQLUpdate1) SQL3 = "SELECT * FROM links WHERE ativo = 1 AND visitado = "&davezn&" ORDER BY id" Set Rs3 = conexao.Execute(SQL3) SQLUpdate3 = "UPDATE links SET visualizacoes = visualizacoes + 1, visitado = "&davezv&" WHERE id = "&Rs3("id") Set RsUpdate3 = conexao.Execute(SQLUpdate3) Response.Redirect Rs3("link") Else SQLUpdate2 = "UPDATE links SET visualizacoes = visualizacoes + 1, visitado = "&davezn&" WHERE id = "&Rs2("id") Set RsUpdate2 = conexao.Execute(SQLUpdate2) Response.Redirect Rs2("link") End If End If %>
-
não é bem isso onde eu vou colocar esse codigo? não tem onde por!!! porque se entrar no link do arquivo, vai baixar!
-
Olá tenho um sistema de links randomicos atualmente, os links são selecionados usando um select randomico mas o problema é que alguns links são mais privilegiados que os outros são vistos mais vezes queria fazer de forma que todos fossem vistos de forma igual tipo cada um é visto uma vez, até todos serem vistos ai depois começa do primeiro de novo tem como fazer? como eu faço? no consegui imaginar nada tentei criar um campo a mais, com o nome VISTO e torna-lo "0" quando não visto e "1" quando visto ai é tudo zero, quanod é visto, vira tudo 1 ai quando ele não encontra nenhum 0, ele pega um numero 1, exibe e transforma ele em zero briguei, briguei, mas não consegui fazer mas deu pau, erro de logica se alguém tiver alguma ideia
-
sim mas aí surge otro problema eu preciso fazer upload de arquivo pra esse diretório uso o aspsmartupload e aí? como fica?
-
aí Tem como eu fazer upload com o aspsmartupload em uma pasta que tá protegida por senha? eu não sei como funciona no servidor é na hostnet... no painel de administração tem uma função qe você poe senha na pasta só qe depois qe coloca a senha, o script de upload paro de funcionar é meio obvio né, não há´permissão mas tem como com esse script de upload, eu colocar no script a senha pra conseguir fazer o upload? Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") objUpload.Upload For Each File In objUpload.Files If Not File.IsMissing Then extensao = right(File.Filename,3) If extensao = "xls" Then Set FSO = Server.CreateObject("Scripting.FileSystemObject") arq_velho = Server.MapPath("../lista/E4i_oiuea_HeAEUNz_XxX.xls") If FSO.FileExists(arq_velho) = TRUE then FSO.DeleteFile arq_velho End If File.SaveAs("/grupo511/lista/E4i_oiuea_HeAEUNz_XxX.xls") Response.Write "Arquivo enviado com sucesso!" Else Response.Write "Extensão não permitida" End If End If Next Set objUpload = Nothing
-
ninguém tem idéia do que eu posso fazer?
-
ok mas se alguém discubrir o link do arquivo baixa sem login nem senha! eu acho que deve ter algum jeito de impedir isso porque em sites tipo rapidshare, você so consegue baixar uma vez com o mesmo link e tlaz sei lá, deve ter algum jeito de bloquear o download, mesmo com o link pro arquivop