<%pagina = 20%>
<%
Dim ObjAdoConn, SQL, ObjAdoConn1, SQL1, RS
if request("acao") = "add" then
SQL1 = "SELECT id, nome, email FROM newsletter where email = "&sBDTratarString(request("email"))&""
Conecta ObjAdoConn1, SQL1, RS
if not RS.EOF then
if RS("email") = "" then
SQL = "INSERT INTO newsletter(nome, email)"&_
"VALUES ("& sBDTratarString(request("Nome")) &","& sBDTratarString(request("email")) &")"
Conecta ObjAdoConn, SQL, null
response.Redirect("newsletter.asp?msg=1")
else
response.Redirect("newsletter.asp?msg=2")
end if
else
SQL = "INSERT INTO newsletter(nome, email, apelido)"&_
"VALUES ("& sBDTratarString(request("Nome")) &","& sBDTratarString(request("email")) &","& sBDTratarString(request("apelido")) &")"
Conecta ObjAdoConn, SQL, null
response.Redirect("newsletter.asp?msg=1")
end if
end if
if request("acao") = "del" then
SQL1 = "SELECT id, nome, email FROM newsletter where email = "&sBDTratarString(request("email"))&" and apelido = "&sBDTratarString(request("apelido"))&""
Conecta ObjAdoConn1, SQL1, RS
if not RS.EOF then
if RS("email") <> "" then
SQL = "Delete from newsletter where email = "&sBDTratarString(request("email"))&" and apelido = "&sBDTratarString(request("apelido"))&""
Conecta ObjAdoConn, SQL, null
response.Redirect("newsletter.asp?msg=3")
else
response.Redirect("newsletter.asp?msg=4")
end if
else
response.Redirect("newsletter.asp?msg=4")
end if
end if
%>
Salarium, o seu site de Remuneração e Benefícios.
<%if request("msg") = 3 then%>
<%end if
if request("msg") = 4 then%>
<%end if%>
