NaDaI

nao encontrei no da font nenhuma das duas fontes, digitei o nome delas no campo de busca e nem acho nada....podia me falar mais ou menos a categoria dela sei la

bom velho seguinte...agora voce explico melhor o que voce queria....e aquilo voce pode usar dessa forma e bloqueando emails tambem que nao tenham no bd....vou te passar um codigo que eu uso....que cria uma variavel nesse estilao mesmo que voce quer....da uma analisada e ve se te ajuda

Private Function GerarCodigo()
Dim valores, i

'Inicia a função com valor em branco
GerarCodigo = ""

'Define um vetor com os elementos de nosso código
valores = Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")

	Randomize
	For i = 1 to 40
  GerarCodigo = GerarCodigo & valores(Int(uBound(valores) * Rnd))
	Next
End Function

Session("sid") = GerarCodigo

Ue muito simples, voce faz o cadastrado normal do cara e deixa ele como desativado, dae quando o cara fizer o cadastro automaticamente voce manda um link para o email onde ele irá ativar seu cadastro.

Agora quanto a esse numeros gigantesco é so voce criar uma rotina que crie isso que voce falou e coloque ela no codigo tambem....so queria entender pra que voce quer isso? voce vai usar esse numeros e letras pra que? se nao tiver utilidade coloque apenas um link onde na hora que ele clicar ele seja transferido para pagina aonde ativará seu cadastro...

Qaulquer coisa grita

entao fazer o loop eu sei...o problema ali se voce ver e que na hora que eu faço o loop ele faz normal...se junto ao loop eu colocar um response.write nome da variavel funciona normal....

so que o que rola...eu to fazendo esse loop pra depois enviar tudo isso por email...so que ele faz o loop so que na hora que chega no meu email so vem 1 vez a variavel impressa entendeu...

eu precisaria ter uma ideia de como fazer pra que loop imprimir em tela todas variaveis pra eu mandar pro email...e mais ou menos isso

po ate consegui revoler o problema....mais mudei o codigo todo...hehehe....nao continue com esse nao...

Agora uma outra duvida, acho que e porque eu to com a cabeça meio quente desse lançe do upload, que acabei resolvendo. Seguinte eu tenho esse codigo que enviar a seleçao que o cara fazer para o email, so que rola o seguinte....se ele tem 1 produto na seleçao beleza....agora se ele tem 2 produto ele nao pega os dois e envia pro email...ele pega so 1...o loop nao ta funcionando certo...se alguem poder so dar uma força ae eu agradeço.

set reg3 = server.CreateObject("adodb.recordset")
sql3 = "select * from tb_usuarios where id="&session("id_usuario")&""
set reg3 = con.execute(sql3)

nome_usuario = reg3("nome")
email_usuario = reg3("email")

set reg2 = server.CreateObject("adodb.recordset")
sql2 = "select * from tb_selecao where cod_selecao='"&cod_selecao&"'"
set reg2 = con.execute(sql2)

set reg = server.CreateObject("adodb.recordset")
sql = "select * from tb_produtos_selecionados where cod_selecao='"&cod_selecao&"'"
set reg = con.execute(sql)

f1= "Código Seleção: "&reg2("cod_selecao")&"<br>"
f2= "Data: "&reg2("data")&"<br><br>"
f3= "Abaixo estão os produtos selecionados pelo usuário, "&reg3("nome")&":<br><br>"
f5= "<br>Telefone: "&reg3("telefone")&"<br>"
do while not reg.eof
f4= "Código Produto: "&reg("codigo")&"&nbsp;Produto: "&reg("produto")&"&nbsp;Quantidade: "&reg("quant")&"<br>"

reg.movenext
loop
' Texto html
msgHTML = f1 & f2 & f3 & f4 & f5

response.write msgHTML

' Pegando os dados digitados nos campos e colocando em variaveis
'sNameFrom = nome_usuario
'sEmailFrom = email_usuario
'sEmailTo = "contato@topbrasilonline.com.br"
'sNameTo = "Top Brasil On-Line"
'sAssunto = "Seleção: "&reg2("cod_selecao")&""

'Set Mail = Server.CreateObject("Persits.MailSender") 

'Mail.Host = "smtp2.locaweb.com.br" 
'Mail.From = sEmailFrom
'Mail.FromName = sNameFrom
'Mail.AddAddress sEmailTo
'Mail.Subject = sAssunto 
'Mail.isHTML = true
'Mail.Body = msgHTML 

'On Error Resume Next
'Mail.Send
'If Err <> 0 Then
' Response.Write "Error encountered: " & Err.Description
'End If

'Set Mail = Nothing

response.write"<script>window.alert('Você acaba de enviar sua seleção para equipe Top Brasil On-Line!')</script>"&vbCrLf 
response.write"<script>self.location='"&url&"'</script>"
%>

se alguem tiver uma ideia pra resolver isso ae, me da um toque, porque ta xxxxxx as ideias nao saem mais...