- Fórum WMO
- → NaDaI's Content
NaDaI's Content
There have been 10 items by NaDaI (Search limited from 05/05/2023)
#678107 Fonte Do Logo Da Ellus
Posted by NaDaI on 22/12/2005, 11:29 in Teoria da arte e tipologia
Segue o link do site pra voces darem uma olhada
http://www.ellus.com.br
#644084 Fonte Que Estão Usando Na
Posted by NaDaI on 26/09/2005, 19:57 in Teoria da arte e tipologia
#641945 Fonte Que Estão Usando Na
Posted by NaDaI on 21/09/2005, 20:11 in Teoria da arte e tipologia
Abraços
#568667 Erro No Envio De E-mail
Posted by NaDaI on 14/04/2005, 13:53 in PHP
<? // setamos aqui um valor 'verdadeiro' // para a variavel $verifica $verifica = true; // se $verifica continuar TRUE if($verifica){ // pega o e-mail pra enviar $email = "vendas@portalluzdooriente.com.br"; $assunto = "Novo Cadastro!"; $msg = "<font face='verdana' size=2>Nome: {$_POST[nome]}\n"; $msg .= "E-mail: {$_POST[email]}\n"; $msg .= "</font>"; $headers = "From: Contato\n"; $headers .= "Content-type: text/html"; // comando que envia o email $enviar = mail($email, $assunto, $msg, $headers); // se for bem sucedido if($enviar){ $msg = "Sucesso: E-mail enviado com sucesso."; $url = "index.html"; } else{ // se houver erro $msg = "Erro: Não foi possível enviar o e-mail."; $url = "contato.php"; } } ?> <script language="JavaScript"> alert("<?=$msg;?>"); window.location = "<?=$url;?>"; </script>
#549257 Validar Cpf
Posted by NaDaI on 08/03/2005, 16:20 in ASP
valeu
#547050 Validação De Cadastro De Usuário Através Do E-mail
Posted by NaDaI on 04/03/2005, 16:52 in ASP
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
#546803 Validação De Cadastro De Usuário Através Do E-mail
Posted by NaDaI on 04/03/2005, 11:22 in ASP
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
#546795 Dundas Vs Bd
Posted by NaDaI on 04/03/2005, 11:11 in ASP
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
#546666 Dundas Vs Bd
Posted by NaDaI on 04/03/2005, 02:37 in ASP
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: "®2("cod_selecao")&"<br>" f2= "Data: "®2("data")&"<br><br>" f3= "Abaixo estão os produtos selecionados pelo usuário, "®3("nome")&":<br><br>" f5= "<br>Telefone: "®3("telefone")&"<br>" do while not reg.eof f4= "Código Produto: "®("codigo")&" Produto: "®("produto")&" Quantidade: "®("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: "®2("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...
#546612 Dundas Vs Bd
Posted by NaDaI on 03/03/2005, 22:53 in ASP
segue o codigo
<% Response.Buffer = true on error resume next dim objUpload dim strMessage set objUpload = server.CreateObject("Dundas.Upload.2") if err.number <> 0 then Response.write err.description end if objUpload.MaxFileSize = 1048576 objUpload.UseUniqueNames = false objUpload.Save "e:\home\topbrasilonline\web\imagem" dim temp if IsEmpty(objUpload.Form("file1")) = false then temp = " " if err.number <> 0 then strMessage = objUpload.Form("file1") & temp & "Falha, ocorreu o erro: " & err.description else strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("file1") & "<br>" 'strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("form1") & "." end if For Each objUploadedFile in objUpload.Files 'nomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) & "<BR>" variavel = split(objUploadedFile.path,"\") ultimo = ubound(variavel) foto = variavel(ultimo) response.write foto &"<br>" Next texto = objUpload.Form("texto") Response.write strMessage response.write texto Set objUpload = nothing %>
- Fórum WMO
- → NaDaI's Content
- Privacy Policy
- Regras ·