Ir para conteúdo
Fórum Script Brasil

Victor

Veteranos
  • Total de itens

    1.756
  • Registro em

  • Última visita

Tudo que Victor postou

  1. Victor

    Divulgue Seu Site!

    Assim ficaria todos os link carastrados: RecSet.Open "select * from tabela", conn, 3 if not RecSet.EOF then while not RecSet.EOF%> <a href="<%=RecSet("links")%>"><%=RecSet("links")%></a> <%RecSet.movenext wend else 'Não existe links end if RecSet.close Tenta ai, qualquer coisa, posta ae que nós estaremos aqui para ajudar!!!! Abraços, []'s Victor
  2. Victor

    Codigo Fonte X Textarea

    Tópico de Funções Abraços, []'s Victor
  3. Victor

    Onde Ta O Erro...iiparte

    Não entendi muito bem a sua dúvida. mais ai vai: na pagina que está sendo redirecionada você coloca isso: if request.querystring("ctI") = "variavel" then 'pagina else 'nada end if Espero ter ajudado, ou você pode fazer assim: variavel=2 onClick='" & Response.Redirect ("admListar.asp?objCmd=1&ctI="&variável&"")... Qualquer coisa posta ae!!!! Abraços, []'s Victor
  4. Victor

    Banner Rotativos

    Tem um todo administrativo no scriptbrasil para download.. Procura la.. Olha esse simples que fiz: <% caminho = server.mappath("../databases/bd.mdb") set conexao = server.createobject("adodb.connection") conexao.open "driver={microsoft access driver (*.mdb)};dbq=" &caminho randomize set result = conexao.Execute("SELECT * FROM banners ORDER BY id") nums = "" while not result.eof nums = nums & result("id") & "|" result.movenext wend arrTemp = Split(nums,"|") id_sort = Round((ubound(arrTemp)-1) * Rnd) set result = conexao.Execute("SELECT * FROM banners WHERE id like '"& arrTemp(id_sort)&"'") id = result("id") url = result("url") imagem = result("imagem") alt = result("alt") total_exibicoes = result("total_exibicoes") if (isNull(total_exibicoes)) Then total_exibicoes = 1 Else total_exibicoes = total_exibicoes + 1 End If conexao.Execute("UPDATE banners set total_exibicoes = '"&total_exibicoes & "' WHERE id like '"& id&"'") %> <table WIDTH="498" BORDER="0" CELLPADDING="0" CELLSPACING="0"> <tr> <td ROWSPAN="3"><img SRC="images/banner_01.gif" WIDTH="22" HEIGHT="73" ALT></td> <td COLSPAN="2"><img SRC="images/banner_02.gif" WIDTH="476" HEIGHT="8" ALT></td> </tr> <tr> <td height="57"> <a href="banner_rotativo/banners_redirect.asp?id=<%=id%>&url=<%=url%>" target="_blank"> <img src="<%=imagem%>" border="0" alt = "<%=alt%>" width="463" height="55"></a> </td> <td ROWSPAN="2"><img SRC="images/banner_04.gif" WIDTH="9" HEIGHT="65" ALT></td> </tr> <tr> <td><img SRC="images/banner_05.gif" WIDTH="467" HEIGHT="8" ALT></td> </tr> </table> <% result.Close set result = Nothing set bannerDB = Nothing %> Ai ele vai gravar quantos cliques foi feito no banners, e dentre outras coisas que tem... Mas você tem que mudar de acordo com seu instanciamento, e seu banco de dados... Ou pegue um no scriptbrasil, la tem uns melhor que esse que fiz!!!! Abraços, []'s Victor
  5. Victor

    Fotolog

    Você entende alguma coisa de ASP tipo, insert, select, e dentre outras funções do ASP??? Se solber você pode fazer um proprio para você, é muito facil fazer um fotolog!!!! Abraços, []'s Victor
  6. Victor

    Onde Ta O Erro...

    tenta assim: If objCmd <> "" then objConn.Execute "Delete * From tblNoticias Where id = "&vCt&"" End If Qualquer coisa posta ae que nós te ajudaremos!!!!! Abraços, []'s Victor
  7. Victor

    Banner Rotativos

    Movendo para ASP
  8. Victor

    .

    Movendo pra PHP
  9. Victor

    Chat

    Ai você pode fazer tipo asim: if rs("login") = true then 'já tem alguém else 'loga end if Acho que pode ser assim, tenta ae, qualquer coisa, posta ae que agente tenta te ajudar Abraços, []'s Victor
  10. Victor

    Chat

    Não entendi muito bem o que você quer... Pode explicar melhor?? Abraços, []'s Victor
  11. Victor

    Pesquisa De Cep

    O tipo de servidor que voce fala e servidor de hospedagem ? Como, LocaWeb, e dentre outras que não sei... Se eu achar te passo..... Abraços, []'s Victor
  12. Victor

    Pesquisa De Cep

    Me professor disse, que tem alguns servidor que tem componente de correio, procura um servidor que deve ter!!!!!
  13. Victor

    Divulgue Seu Site!

    Você vai usar, loop, insert, select, no minimo você vai usar isso... Isso você só vai usar para cadastrar os links, e o loo´p e select você vai usar todos os registros que tiver no banco de dados..... Dê uma olhada nesses apostilas: Select Insert Loop Agora tenta pelo menos começar... E se tiver mais dúvidas, volte ai que nós tentaremos te ajudar a resolver o problema, ou a dúvida que você tiver!!!!! Abraços, []'s Victor
  14. Victor

    Pesquisa De Cep

    Não tem não cara... Pelo menos acho que não tem.... Você poderia fazer um codigo em JS que vai fazer uma função para validar, mas cep's que não existe ele vai falar!!!! Tenta achar alguma coisa desse tipo no scriptbrasil... Quem sabe você encontre!!!! Qualquer coisa posta ae!!!! Abraços, []'s Victor
  15. Agora tewnta assim: <%Dim varq varq=Request("arquivo")%> <%Set Fil=Server.CreateObject("Scripting.FileSystemObject") Set filObject=Fil.GetFile("download")&varq filObject.Delete True%> Se não for isso, eu acho que já sei o que é... Se não der certo denovo.. Posta ae!!!!! Abraços, []'s Victor
  16. 2- A dois eu não entendi muito bem o que você quer.. Explique melhor que assim poderemos te ajudar melhor!!! Qualquer dúvida é só postar ae!!!! Abraços, []'s Victor Aí Vitinho, nem precisa 2 campos, um campo pra data e outro pra hora... Use apenas um campo pra toda a data: INSERT INTO tabela (Data) VALUES ('"&Now&"') Isso eu sei , só tinhaq feito isso, se as tabelas fossem diferentes, ai já ficava certo... Mas vlw ai, agora fui Abraços, []'s Victor
  17. Eu acho que incluir você sabe, mas você faz assim para poder cadastrar so se estiver logado: <%if session("login") = true then%> pode inserir <%else%> Não pode fazer nada, não está logado... <%end if%> Saco como funciona.. Tenta fazer mais você ai, ai se der mais erro, você volta ae, que nós estaremos ajudando!!!! Abraços, []'s Victor
  18. Victor

    Hospadagem Free

    Você também pode procurar em buscas, que ele encontra para você.. Mas tem alguns que tem no tópico pendurado, que é muito bom!!! Tente usar um!!!!! Abraços, []'s Victor
  19. Victor

    Editor

    Usa o homesite, ele é muito bom, ta pra download la na macromedia.com, tenta usar ele se não gostar pega outro!!!! Abraços, []'s Victor
  20. Victor

    Banco De Dados Dos Correios

    Quando você conecta no banco de dados... Você coloca qual endereço?? O endereço que você colocou é assim, ou é pela net mesmo??? exemplo: Fala ai que assim poderemos te ajudar melhor!!!! Abraços, []'s Victor
  21. Victor

    Deletar Cadastro (urgente)

    Tenta assim: conn.execute "delete from agenda where id = '" &request.querystring("id")& "'" Dê uma olhada nesse tutorial, que também será muito util para você... Ae tiver mais dúvidas, posta ae que estaremos ajudando!!!! Abraços, []'s Victor
  22. Victor

    Duvida

    Faz assim então, você coloca a pagina de cadastro para o seu computador, e ve qual a linha que está dando erro... Porque quando está no servidor não mostra!!!!!! E para você ver se já exite o registro você faz assim: if RecSet.EOF then Conn.Execute "Insert into tabela (registro) values ('"&Request.Form("registro")&"')" Response.Write "<font color=336699><b>Registro cadastrado com sucesso!!!</b></font>" else Response.Write "<font color=red><b>Opereção não realizada. Já existe um registro cadastrado com este nome...</b></font>" end if Caso tenha mais alguma dúvida ae, é só postar que nós te ajudaremos, no que puder!!!! Abraços, []'s Victor
  23. Victor

    Fotolog

    Mas você olhou todos os downloads, não vou prometer nada, vou tentar procurar, e se eu achar te passo!!! beleza?? Abraços, []'s Victor
  24. Victor

    Conexão Com Cobol

    Você possui o SNA SERVER ?? Abraços, []'s Victor
  25. Victor

    Duvida

    Eu estou vendo que está dando codigo, na outra pagina que está para cadastrar no banco de dados... Poste ai para agente ver o erro!!!! Abraços, []'s Victor
×
×
  • Criar Novo...