Simple File Manage Design by index.php

��

<!DOCTYPE html>
<html lang="en">

<meta http-equiv="content-type" content="text/html;charset=UTF-8" />
<head>

<meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <meta name="description" content="">
    <meta name="keywords" content="">

<title>Casamento de Paty e Thomas</title>

<link href='http://fonts.googleapis.com/css?family=Quicksand:300,400,700' rel='stylesheet' type='text/css'>
    <link href='http://fonts.googleapis.com/css?family=Playfair+Display:400,700,400italic,700italic' rel='stylesheet' type='text/css'>
    <link href='http://fonts.googleapis.com/css?family=Great+Vibes' rel='stylesheet' type='text/css'>

<link rel="stylesheet" href="css/grid.css" media="all">
    <link rel="stylesheet" href="css/magnific-popup.css" media="all">
    <link rel="stylesheet" href="css/font-awesome.min.css" media="all">
    <link rel="stylesheet" href="css/animate.min.css" media="all">
    <link rel="stylesheet" href="css/flaticon.css" media="all">
    <link rel="stylesheet" href="css/style.css" media="all">
    <link id="colors" rel="stylesheet" href="css/colors/default.css" media="all">
    <link rel="stylesheet" href="css/left-panel.css" media="all">

<link rel="shortcut icon" href="images/elements/favicon.ico">
    <link rel="apple-touch-icon" href="images/elements/apple-touch-icon.png"> 
    <link rel="apple-touch-icon" sizes="72x72" href="images/elements/apple-touch-icon-72x72.png" /> 
    <link rel="apple-touch-icon" sizes="114x114" href="images/elements/apple-touch-icon-114x114.png" />
    <link rel="apple-touch-icon" sizes="144x144" href="images/elements/apple-touch-icon-144x144.png" />
    <link rel="apple-touch-icon" sizes="180x180" href="images/elements/apple-touch-icon-180x180.png" />

</head>

<body>

<div id="logo">Paty <span>&amp;</span> Thomas</div>

<section id="story" class="pattern">
            <div class="container timeline">
              <div class="row">
                  <div class="twelve">
                        <div class="box corner quote">
                            <div class="corners-topleft"></div>
                            <div class="corners-bottomleft"></div>
                            <div class="corners-topright"></div>
                            <div class="corners-bottomright"></div>

<%
'--------------------------------------------------------------------------
'ENVIAR E-MAIL
	Function enviarEmail(DE_nome,DE_email,PARA_nome,PARA_email,Assunto,Mensagem)
		'CRIA A INSTANCIA COM O OBJETO CDOSYS 
		Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
		 
		'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 
		Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
		 
		'SERVIDOR DE SMTP 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
		 
		'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
		 
		'PORTA DO CDO 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		 
		'Utilização de SSL 
		objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
		 
		'ATIVAR RECURSO DE SMTP AUTENTICADO 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
		 
		'USUÁRIO PARA SMTP AUTENTICADO 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "infonova@infonova.com.br" 
		 
		'SENHA DO USUÁRIO PARA SMTP AUTENTICADO 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "infonova2015" 
		 
		'TEMPO DE TIMEOUT (EM SEGUNDOS) 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
		 
		'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL 
		objCDOSYSCon.Fields.update 
		Set objCDOSYSMail.Configuration = objCDOSYSCon 
		 
		'NOME DO REMETENTE, E-MAIL DO REMETENTE 
		objCDOSYSMail.From = DE_nome & " <" & DE_email & ">" 
		 
		'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO 
		objCDOSYSMail.To = PARA_nome & " <" & PARA_email & ">"
		'objCDOSYSMail.cc = "Copia <copia@dominio.com>" 
		'objCDOSYSMail.bcc = "Copia Oculta <copiaoculta@dominio.com>" 
		
		'RESPONDER PARA
		objCDOSYSMail.ReplyTo = DE_nome & " <" & DE_email & ">" 
		
		'ASSUNTO DA MENSAGEM 
		objCDOSYSMail.Subject = Assunto

'CONTEÚDO DA MENSAGEM - TEXTO SIMPLES
		'objCDOSYSMail.TextBody = "Teste do componente CDOSYS - Texto sem HTML"

'CONTEÚDO DA MENSAGEM - HTML
		objCDOSYSMail.HtmlBody = "<html> <head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body>"&Mensagem&"</body></html>" 
		 
		On Error Resume Next
		'ENVIA A MENSAGEM 
		objCDOSYSMail.Send 
		 
		If Err <> 0 Then 
			enviarEmail 	= "Erro ao enviar mensagem: <br />" & Mailer.response
		Else
			enviarEmail 	= "Mensagem enviada com sucesso!"
		End If

'DESTRÓI OS OBJETOS 
		Set objCDOSYSMail = Nothing 
		Set objCDOSYSCon = Nothing

End Function

'VARIÁVEIS 
	name		=	request("name")
	email		=	request("email")
	vaiounao	=	request("vaiounao")
	persons		=	request("persons")
	
	
'Cria a versão FULL da mensagem que será enviada por e-mail
	varMensagemFull 	= 	"<b>Convidado:</b>"		& "<br />" &_
							name 			& "<br />" &_
							"<a href=""mailto:"&email&""">" & email & "</a><br /><br />" &_
							"<b>Vai no casamento?</b>"	& "<br />" &_
							vaiounao & "<br /><br />" &_
							"<b>Quantas pessoas?</b>"	& "<br />" &_
							persons & "<br /><br />"

if name <> "" and email <> "" and vaiounao <> "" then

'Envia a mensagem
		DE_nome		=		name
		DE_email	=		email
		PARA_nome	=		"Thomas"
		PARA_email	=		"thomas.barrios@gmail.com"
		Assunto		=		"RSVP " & name

resultadoEnvio = enviarEmail(DE_nome,DE_email,PARA_nome,PARA_email,Assunto,varMensagemFull)

'Copia
		PARA_nome	=		"Paty"
		PARA_email	=		"panucip@hotmail.com"
		resultadoEnvio = enviarEmail(DE_nome,DE_email,PARA_nome,PARA_email,Assunto,varMensagemFull)

else

resultadoEnvio = "Ach que faltou preencher algo... por favor volte e revise as informações"

end if

%>
<h1><%= resultadoEnvio %></h1>
<p>Caso prefira você pode mandar a RSVP pelo whatsapp:</p>
<p>Thomas: (11) 98521-8446 <br>
 Paty (11) 98202-0504</p>
<p>&nbsp;</p>

</div>
                  </div>
              </div>
          </div>
      </section>

<footer>
            <div class="container">
                <div class="row">
                    <div class="column four copyright"></div>
                    <div class="column four logo">PATY<span>&</span>THOMAS</div>
                    <div class="column four info">Photos by <a href="#">Thomas e Paty</a></div>
                </div>
            </div>
        </footer>
        
    </section>

</body>

</html>