mariofdf

Olha isso ai pode causar algum conflito e resultados indesejados. Por exemplo quando chegar ao dia 28/05/2004 - pode ocorrer retornar - 33/05/2004 ou 02/05/2004. Para maior segurança use a forma mais segura. <% dias_adicionar = 10 data = Cdate(day(now) &"/" &month(now) &"/" &year(now)) data_somada = DateAdd("d", dias_adicionar, data) Response.Write data_somada %> É só uma sugestão...

voce já tem alguma coisa pronta posta ai que inclementaremos seu codigo...

Olha amigo a forma mais facil seria ter estes dados em um bd, e por exemplo quando a pessoa escolher parceiro 1 ele vai no bd compara acha o parceiro e retorna as informações. se tiver difilcudades para montar de um toque que te mando um exemplo...

Atraves de uma simples instrução sql... Exemplo: vamos supor que seu bd tivesse quatro campos na tabela SUATABELA 1- IDcampo 2- Campo 3- Campo2 4- Nome para ver o resultado... Total = <%=RS("Total")%> Se voce estiver usando Record set tem o criterio que exibe os dados... Se for seu caso fale que te passo.. Mas por SQL é isso ai ....

O melhor no meu ponto de vista é o bom e velho Bloco de Notas, com ele voce não corre o risco de ter seu codigo alterado por funções do programa...

Eu faço assim, acho que é mesma coisa do que o urso fez, a unica diferença é que o do rso o vetor I=0 fica vazio e o meu não... o dele começa do 1 e o meu do 0. <% Palavra = "GolBranco20" Vetor = Array() For I = 1 To Len(Palavra) Redim Preserve Vetor ( UBound( vetor )+1) Vetor (Ubound(Vetor)) = Mid(palavra, I, 1) Next %> <% for i = LBound( vetor ) to UBound ( vetor ) response.write("Numero do vetor&nbsp;=&nbsp;" &i & "&nbsp;vetor =&nbsp;" &vetor(i) & "<br>") next %>

No meu IIS funciona, voce deve colocar o arquivo golbal.asa na pasta wwwroot de seu IIS

Vamos la, esmilsando... pegue este codigo e salve com o nome global.asa <script LANGUAGE=VBScript RUNAT=Server> ' O aplicativo iniciou Sub Application_OnStart ' Aplicativo é fechado para não haver conflitos Application.Lock ' Contagem de usuarios online e total é zerado Application("UsuariosOnline") = 0 Application("Total") = 0 ' Aplicativo aberto novamente Application.UnLock End Sub ' Iniciada a sessão do usuário Sub Session_OnStart ' O aplicativo é fechado novamente Application.Lock ' A variavel Application("UsuariosOnline") é somada mais um ' quando o visitante acessa o site Application("UsuariosOnline") = Application("UsuariosOnline") + 1 ' Application("Total") é somado mais um Application("Total") = Application("Total") + 1 Application.UnLock End Sub ' Sessão foi finalizada pelo usuário Sub Session_OnEnd Application.Lock ' Application("UsuariosOnline") é subtraido um valor ' Pois o usuário que setava online fechou o browser, ' mudou de site ou a sessão expirou Application("UsuariosOnline") = Application("UsuariosOnline") - 1 Application.UnLock End Sub </SCRIPT> e coloque o arquivo na pasta raiz do site. em sua pagina onde quer que apareça o tanto de pessoas online coloque... <% response.write "Usuários Online: " & Application("UsuariosOnline") %> eu já testei este codigo e funciona.

Colega use a ferramenta de pesquisa... entre centenas de artigos sobre o assunto segue o link de um que acho interessante.... sistema de usuarios on-line

Eu já tive um problema parecido... É o seguinte, cada servidor tem seu sistema de segurança, em alguns deles os comandos intedidos como nocivos são bloqueados, que é o caso do comando que voce esta querendo usar,,, solução ... Desativar ou mudar o sistema que esta bloqueando o Comando... Só um exemplo... O norton 2004 - Tem um componente de upload que se instalado bloqueia o uso do objeto FSO...

Ai dark0 injustiça, voce não me deu parabens publicamente... e olha a importancia eu so o 1º do 1º desafio, nunca mais na historia vai haver um 1º do 1º desafio de asp aqui no SB... T+

ESTOU ME SENTINDO SOLITARIO NAQUELE RANK, NÃO TEM GRAÇA SER O PRIMEIRO SE NÃO TEM SEGUNDO NEM TERCEIRO. VAMOS GENTE, ESSE TA FACINHO....

Dark desculpe minha ignorancia mas voce poderia me ensinar o que é MOD e DIV. Estou ainda estudando muito asp e nunca vi falar sobre isto , fiquei curioso...

Se a senha funcionace ficava mais facil...hehe

Montei correndo aqui, agredito que necessite de correções. mas tente ai.... <% dim nome, email, mensagem, recipient, redirect, mail, corpo nome=trim(request.form("nome")) email=trim(request.form("email")) email=trim(request.form("transacao")) email=trim(request.form("cidade")) email=trim(request.form("bairro")) email=trim(request.form("endereco")) email=trim(request.form("tipo")) email=trim(request.form("subtipo")) email=trim(request.form("garagem")) email=trim(request.form("preço")) email=trim(request.form("telefone")) recipient=trim(request.form("recipient")) redirect=trim(request.form("redirect")) Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTP Mail.Host = "aqui vai o host do seu servidor" 'E-mail do remetente mail.from=email 'Remetente Mail.FromName = "Mensagem do Site" Mail.AddAddress = recipient 'Assunto da mensagem Mail.Subject = "Mensagem do Site" 'Corpo da mensagem Mail.IsHTML = True corpo=" Mensagem do site"&vbcrlf&vbcrlf corpo=corpo&"Transação: "&transacao&vbcrlf&vbcrlf corpo=corpo&"Cidade: "&cidade&vbcrlf&vbcrlf corpo=corpo&"Bairro: "&bairro&vbcrlf&vbcrlf corpo=corpo&"Endereço: "&endereco&vbcrlf&vbcrlf corpo=corpo&"Tipo: "&tipo&vbcrlf&vbcrlf corpo=corpo&"Sub-tipo: "&subtipo&vbcrlf&vbcrlf corpo=corpo&"Garagem: "&garagem&vbcrlf&vbcrlf corpo=corpo&"Preço: "&preço&vbcrlf&vbcrlf corpo=corpo&"Nome Proprietario: "&nome&vbcrlf&vbcrlf corpo=corpo&"Telefone: "&telefone&vbcrlf&vbcrlf corpo=corpo&"Email: "&email&vbcrlf&vbcrlf Mail.Body = corpo On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description else response.redirect(redirect) End If Set Mail = Nothing %>

poste seu código para poder melhor te ajudar.

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Fotosdahora.com.br" & Ucase(Session("usuario")) Mailer.FromAddress = "fotosdahora@fotosdahora.com.br" Mailer.RemoteHost = "mail.hostsul.com.br" Mailer.AddRecipient Request.Form("email"), Request.Form("email") 'Mailer.AddAttachment caminho & "1.jpg" Mailer.Subject = request.form("assunto") Mailer.BodyText = montamsg(request.form("msg"),Request.Form("email")) Mailer.CharSet = 0 Mailer.Encoding = 0 Mailer.SendMail tente isso ai...

alguém ai conhece algum provedor gratis que aceite span...

Muito boa a idéia... Manda ai que nóis resolve...

mas é so seguir o tutorial que te falei que não tem erro... dai se der erro é so postar aqui...

sua pagina já esta online, para que possamos dar uma olhada... a logica seria a seguinte... visto voce querer o produto anterior, la na primeira query voce enviaria dois valores . cod_prod e cod_prod_ant este segundo seria o id do produto anterior, mas eu não sei como voce esta formando estes links, mas continuando, dai voce poderia fazer aquela verificação if i_prod = "" then response.redirect "edit01.asp?cod_prod=cod_prod_ant" end if mas poste o endereço ou o seu codigo completo....

cade o erro????

De uma olhada neste tutorial tem tudo que voce precisa.. qualquer duvida poste...

esta logica do victor ate vai funcionar, mas veja só. se voce tiver com um produto que o id é 36 e tiver uma brexa e pular para o 38 então vai dar erro. e se a variavel estiver vasia vai dar erro. Se o modo que nosso colega vitão der certo beleza, caso contrario te passo uma outra logica... E so dar um toque...

Ai dirao voce tem razão... já solucionei o primeiro problema - criei uma instancia em asp... pode feixar o tópico...