Usando ONFOCUS

[Ferla 0]

Olá galera, estou com um probleminha.........Tenho uma página contato, nela consta o usuário insere o email, nome, assunto, telefone e texto. Pois bem, inseri nos textBox o comando JavaScript de onFocus e OnBlur, que fica no caso de Email.Text "Digite seu email". Aí que está o problema, quando o usuário clica em enviar, ocorre um erro informando que o campo de email não pode ficar em branco, alguém poderia me ajudar?

 

Código para envio do email:

objEmail.To.Add("meuemail@provedor.com") 'Email de Destino

objEmail.Subject = (txtAssunto.Text) 'Assunto

objEmail.Body = ("Nome linenums:0'><%@ Control Language="VB" ClassName="WebUserControl2"%><%@ Import Namespace="System.Net.Mail"%><script runat="server"> Public Sub btnEnvair_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Dim objEmail As New MailMessage objEmail.From = New MailAddress(txtEmail.Text) 'Email de origem objEmail.To.Add("meuemail@provedor.com") 'Email de Destino objEmail.Subject = (txtAssunto.Text) 'Assunto objEmail.Body = ("Nome: " + txtNome.Text & vbCrLf & "Telefone: " + txtTelefone.Text & vbCrLf & "------------------------------" & vbCrLf & txtMensagem.Text) 'Comentário objEmail.BodyEncoding = Text.Encoding.GetEncoding("ISO-8859-1") Dim SmtpMail As New SmtpClient SmtpMail.Host = ("smtp.mail.yahoo.com.br") Try SmtpMail.Send(objEmail) 'Envia Email 'MsgBox("Mensagem enviada com sucesso !!!", MsgBoxStyle.Information, "Family In Soul !!!") Me.lbl_txt_Mensagem.Visible = False Me.lbl_txt_Mensagem2.Visible = False Me.lbl_txt_tel.Visible = False Me.lblAssunto.Visible = False Me.lblEmail.Visible = False Me.lblNome.Visible = False Me.lblTelefone.Visible = False Me.btnEnvair.Visible = False Me.txtAssunto.Visible = False Me.txtEmail.Visible = False Me.txtMensagem.Visible = False Me.txtNome.Visible = False Me.txtTelefone.Visible = False Me.img_contato_lat.Visible = False Catch exc As Exception MsgBox("Ocorreu um Erro ao enviar o Email ! " & exc.Message) Finally objEmail.Dispose() 'Response.Redirect("default.aspx") 'Redireciona para página Home End Try End Sub

Este é o código das palavras-chaves:

Me.txtNome.Text = "Digite seu Nome"

Me.txtNome.Attributes.Add("onFocus", "if (this.value == 'Digite seu Nome') this.value = '';")

Me.txtNome.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Nome';")

 

'-----------Palavra Chave Email-------------

Me.txtEmail.Text = "Digite seu Email"

Me.txtEmail.Attributes.Add("onFocus", "if (this.value == 'Digite seu Email') this.value = '';")

Me.txtEmail.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Email';")

 

'-----------Palavra Chave Assunto-------------

Me.txtAssunto.Text = "Digite o Assunto"

Me.txtAssunto.Attributes.Add("onFocus", "if (this.value == 'Digite o Assunto') this.value = '';")

Me.txtAssunto.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite o Assunto';")

'-----------Palavra Chave Telefone-------------

Me.txtTelefone.Text = "Digite seu Telefone"

Me.txtTelefone.Attributes.Add("onFocus", "if (this.value == 'Digite seu Telefone') this.value = '';")

Me.txtTelefone.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Telefone';") linenums:0'>Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) if page.IsPostBack then '-----------Palavra Chave Nome------------- Me.txtNome.Text = "Digite seu Nome" Me.txtNome.Attributes.Add("onFocus", "if (this.value == 'Digite seu Nome') this.value = '';") Me.txtNome.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Nome';") '-----------Palavra Chave Email------------- Me.txtEmail.Text = "Digite seu Email" Me.txtEmail.Attributes.Add("onFocus", "if (this.value == 'Digite seu Email') this.value = '';") Me.txtEmail.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Email';") '-----------Palavra Chave Assunto------------- Me.txtAssunto.Text = "Digite o Assunto" Me.txtAssunto.Attributes.Add("onFocus", "if (this.value == 'Digite o Assunto') this.value = '';") Me.txtAssunto.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite o Assunto';") '-----------Palavra Chave Telefone------------- Me.txtTelefone.Text = "Digite seu Telefone" Me.txtTelefone.Attributes.Add("onFocus", "if (this.value == 'Digite seu Telefone') this.value = '';") Me.txtTelefone.Attributes.Add("onBlur", "if (this.value == '') this.value = 'Digite seu Telefone';")

Até mais.........Ferla

[Ferla 0]

Alguém pode me ajudar???