<%
strEmail = request("email")
sql = "SELECT * FROM registro"
Set rsRegistro = Server.CreateObject("ADODB.Recordset")
rsRegistro.Open sql, MeuDB, 3, 3
Valida = 1
Do While not rsRegistro.eof AND Valida = 1
strRsEmail = rsRegistro("email")
if strRsEmail = strEmail then
Valida = 0
strMensagem = "Email já registrado!"
end if
rsRegistro.movenext
Loop
if Valida = 1 then
rsRegistro.AddNew
rsRegistro("nome") = request("nome")
rsRegistro("email") = request("email")
rsRegistro.Update
strMensagem = "Seu registro foi enviado com sucesso!"
end if
%>
<%= strMensagem %>
|