<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request("enviar")="Enviar" then on error resume next nome = replace(trim(request("nome")),"'","") email = replace(trim(request("email")),"'","") senha = replace(trim(request("senha")),"'","") cidade = replace(trim(request("cidade")),"'","") uf = request("uf") telefone = replace(trim(request("fone")),"'","") cpf = replace(trim(request("cpf")),"'","") dataExpira = now() + 5 ISODate = Year(dataExpira) & "-" & Month(dataExpira) & "-" & Day(dataExpira) & " " & hour(dataExpira) & ":" & minute(dataExpira) & ":" & second(dataExpira) senhaMd5 = MD5(senha) auxData = now() ISODate2 = Year(auxData) & "-" & Month(auxData) & "-" & Day(auxData) & " " & hour(auxData) & ":" & minute(auxData) & ":" & second(auxData) sql = "INSERT INTO loginVideoAula (email, senha, dataCriacao, cpf, telefone, cidade, UF, nome, dataExpira, degusta) VALUES(" sql = sql & "'" & email &"', " sql = sql & "'" & senhaMd5 &"', " sql = sql & "'" & ISODate2 &"', " sql = sql & "'" & cpf &"', " sql = sql & "'" & telefone &"', " sql = sql & "'" & cidade &"', " sql = sql & "'" & UF &"', " sql = sql & "'" & nome &"', " sql = sql & "'" & ISODate &"', " sql = sql & TRUE &")" 'Response.Write(sql) 'response.end conSQL.Execute(sql) if err.number=0 then msgErro = "Cadastro realizado com sucesso!" var_to = email 'Cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon MsgBody = "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "

" MsgBody = MsgBody & "

Portal de Auditoria - Cadastro para Vídeo Aulas

" MsgBody = MsgBody & "

Data/Hora: "&now()&"
" MsgBody = MsgBody & "

Nome: "&nome&"
" MsgBody = MsgBody & "

Email: "&email&"
" MsgBody = MsgBody & "

Senha: "&senha&"

" MsgBody = MsgBody & "

Acompanhe as últimas notícias em nosso site
www.portaldeauditoria.com.br

" MsgBody = MsgBody & "" 'response.write(msgbody) objCDOSYSMail.From = "Portal de Auditoria " objCDOSYSMail.To = var_to objCDOSYSMail.ReplyTo = "contato@portaldeauditoria.com.br" objCDOSYSMail.Subject = "Vídeo Aulas - Cadastro" objCDOSYSMail.HtmlBody = MsgBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing nome = "" email = "" senha = "" cidade = "" uf = "" telefone = "" cpf = "" elseif err.Number=-2147467259 then msgErro = "Cadastro não realizado - E-mail já existente na base de dados." else msgErro = err.Description end if end if if request("voltar") = "Voltar" then response.redirect("default.asp") end if %> PORTAL DE AUDITORIA | Vídeo Aulas - Cadastro

Informe seus dados para o período de degustação das vídeo aulas:
<%=msgErro%>
 
Nome: *
E-mail: *
Senha: *
Cidade: *         Estado: <%sql = ("SELECT uf FROM uf ORDER BY uf") Set rs = conSQL.Execute(sql)%> *
Telefone: *
CPF/CPNJ:
 
* Campos obrigatórios.
 

Já possui login e senha, clique aqui!

Página principal