Prezados, bom dia.
sou novo no desenvolvimento em ASP. O antigo desenvolvedor sumiu e deixou uma bomba para eu resolver. Temo uma pagina na nossa intranet no qual a mesma e nosso serviço de chamados. Quando coloca todos os dados solicitados a mesma apresenta o seguinte erro:
Persits.MailSender.4 error '800a0004'
Connect has been reset by server.
/INTRANET/suporte/index.asp, line 88
Já estudei na internet as formas de resolver este problema, porém sem solução. Alguém no forum pode me ajudar neste erro? segue abaixo o código completo.
<%Set con =Server.CreateObject("ADODB.Connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=10.10.0.3;UID=microuni;PWD=microuni;DATABASE=intranet;Polling=true"
empresa=request.form("edtempresa")
departamento=request.form("edtdepartamento")
usuario=request.form("edtusuario")
categoria=request.form("edtcategoria")
motivo=request.form("edtmotivo")
descricao=request.form("edtdescricao")if empresa <>""and departamento <>""and usuario <>""and categoria <>""and motivo <>""and descricao <>""thenset prioridadeemail= con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='"&usuario&"'")
email=prioridadeemail("email")
prioridade=prioridadeemail("prioridade")
ramal=prioridadeemail("ramal")
sql="insert into tab_suporte(categoria,motivo,usuario,data,descricao,situacao,empresa,departamento,emailresp,prioridade,ramal) values ('"& categoria &"','"& motivo &"','"& usuario &"',getdate(),'"& descricao &"','Pendente','"& empresa &"','"& departamento &"', '"&email&"', '"& prioridade&"','"& ramal &"')"'response.write(sql)
con.execute(sql)
set cod=con.execute("select max(codigo) as codigo from tab_suporte")
codigo = cod("codigo")
total = codigo
set emailsql=con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='" &usuario& "'")
emailresp=emailsql("email")
prioridade=emailsql("prioridade")
ramal=emailsql("ramal")
sql="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data)))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data)))), 2) + '/' + convert(char(4), DATEPART(yyyy, data)) + '-' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data)))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data)))), 2) as data from tab_suporte where codigo='" & codigo & "'"
set data=con.execute(sql)
sqlfim="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data + '03:00')))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data + '03:00')))), 2) + '/' + convert(char(4), DATEPART(yyyy, data + '03:00')) + 'às ' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data + '03:00')))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data + '03:00')))), 2) + ' horas' as datafim from tab_suporte where codigo='" & codigo & "'"
set datafinal=con.execute(sqlfim)
body = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
body =body & "Número do Chamado...: " & codigo & chr(13)
body =body & "Data - Hora.........: " & data("data") & chr(13)
body =body & "Empresa.............: " & ucase(empresa) & chr(13)
body =body & "Departamento........: " & ucase(departamento) & chr(13)
body =body & "Usuário.............: " & ucase(usuario) & chr(13)
body =body & "e-Mail..............: " & emailresp & chr(13)
body =body & "Ramal...............: " & ramal & chr(13)
body =body & "Categoria...........: " & categoria & chr(13)
body =body & "Motivo..............: " & motivo & chr(13)
body =body & "Nível de Prioridade.: " & prioridade & chr(13) & chr(13)
body =body & "************************ DESCRIÇÃO DO CHAMADO **************************" & chr(13) & chr(13)
body =body & descricao & chr(13) & chr(13)
body =body & "**************************** OBSERVAÇÕES *******************************" & chr(13) & chr(13)
body =body & "O prazo máximo para o atendimento deste chamado é até o dia " & datafinal("datafim") & "." & chr(13) & chr(13)
body =body & "************************************************************************"
body2 = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
body2 =body2 & "Número do Chamado...: " & codigo & chr(13)
body2 =body2 & "Data - Hora.........: " & data("data") & chr(13)
body2 =body2 & "Empresa.............: " & ucase(empresa) & chr(13)
body2 =body2 & "Departamento........: " & ucase(departamento) & chr(13)
body2 =body2 & "Usuário.............: " & ucase(usuario) & chr(13)
body2 =body2 & "Categoria...........: " & categoria & chr(13)
body2 =body2 & "Motivo..............: " & motivo & chr(13) & chr(13)
body2 =body2 & "************************ DESCRIÇÃO DO CHAMADO **************************" & chr(13) & chr(13)
body2 =body2 & descricao & chr(13) & chr(13)
body2 =body2 & "**************************** OBSERVAÇÕES *******************************" & chr(13) & chr(13)
body2 =body2 & "O prazo máximo de atendimento deste chamado é de 03 (três) horas, portanto, se até o dia " & datafinal("datafim") & " você ainda não tiver obtido um retorno de nossa equipe, por favor entre em contato através do ramal 247 e informe o código " & codigo & "." & chr(13) & chr(13)
body2 =body2 & "************************************************************************"
'response.write(body)'response.write(body2)
Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "email-ssl.com.br"
objmail.From = "suporte@centerlab.com.br"
objmail.FromName = "Equipe de Suporte GENOMA"
objmail.AddAddress "suporte@centerlab.com.br"
objmail.Subject = "Equipe de Suporte GENOMA"
objmail.IsHTML = True
objmail.Body = body
objmail.Send
if Err.Number <> 0 then
Response.write "Error: " & Err.description
end if
Set objmail2 = Server.CreateObject("Persits.MailSender")
objmail2.Host = "email-ssl.com.br"
objmail2.From = "suporte@centerlab.com.br"
objmail2.FromName = "Equipe de Suporte GENOMA"
objmail2.AddAddress "suporte@centerlab.com.br"
objmail2.Subject = "Equipe de Suporte GENOMA"
objmail2.IsHTML = True
objmail2.Body = body2
objmail2.Send
if Err.Number <> 0 then
Response.write "Error: " & Err.description
end if
msg = codigo
session("usuario")=""
empresa=""
departamento=""
usuario=""
categoria=""
motivo=""
descricao=""
end if
%>
<html><head><metahttp-equiv="Content-Language"content="pt-br"><metahttp-equiv="Content-Type"content="text/html; charset=iso-8859-1"><metaname="GENERATOR"content="Microsoft FrontPage 6.0"><metaname="ProgId"content="FrontPage.Editor.Document"><title>:: Central de Suporte GENOMA ::</title><scriptlanguage="javascript">function verificaeenvia(){if(document.formulario.edtempresa.value==''|| document.formulario.edtdepartamento.value==''|| document.formulario.edtusuario.value==''|| document.formulario.edtcategoria.value==''|| document.formulario.edtmotivo.value==''|| document.formulario.edtdescricao.value==''){
alert('É necessário o preenchimento de todos os campos.');}else{
document.formulario.submit();}}</script></head><bodyleftmargin="0"topmargin="0"marginwidth="0"marginheight="0"rightmargin="0"bottommargin="0"><tableborder="0"width="100%"cellspacing="0"cellpadding="0"height="100%"><tr><tdvalign="top"rowspan="2"><imgsrc="index.1suporte.gif"width="64"height="473"border="0"></td><tdwidth="51%"height="44"bgcolor="#F5F5F5"><palign="right"><b><fontface="Arial"color="#808080">Solicitação de
Suporte</font><fontface="Arial"size="3"></font></b></td><tdwidth="42%"bgcolor="#2E5E92"height="183"rowspan="2"valign="middle"align="right"><palign="center"><fontcolor="#FFFFFF"><fontface="Verdana"size="1"><strong>Departamento
de Informática</strong><br><em>Cada vez mais agilizando o<br>
atendimento aos seus usuários.</em></font></font></p><palign="center"></p><palign="center"></p><palign="center"></p><palign="center"><fontsize="1"color="#FFFFFF"face="Tahoma"><b>* O prazo máximo para retorno é de<br>
até 3 horas. Caso não seja atendido<br>
dentro deste período, por favor<br>
comunique no ramal 247.</b></font></p></td></tr><tr><tdwidth="51%"height="139"valign="top"><formmethod="POST"action="index.asp"name="formulario"><tableborder="0"width="96%"cellspacing="0"cellpadding="0"height="351"><tr><tdheight="6"align="left"valign="middle"></td><tdheight="6"></td></tr><tr><tdwidth="23%"height="12"align="left"valign="middle"><fontface="Verdana"size="1"color="#446B93"><strong> Empresa:</strong></font></td><tdheight="12"valign="middle"><fontface="Arial"size="1"color="#446B93"><selectname="edtempresa"size="1"id="edtempresa"style="background-color:#F5F5F5;font-family: Arial;font-size:8 pt;border:1 solid #C0C0C0"onChange="document.formulario.edtdepartamento.value=''; document.formulario.edtusuario.value=''; document.formulario.submit();">
<option value="<%=empresa%>" selected><%=empresa%></option><%
sql="select * from tab_suporte_empresas where empresa <> '"& empresa &"'"set valorescmb=Con.execute(sql)ifnot valorescmb.eof then
valorescmb.movefirst
whilenot valorescmb.eof%>
<option value="<%=valorescmb("empresa")%>"><%=valorescmb("empresa")%></option><% valorescmb.movenext
wend
endif
%>
</select><%if empresa=""then
response.write " Selecione a sua empresa."endif%>
</font></td></tr><tr>
<td width="23%" height="30" align="l
Ola caros amigos.
Estou com uma dúvida aqui que embora nao tenho achado ainda uma resposta, acredito que haja.
Estou estudando a tão sonhada linguagem de programação asp.net core mvc. Linguagem essa que demorei 5 anos pra iniciar os estudos rsrs.
Mas estou agarrado em uma situação.
Estou usando como base de dados nos meus estudos um banco Oracle. Que já tem algumas informações nele. Utilizei o SCAFFOLD para criar as classes e o contexto baseado no banco e tabelas existentes.
Porem agora na fase das consultas, estou perdido em como utilizar o IN que eu utilizo no oracle; no LINQ.
Ex:
SELECT CODPROD,DESCRICAO
FROM PRODUTO
WHERE CODPROD IN(1,2,3,4,5,6)
Como eu utilizo esse filtro com uma restrição de códigos de produtos? no caso o where codprod in(1,2,3,4,5,6) ?.
Desde já obrigado pela ajuda.
Boa noite pessoal,
Tenho o seguinte código em .Net que faz a comparação de uma senha que foi criptografada e salva no banco com a senha comum que o usuário conhece. O algoritmo que desenvolvi foi esse da image.png porem preciso converter essa verificação para JavaScript pela seguinte necessidade, será uma aplicação em electron e ela poderá funcionar offline então não terei como mandar a verificação para o servidor. Existe alguma possibilidade? Desde já agradeço.
Olá, amigos.
Por favor, me ajude com a seguintes perguntas.
Qual a complexidade de um projeto desse?
Qual o preçp de um projeto desse tipo?
Quero contratar algum profissional para criar um site que tenha as seguintes funcionabilidades:
1- Cadastro de usuário;
2- Login e senha;
3- O site seria muito parecido com o www.qconcursos.com, o usuário resolveria questões online.
Contudo, haveria a possibilidade de criar salas tipo aqueles bate-papo da UOL.
Então, o usuário criaria salas de estudos, em que , resolveria questões e conseguiria se comunicar por chat com usuários que estejam na mesma sala.
Preciso de ajuda com o serviço de url de suporte ao vivo. Quando recebo um url de Umuly.com no Postman, outras pessoas não devem ter permissão para bater papo usando esse url. Supondo que 10.000 pessoas tenham um bate-papo ao vivo, o serviço deve criar 10.000 novos urls. Qual é a razão por trás disso? Como o serviço gera novos urls para cada um? (Em linguagem .NET Core)
Olá, estou desenvolvendo um sistema em asp.net Framework MVC, usando o banco de dados Postgresql. Quando 2 usuários diferentes usam o sistema acontece conflito de informações, por exemplo, no cadastro de clientes, preciso vincular uma pessoa a um determinado cliente, caso 2 usuários estiverem usando, e os 2 fizerem essa ação de vincular pessoas a um cliente, no 2º usuário vai aparecer a pessoa que o 1º usuário vinculou. É como se o sistema estivesse usando uma única Lista e os 2 usuários estivessem compartilhando essa lista.
As variáveis de conexão não estão estáticas, toda vez que alguém entrar no sistema, vai ser criado uma nova instancia de conexão.
Alguém sabe como resolver esse conflito de informação entre usuários?
Prezados, bom dia.
sou novo no desenvolvimento em ASP. O antigo desenvolvedor sumiu e deixou uma bomba para eu resolver. Temo uma pagina na nossa intranet no qual a mesma e nosso serviço de chamados. Quando coloca todos os dados solicitados a mesma apresenta o seguinte erro:
Persits.MailSender.4 error '800a0004'
Connect has been reset by server.
/INTRANET/suporte/index.asp, line 88
Já estudei na internet as formas de resolver este problema, porém sem solução. Alguém no forum pode me ajudar neste erro? segue abaixo o código completo.
Compartilhar este post
Link para o post
Compartilhar em outros sites