News Latter
Olá, aguém pode me ajudar com este codigo?
Estou tentando pegar o campo nome e não estou conseguindo. E-mail funciona normalmente.
<%
'setting buffering to true
response.buffer=true
'decleration
dim useraction
dim conn
dim rs
dim sql
dim DownNumber
dim sql3
dim sql2
dim unome
dim uemail
dim subs
dim totalmails
'----------------------
'Começa a ação do Usuário
useraction=request("action")
select case useraction
case "save"
Unome=lcase(request.form("Nome"))
Uemail=lcase(request.form("email"))
subs=request.form("subs")
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql = "select * from tblNews where Email='"&Uemail&""
conn.open dsn
rs.open sql,conn
select case subs
' caso que alguém quer entrar na lista
case "1"
if rs.bof and rs.eof then
sql2="insert into tblNews(Email) values('"&Uemail&"'"
conn.execute(sql2)
response.write "<script>alert('Cadastrado com sucesso')</script>"
else
response.write "<script>alert('Este E-mail já está registrado!')</script>"
end if
' caso que alguém quer sair da lista
case "0"
if rs.bof and rs.eof then
response.write "<script>alert('Este E-mail não está registrado')</script>"
else
sql2="delete from tblNews where Email='"&Uemail&"'"
conn.execute(sql2)
response.write "<script>alert('E-mail deletado com sucesso!')</script>"
end if
end select
rs.close
set rs=nothing
end select
'Contando registros
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql = "select id from tblNews"
conn.open dsn
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Aqui o formulário:
<form name="subform" action="index.asp?action=save" method="post" onSubmit="return submitit()">
Nome : <input type="Text" name="nome" size=30>
<br>Email :
<input type="Text" name="email" size=30>
<br>
<input type="radio" name="subs" value="1" checked>
Cadastrar<br>
<input type="radio" name="subs" value="0">
Remover<br>
<br>
<input type="submit" name="submit" value="Enviar">
</p>
</form>Discussão (1)
Carregando comentários...