[ GuTo ]

Com certeza em ASP! asp - roda no server - ninguém pode ver seu código javascript - roda no cliente - todo mundo pode ver seu código

Cara, tem como salvar sim a sua foto no banco de dados acess, mas isso envolve código binário, o que eu nunca pensei em fazer, e que dizem que é complicado, não sei, mas vale lembrar que isso, principalmente pra bd acess, deixario-o extremamente pesado, ou seja, suas aplicações perderiam mta performance, o que tornaria sua aplicação muita lenta.

Response.Cookies("nomeDoCookie").Expires = Date+1

...Topo... Se alguém souber a dúvida ACIMA, do qwert133, que responda este tópico... Outra coisa... Se não tem problema eu usando o acess, colocar este ponto e vírgula no final da linha? Por ex., pra minha t-sql ficar apta pra qlqr bd...

Já tentou realizar um cálculo matemático? seg = Second(Time) decimoDeSegundo = Int(seg/10) Acho que isso ajuda-lhe...

Olá Duffy... Veja aki: http://scriptbrasil.com.br/forum/index.php?showtopic=12549 Se você tivesse realizado uma busca teria encontrado isso de forma mais rápida...

Opa... Voltando ao fórum à todo vapor e com os códigos do nosso 2º desafio!!! Antes de mais nada, quero dizer que organizei os códigos dos que participaram, porém não alterei sua lógica nem nada... em alguns coloquei um comentário. Depois de vocês terem visto todos os códigos, gostaria que chegassemos todos a um consenso (acho que é assim que se escreve) para podermos dizer qual seria o mais viavél, em todos os sentidos. Logo depois disso eu vou abrir diversas discussões sobre o mesmo (mesmo se até lá o 3ºdesafio já estiver feito...) Vamos lá: aqui o 1º código que eu fiz sobre isso... Ruim, lerdinho, grande d+, porém bastante didático. (depois melhorei ele um pouco, mas este é o PRIMEIRÃO...depois de eu ter alcançado meu objetivo, de ensinar vários detalhes a vocês, postarei a minha última versão desta função...e depois vamos analisa-las...e fazer tudo que disse mais acima.) Function NovoID(Tabela) Set rs8 = db.Execute("SELECT MAX(id) AS id_maior FROM "&Tabela&"") If IsNull(rs8("id_maior")) Then id_novo = 1 Else id_maior = rs8("id_maior") End If For x = 1 to Int(id_maior + 1) Set rs9 = db.Execute("SELECT id FROM "&Tabela&" WHERE id="&x) If rs9.eof Then id_novo = Int(x) Exit For End If Next Set rs9 = nothing Set rs8 = nothing NovoID = id_novo End Function Agora o código do: dipreza <% Function MostrarRegistro(Campo,Tabela) Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select "& Campo &" From "& Tabela &"" RS.Open SQL,db,1,1 If Rs.eof then response.write "Nenhum Registro !!!" 'bem, digamos que aqui seria um pequeno erro 'pois aqui deveria informar o nº1 como novo registro 'mas td bem... else Ultimo = Rs.recordcount For i = 1 to ultimo Atual = RS(""& Campo &"") If i <> Atual then MostrarRegistro = "Incidencia : <b>"& i Exit For Else MostrarRegistro = "Novo Numero : <b>"& Atual + 1 end if RS.MoveNext 'response.write i & " - " & atual & "<BR>" Next end if RS.close db.Close Set RS = nothing Set db = nothing End Function 'Response.Write MostrarRegistro("nomeCampo","nomeTabela")%> dark0 <% Function FProximo_registro(tabela,campo) sql = "select * from "&tabela&" order by "&campo&"" set rs = conexao.execute(sql) if rs.eof = true then FProximo_registro = 1 else i = 1 rs.MoveFirst do while not rs.eof if i <> rs(""& campo &"") then FProximo_registro = i else i = i + 1 FProximo_registro = i end if rs.MoveNext loop rs.MoveFirst end if End Function 'Response.Write FProximo_registro("nomeTabela","nomeCampo")%> mariofdf <% function brexa(a,b) cont = 1 SQL = "SELECT * FROM "& b &" order by "& a &"" Set RS = Con.Execute(SQL) Do While not RS.EOF if rs(""& a &"") = cont then cont = cont+1 else brexa = "Brexa no BD = "&cont end if RS.MoveNext Loop if brexa = "" then brexa = "Próximo vago = "&cont end if end function Response.Write brexa("id","membros")%> Aguardo comentários sobre os mesmos, sendo dúvidas, críticas, sugestões, erros (se tiverem...)...

Isso mesmo! 1º.: é o JMAIL.Message 2º.: é o JMAIL.SMTPMail Não sei quais as suas diferenças, mas acho eu que só usei até hj o 2º. t+

É isso aí, Urso! você não pode colocar nenhum comando header(), session_start(), session_destroy() ou setcookie (este eu não tenho certeza absoluta) antes de qualquer saída de texto... você já começa o script com o "<?php" na primeira linha... se você der um enter antes de iniciar o script com o "<?php" e chamar a função header(), já dá erro! Eu faria isso da seguinte forma: colocaria a conexão com o db, verificação e tudo mais que fosse possível no início do código (antes do <HTML>), e se desse erro, ao invés de mandar escrever a mensagem, você manda ele definir uma variável. Por exemplo: $erro = "Texto da mensagem de erro!"; Aí, já no meio do código html (onde você quer que imprima a mensagem se der o erro), você faz assim: if (isset($erro)) { echo $erro;} beleza? Falou! Bem, eu não sei nada de PHP, mas estou pensando em começar devagarinho com o PHP, só dando umas bisoiadas de vez em quando aki... Só pra ir familiarizando... Esta mesma coisa acontece no ASP. Não podemos usar o objeto Response pra qlqr um de seus métodos (cookies, redirect) depois de ter "salvo" o conteúdo no buffer. t+

é isso ae já comentei até em outro fórum isso e a melhor coisa é ligar pto banco e tirar todas as duvidas referentes quanto as taxas e td mais, pra evitar futuros problemas t+

bah foi mal ae brother, jurei q tinha sido você... mas ae bolo, explica seu método usando INNER JOIN pra nós vermos, ou então nós vamos comer um bolinho rs* o código do urso é bem interessante...

Dim Mail Set Mail = Server.CreateObject("JMAIL.Message") Mail.FromName = "[ GuTo ]" 'Remetente nome Mail.From = "gutoasp@pop.com.br" 'Remetente endereço Mail.AddRecipient "antonioaugusto@xmail.net" , "Antonio Augusto André Silveira" 'Destinatario endereco , Destinatario nome Mail.Subject = "Fala ScriptBrasileiros..." Mail.Body = "Olha ae que barbada... :D" Mail.Send("mail.libihost.net") Set Mail = Nothing 'Cópia comum: Mail.AddRecipientCC endereco, nome 'Cópia oculta: Mail.AddRecipientBCC endereco, nome Dim obj_Mail Set obj_Mail = Server.CreateObject("JMail.SMTPMail") 'Criando o objeto JMail para o envio With obj_Mail .ServerAddress = "mail.retrieve.com.br" .Logging = True .ContentType = "text/html" 'Setando para envio como HTML .Charset = "US-ASCII" .SenderName = siteNome .Sender = siteEmail 'E-mail de quem está enviando; remetente .AddRecipient email 'Para: destinatário email .Subject = "Seu código/cadastro" 'Assunto .Body = htmlemail 'Corpo do email '.ContentTransferEncoding = "8bit" .Execute 'Tentando enviar End with Set obj_Mail = Nothing 'Destruindo o objeto Corrigi este segundo, pois o FromName não existe nesse, e sim SenderName. E aprimorei ele.

Não seria mais fácil criar um novo BD? Ou precisa manter os dados deste BD?

Tente assim: <% while not RecSet.eof then nome=nome&RecSet("evento") & "|" RecSet.movenext wend %>.

Pois é brother... não sei... O q o dark0 falou é a melhor a coisa a se fazer, debugar Mas tudo parece ok no seu código...

Acho q só nos sites de codigos livres você pode encontrar algo pronto.. Dê uma olhada nos tópicos pendurados aki do forum onde tem links de sites de codigos pra download garatuitos. t+

Eu não conheço... Mas se você saber como funiona talvez os numeros do IP, dae talvez dê mais ou menos...já vi um programa (.exe) q fazia isso... Por ex., ip's q comecam com 200. são brasileiros (pelo menos é o q eu sei) Dae cada pais deve ter o seu imagino, e dae os proximos numeros devem seguir alguma coisa do tipo... uma regra pra localizacao... Talvez seja bom é então aprender o q significa IP... Mas não considere muito minha resposta, porque quanto ao assunto não sei muito.. Abraços!

Dizem que páginas com extensão *.shtml aceitam includes... eu nunca testei... No mais, faça que nem o dark0 disse

Retorna algum erro o q? parece estar correto...

Faça uma busca pelos tópicos do: Alex_, mas não coloque pra buscar por nome exato. No tópico dele fala sobre 3 tipos de paginação boas, como estas q você falow e esta do fórum. Boa pesquisa! tópcio fechado já há mtos tópicos sobre paginação aki

Já existem mtos tópicos sobre paginação no fórum Todos tem uma boa reposta pro que você precisa abraços tópico fechado

Com certeza brother!!! Muita boa sua função e toda comunida ASP agradece!!! E brother, se possível posta sempre logado, beleza?! E edita seu post lá em funções, pois tá como guest também. Forte abraço

Isso seria javascript não? Movendo...

http://www.construindoseusite.com.br/pws/p..._millenium.shtm

Ae brother, troque seu o codigo da pagina COD.ASP por este, sem medo: <html> <head><title>ASP</title></headd> <body> <% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("banco_de_dados.mdb") DB.open constr categoria = Request.Form("nome") If nome ="" then Response.write "Você deve digitar um nome para cadastrar" Else DB.execute("INSERT INTO tabela (nome) Values('"&nome&"')") End if %> </body> </html> A mesma coisa, só que menor e sem "sujeira" (códigos inúteis) abraços, t+