Select Case Só "pega" O Primeiro Caso

Junho 1, 2004

Pessoal,

Estou criando uma pagina em ASP onde um formulario da pagina html seria enviado para uma pagina ASP fazer a verificaçao do conteudo. Caso algum campo esteja vazio, sera redirecionado para uma pagina err.asp que retornara a mensagem de erro de acordo com o campo vazio.

O problema é que o formulario sempre "cai" no caso 1, mesmo estando certo o preenchimento do formulario.

Ao todo são 3 arquivos diferentes. O formulario.asp, o recform.asp e o err.asp.

não tenho noçao do que pode ser. Sou novato na programaçao e no ASP.

alguém saberia me explicar o erro?

[]'s

Fernando

----------------------------------

FORMULARIO.ASP

<html>
<body>
<head>
<title>Teste Gabi</title>
</head>

<center>

<table cellpading="3" cellspacing="0">

<tr><td allign="center">

<font face = "arial" size = "2">
<strong>Fale Conosco</strong>

</td></tr><td allign="right">

<FORM ACTION="RecForm.asp" METHOD = Get>

<font face ="verdana" size="1">
<br>Nome:       <INPUT TYPE = Text NAME = "EnvNome" SIZE="25">

<BR>E-mail:   <INPUT TYPE = Text NAME = "EnvEmail" SIZE="25">

<BR>Telefone: <INPUT TYPE = Text NAME = "EnvTelefone" SIZE="23">

<BR>Mensagem:

<br><textarea name="Mensagem" rows="5" cols="30" ></textarea>
<br>*Todos os campos são obrigatórios 

<BR>
<INPUT TYPE = Submit VALUE = "Enviar">
</form>
</body>
</html>

RECFORM.ASP

<%

Dim nome, email, telefone

nome = Request.Form("EnvNome")
email = Request.Form("EnvEmail")
telefone = Request.Form("EnvTelefone")

Session("nomesess") = Request.Form("EnvNome")
Session("emailsess") = Request.Form("EnvEmail")
Session("telefonesess") = Request.Form("EnvTelefone")

if nome = "" then
 Response.Redirect "Err.asp?erro=1"
 end if

if email = "" then
 Response.Redirect "Err.asp?erro=2"
 end if

if telefone = "" then
 Response.Redirect "Err.asp?erro=3"
 end if

%>

ERR.ASP

<%

Dim ErroMsg
ErroMsg = Request.QueryString ("erro")
msg = ""

Select case ErroMsg
case "1"
msg = "Digite seu nome !"
case "2"
msg = "Digite um email válido!"
case "3"
msg = "Digite um texto !"

End Select

if msg <> "" then
Response.Write "<p align=""center""><font face=""verdana"" color=" & DefaultColor & " size=""1""><b>" & msg & "</b></font></p>"
end if

%>

f_loureiro2@terra.com.br

[ GuTo ] · Junho 2, 2004

Na página formulário está assim:

FORM ACTION="RecForm.asp" METHOD="Get">

Deixe assim:

FORM ACTION="RecForm.asp" METHOD="POST">

Acho que é isso,

t+

Junho 2, 2004

Muito obrigado Antonio. Realmente este era o erro sim. só gostaria de entender o porque deste erro?!

[]'s

fernando

dark0 · Junho 2, 2004

olá amigo.

aquele erro acontece, porque, em seu codigo, você está usando:

nome = Request.Form("EnvNome")
email = Request.Form("EnvEmail")
telefone = Request.Form("EnvTelefone")

veja o que esta em negrito.

request.form, é usado apenas quando o formulario for enviado com o método (method) POST.

Se, em seu código, você estivesse usando, por exemplo:

nome = Request.QueryString("envnome")

não daria erro nenhum. Pois, quando você usa o método (method) GET, o modo de resgatar os valores é aquele ali.

se você apenas colocasse:

nome = Request("envNome")

não iria importar se você estava usando o método GET, ou POST. pois esse modo captura qualquer um dos dois.

mais alguma duvida?

até mais

dark

Entrar

Select Case Só "pega" O Primeiro Caso

Pergunta

Guest Fernando Luiz

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

[ GuTo ]

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades