Loop De Numeros

[vulmarjunior]

Seguinte tenho um script de e-mail em ASpmail e gostaria de toda vez que ele fosse acionado e mandasse um email fosse gerado um numero que fosse enviado junto.

Na verdade não sei como fazer isso, pois entendo pouco de ASP, sei algumas coisas mas não o suficiente para fazer isso.

Se alguém puder me dar umas dicas de como fazer isso.

Seria algo assi:

1 - O script é acionado e está processando o email

2- No meio do processo ele cria um numero e envia no corpo do email

3- O proximo email que for enviado será a continuação do numero anterior.

Ex: Email 1

Texto do email

bla, bla, bla.....

Seu numero de atendimento foi 001

Email 2

Texto do email

bla, bla, bla.....

Seu numero de atendimento foi 002

Email 3

Texto do email

bla, bla, bla.....

Seu numero de atendimento foi 003

e etc.....

Será que algume pode me ensinar a fazer isso....

Não pesso pra fazerem pra mim, mas sim para que me ensinem, para que eu possa aprender e não apenas pegar um script pronto e colocar no meu site.

Acho que assim posso aprender e crescer ao invés de ficar parasitando os outros.

[dark0]

Brother !!!

é isso aí!!!

sempre é bom querer aprender, do que pegar um codigo pronto!

Bom, nesse seu caso, acho que você deve criar um banco de dados, ou um arquivo texto.

Para que assim, a cada vez que ele enviar um e-mail, ele abra o arquivo texto, ou o banco, e some +1 no valor que esta lá!

E assim, na proxima vez, ele lê o arquivo, e adiciona mais um, e assim vai..

você sabe como conectar à um banco de dados?

Ou sabe como gravar e ler arquivos texto?

Se precisar de ajuda, estamos aí

Abraços

[vulmarjunior]

Na verdade não sei conectar com arquivo txt... o que seria mais interessante nessa situação.

[dark0]

dá uma olhada nesse tópico:

http://scriptbrasil.com.br/forum/index.php...indpost&p=78627

abraços

[vulmarjunior]

vou dar uma olhada com calma e se tiver duvidas posto aqui...

Valeu pela ajuda até agora

[vulmarjunior]

Os links do manipulando txt parte I e II estão errados. Não encontra página nenhuma.

[mariofdf]

Manipulando arquivos TXT - parte I

por: Fernando D'Angelo

Por ser uma das formas mais antigas de armazenamento de dados, e também uma das mais simples, os arquivos TXT ainda são uma grande arma no armazenamento de informações, e como tal, tem seu destaque na linguagem ASP. Integração de diferentes bases de dados a baixo custo, armazenamento de grande quantidade de informação não padronizada e aceitabilidade em 100% dos sistemas operacionais são algumas das características/vantagens dos arquivos TXT.

Um objeto chamado FileSystemObject foi desenvolvido com o intuito de permitir acesso a arquivos TXT a partir de ASP, e dispõe das seguintes funções: LER arquivos TXT, CRIAR arquivos TXT e adicionar dados em arquivos TXT.

O ASPBRASIL dividiu este tutorial em 4 partes, como segue:

1. LER arquivos TXT

2. CRIAR arquivos TXT e gravar informações iniciais

3. ADICIONAR informações a um arquivo TXT já existente

4. ASPECTOS AVANÇADOS do objeto FileSystemObject

Abaixo, segue um exemplo de leitura de um arquivo TXT.

nome do arquivo: teste.txt (abaixo, layout do arquivo teste.txt)

TESTE de leitura de arquivo TXT

Este arquivo txt pode conter tanto texto puro quanto texto com formato HTML.

Este tutorial será dividido em 4 partes, como segue:

1. A primeira parte, ensinara a ler um arquivo TXT

2. A segunda parte, a criar e gravar em um arquivo TXT

3. A terceira parte, a adicionar conteúdo a um arquivo TXT já existente

4. A quarta parte discutirá algumas funções avançadas e algumas aplicações dos arquivos TXT

Abaixo, rotina ASP que lê arquivos TXT

<%

path_do_arquivo = "e:/teste/"

nome_do_arquivo = "teste.txt"

'as linhas abaixo faz a conexão com o objeto FileSystemObject e abre o arquivo txt especificado.

Set fs = CreateObject("Scripting.FileSystemObject")

Set thisfile = fs.OpenTextFile(path_do_arquivo & nome_do_arquivo, forreading, False)

while (not thisfile.AtEndOfStream) and response.isclientconnected()

'as linhas abaixo lêem o arquivo TXT e então escrevem o seu conteúdo no Browser.

linha_txt = thisfile.readline

response.write linha_txt

wend

thisfile.Close

set thisfile=nothing

set fs=nothing

%>

Manipulando arquivos TXT - parte II

por: Fernando D'Angelo

Seguindo com o minitutorial sobre arquivos TXT, iremos abordar a criação de arquivos TXT e também a adição de dados a este arquivo. Exemplificaremos tais ações com o código de geração de arquivos LOG, que funciona da seguinte forma: Todo dia é criado um arquivo TXT, cujo nome é a data no formato invertido (aaaa/mm/dd). Para cada usuário que acessa uma página onde existe essa rotina, o arquivo TXT especificado recebe uma linha a mais. Caso este arquivo não exista, ele é criado, deixando assim o sistema totalmente automatizadol.(o primeiro acesso de cada dia irá perceber a falta do arquivo TXT do dia, o qual é criado neste momento.)

Abaixo, rotina ASP que Cria e adiciona dados em arquivos TXT

<%

path_do_arquivo = "e:/teste/"

Const forReading = 1, forWriting = 2, forAppending = 8

Const TriDef = -2, TriTrue = -1, TriFalse = 0

Dia = Day(Date())

if Dia < 10 then Dia = "0" & Dia

Mes = Month(Date())

if mes < 10 then mes = "0" & mes

Ano = Year(Date())

'a linha abaixo gera o nome do arquivo de acordo com o dia. (todo dia tem que ser criado um arquivo novo)

arquivo = path_do_arquivo & Ano & Mes & Dia & ".log"

'a linha abaixo abre a instância com o objeto Scripting. FileSystemObject

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

'abaixo, é feita a verificação da existência do arquivo procurado. Caso ele ainda não exista (o que ocorre 1 vez por dia, no primeiro acesso), ele é criado

If ObjFSO.FileExists(arquivo) = False then

'abaixo, a linha que cria o arquivo TXT especificado

objFSO.CreateTextFile(arquivo)

End If

'a linha abaixo abre o arquivo desejado. Lembre-se, ou ele já existe ou ele foi criado na rotina acima.

Set ObjFile = objFSO.GetFile(arquivo)

'a linha abaixo diz o tipo de manipulação que será utilizada no arquivo TXT, no caso é para adicionar dados.

Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)

'abaixo, são criadas algumas variáveis com valores que serão colocados no LOG (hora, IP, versão do Browser)

Hora = Time()

IpNum = Request.ServerVariables("REMOTE_ADDR")

BrowVer = Request.ServerVariables("HTTP_USER_AGENT")

'o comando WriteLine, abaixo, grava os dados no arquivo TXT especificado.

ObjStream.WriteLine Hora & " | " & Dia & "/" & Mes & "/" & Ano & " | " & IpNum & " | " & BrowVer & " --> "

'abaixo, o objeto ObjStream é fechado

ObjStream.close

Set ObjStream = nothing

%>

Estes são os artigos , os links estão certinhos.

Qualquer duvida é so postar.