Codigo...

Pessoal analisem meu codigo . Será q funciona??

<%'recuperando variaveis do formularionome=trim(request("txt_nome"))email=trim(request("txt_email"))assunto=trim(request("txt_assunto"))mensagem=trim(request("txt_mensagem"))statu=truemsn="t1="'começando a verificação do formularioif Len(nome)<3 then statu=false msn="t1=Preencha o campo nome com Nome e Sobrenome"end ifif Len(email)<10 then statu=false msn=msn&"&t2=O campo e-mail tem que ter mais que 10 caracteres"end ifif InStr(email, "@") <1 or InStr(email, ".com") <1 then statu=false msn=msn&"&t2=Digite um e-mail valido"end if if Len(assunto)<15 then statu=false msn=msn&"&t3=O campo assunto tem que ter mais que 15 caracteres"end ifif Len(mensagem)<50 then statu=false msn=msn&"&t4=Sua mensagem tem que ter mais que 65 caracteres"end ifif not statu then response.Redirect("contato.asp?"&msn)else'Enviar e-mail modo aspmail.... Set objmail = Server.CreateObject("SMTPsvg.Mailer") objmail.FromName = nome 'variavel que recuperei nome do form objmail.FromAddress = email objmail.RemoteHost = "smtp.dominio.com.br" objmail.AddRecipient "Renan Azevedo", "renanazevedo@dominio.com.br" objmail.Subject = assunto objmail.BodyText = mensagem if objmail.SendMail then response.Redirect("contato.asp?id=2") else response.Redirect("contato.asp?id=3") end ifend if%>

E ae pessoal meu codigo esta certo, vai rodar sem problema ou não???