<% Response.Expires=-1000 %> <%=Application("SOS_titulo_janela")%> <% If Request.Form("usuario") <> "" And Request.Form("assunto") <> "" And Request.Form("atendente") <> "" Then usuario = Trim(Request.Form("usuario")) atendente = Trim(Request.Form("atendente")) assunto = Trim(Request.Form("assunto")) email = Trim(Request.Form("email")) 'Chama rotina para adicionar o usuario na lista adiciona_usuario usuario, atendente, email, assunto Response.Cookies("SOS")("usuario") = usuario Response.Cookies("SOS")("email") = email Response.Cookies("SOS").expires=now+365 %> <% 'Elimina variaveis da memoria Set usuario = Nothing Set atendente = Nothing Set assunto = Nothing Set email = Nothing Else %>
     <%=Application("SOS_titulo")%>

...
ATENDIMENTO ONLINE
Solicite atendimento a um de nossos atendentes

   Seu nome
   ">
   Email para contato
   ">
   Assunto
  
   Departamento
  
  

DEIXAR UMA MENSAGEM
Clique aqui para deixar uma mensagem
Suporte Online - Inner Club
<% End If If Request("msg") <> "" Then %> <% End IF %>