News Latter

[marcosalmeida 0]

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>

[Mário Monteiro 179]

algum erro?