%@language = "vbscript"%> <% dim a, erro data_atual = now erro = request("erro") select case erro case 1 msg = "Por favor coloque o seu nome." case 2 msg = "Por favor coloque a sua cidade." case 3 msg = "Por favor coloque a sua empresa." case 4 msg = "Por favor coloque o seu telefone." case 5 msg = "Por favor coloque o seu e-mail." case 6 msg = "Por favor escreva sua mensagem." end select %>
|
|||||||