<% '##### SUPORTE 'Sub SuporteASP() If Request("acaba") = "sim" Then Session("adm_descprod") = "" Session("adm_email") = "" End If Select Case strAcao Case "email" strTextoHtml = strTextoHtml & " Pedido de suporte via e-mail

---

" strTextoHtml = strTextoHtml & "

Preencha seu pedido de suporte para Equipe VirtuaStore:
" If Request("sucesso") = "sim" Then strTextoHtml = strTextoHtml & "

SEU PEDIDO DE SUPORTE ENVIADO COM SUCESSO!
EM BREVE A EQUIPE VIRTUASTORE ESTARÁ RESPONDENDO SEU CHAMADO.


" Else strTextoHtml = strTextoHtml & "

" End If varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

Data:	" & Date & "
Seu nome:	" If Request("erro1") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Sua dúvida:	" & Request("msg") & "" If Request("erro2") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Urgente?	SimNão

" strTextoHtml = strTextoHtml & "

---

Voltar para Página Inicial" Case "envia" nome = Request("nome") msg = Request("duvida") urgente = Request("urgente") If nome = "" Or msg = "" Then If nome = "" Then erro1 = "sim" End If If msg = "" Then erro2 = "sim" End If Response.Redirect "administrador.asp?link=suporte&acao=email&erro1=" & erro1 & "&erro2=" & erro2 & "&nome=" & nome & "&msg=" & msg Else strMensagem = "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

---

" strMensagem = strMensagem & " Pedido de Suporte via Administrador

" strMensagem = strMensagem & " " strMensagem = strMensagem & "

Dados do Cliente e do E-mail:" strMensagem = strMensagem & " " strMensagem = strMensagem & " Nome: " & nome strMensagem = strMensagem & " Loja: " & nomeloja & "(" & url & ")" strMensagem = strMensagem & " Contato: " & Application("nomecontato") & " - Fone: " & Application("fone11") strMensagem = strMensagem & " Mensagem" strMensagem = strMensagem & " " strMensagem = strMensagem & " " & msg strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

" If urgente = "1" Then nourg = 2 Else nourg = 1 End If EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), email, "", "suporte@virtuastore.com.br", "VirtuaWorks - Pedido de Suporte VS 1.0", strMensagem Response.Redirect "administrador.asp?link=suporte&acao=email&sucesso=sim" End If Case "erro" strTextoHtml = strTextoHtml & " Reportar erros no Sistema

---

" strTextoHtml = strTextoHtml & "

Preencha descrevendo o erro para a equipe de suporte VirtuaStore:
" If Request("sucesso") = "sim" Then strTextoHtml = strTextoHtml & "

SUA NOTIFICAÇÃO DE ERRO FOI ENVIADA COM SUCESSO!

" Else strTextoHtml = strTextoHtml & "

" End If varimg = " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

Data:	" & Date & "
Descreva o erro:	" & Request("msg") & "" If Request("erro1") = "sim" Then strTextoHtml = strTextoHtml & varimg End If strTextoHtml = strTextoHtml & "
Já ocorreu outra vez?	SimNão

" strTextoHtml = strTextoHtml & "

---

Voltar para Página Inicial" Case "enviaerro" msg = Request("erro") outra = Request("outra") If msg = "" Then Response.Redirect "administrador.asp?link=suporte&acao=erro&erro1=sim" Else strMensagem = "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

---

" strMensagem = strMensagem & " Reporte de Erro no Sistema VS 1.0

" strMensagem = strMensagem & " " strMensagem = strMensagem & "

Dados do Cliente e do E-mail:" strMensagem = strMensagem & " " strMensagem = strMensagem & " Nome: " & nome strMensagem = strMensagem & " Loja: " & nomeloja & "(" & url & ")" strMensagem = strMensagem & " Contato: " & Application("nomecontato") & " - Fone: " & Application("fone11") strMensagem = strMensagem & " Erro:" strMensagem = strMensagem & " " strMensagem = strMensagem & " " & msg strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

" EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), email, "", "suporte@virtuastore.com.br", "VirtuaWorks - Reporte de Erro", strMensagem Response.Redirect "administrador.asp?link=suporte&acao=erro&sucesso=sim" End If End Select 'End Sub %>