<% 'Verifica se houve POST if Request.TotalBytes > 0 then 'Declara variaveis dim strNome, strEmail, strAreaAtuacao, regEx, fromEhValido, msgErro formEhValido = true msgErro = "" 'Recupera dados do formulario. strNome = Replace(Replace(Replace(Replace(Trim(Request.Form("textNome")),"'",""),"=",""),">",""),"<","") strEmail = Replace(Replace(Replace(Replace(Trim(Request.Form("textEmail")),"'",""),"=",""),">",""),"<","") strAreaAtuacao = Replace(Replace(Replace(Replace(Trim(Request.Form("selectAreaAtuacao")),"'",""),"=",""),">",""),"<","") 'Se Area de Atuacao = Outra, busca informacao do campo Qual? if strAreaAtuacao = "Outra" then strAreaAtuacao = Replace(Replace(Replace(Replace(Trim(Request.Form("textAreaAtuacao")),"'",""),"=",""),">",""),"<","") end if 'Verifica se algum campo veio vazio. Se sim, invalida formulario. if strNome = "" then formEhValido = false msgErro = msgErro & "O campo NOME é obrigatório.
" end if if strEmail = "" then formEhValido = false msgErro = msgErro & "O campo E-MAIL é obrigatório.
" end if if strAreaAtuacao = "" then formEhValido = false msgErro = msgErro & "O campo ÁREA DE ATUAÇÃO é obrigatório.
" end if 'Verifica se o e-mail eh valido. Se nao, invalida formulario. Set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z0-9]+([\._]?[a-zA-Z0-9]+)*@[a-zA-Z0-9]+([\.-]?[a-zA-Z]+)?(\.[a-zA-Z]{2,3})+$" if not(regEx.Test(strEmail)) then formEhValido = false msgErro = msgErro & "Informe um E-MAIL válido.
" end if if formEhValido then %><% Function RetornaDataAtual() dia = Day(Date()) mes = Month(Date()) ano = Year(Date()) hora = Hour(now()) minuto = Minute(now()) segundo = Second(now()) if len(dia) = 1 then dia = "0" & dia if len(mes) = 1 then mes = "0" & mes if len(hora) = 1 then hora = "0" & hora if Len(minuto) = 1 then minuto = "0" & minuto if Len(segundo) = 1 then segundo = "0" & segundo data = ano & mes & dia & hora & minuto & segundo RetornaDataAtual = data End Function dim strSQL,objRecordSet strSQL = "SELECT * FROM T_USUARIOS WHERE DSC_EMAIL = '"& strEmail &"'" set objRecordSet = objConexao.Execute(strSQL) if not objRecordSet.eof then Response.Write("Este E-MAIL já está cadastrado.") Response.Write("") objRecordSet.close set objRecordSet = nothing objConexao.close set objConexao = nothing else strSQL = "INSERT INTO T_USUARIOS (NOM_USUARIO,DSC_EMAIL,DSC_AREA_ATUACAO,DAT_CADASTRO) VALUES (" strSQL = strSQL &"'"& strNome &"', '"& strEmail &"', '"& strAreaAtuacao &"', '"& RetornaDataAtual() &"')" objConexao.Execute(strSQL) Response.Write("") objConexao.close set objConexao = nothing end if else Response.Write(msgErro) Response.Write("") end if end if %>