
PRISCILA STOCHINI
Membros-
Total de itens
270 -
Registro em
-
Última visita
Tudo que PRISCILA STOCHINI postou
-
Erro Microsoft Vbscript Compilation Error '800a040e'
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
voU TESTAR -
Erro Microsoft Vbscript Compilation Error '800a040e'
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
<input name="id" type="hidden" id="id" value="<%=rs("id")%>"></p> -
Erro Microsoft Vbscript Compilation Error '800a040e'
pergunta respondeu ao PRISCILA STOCHINI de PRISCILA STOCHINI em ASP
<form><p> <input name="id" type="hidden" id="id" value="<%=rs("id")%>"></p> <% '************************** 'RECEBENDO AS INFORMAÇÔES '************************** vdata = request.querystring ("data") If data <> "" Then sql = sql & " where data='"&vdata&"'" End If vcodigo = request.querystring ("codigo") If vcodigo <> "" Then sql = sql & " where codigo='"&vcodigo&"'" End If vusuario = request.querystring ("usuario") If vusuario <> "" Then sql = sql & " where usuario='"&vusuario&"'" End If vddd = request.querystring ("ddd") If vddd <> "" Then sql = sql & " where ddd='" & vddd &"'" End If vtipo = request.querystring ("tipo") If vtipo <> "" Then sql = sql & " where tipo='" & vtipo &" '" End If vsoftware = request.querystring ("software") If vsoftware <> "" Then sql = sql & " where software='" & vsoftware&"'" End If sql = "Select * From suptec Where pendencia = true ORDER BY data DESC" Set rs = bco.Execute(sql) if rs.eof then Response.Write("<p align=""center"">Não há pendências.</p>") else count = 0 Do While Not rs.eof %> <table width="513" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC"> <tr> <td colspan="10"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td> </tr> <tr> <td width="28"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td> <td width="44"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código</span></div></td> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td> <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td> <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td> <td width="58"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td> <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Assunto</span></div></td> <td width="44"><span class="style7">Arquivo</span></td> <td width="88"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Resposta</span></div></td> </tr> <tr> <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?data=<%=rs("data")%>"><%=rs("data")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?codigo=<%=rs("codigo")%>"><%=rs("codigo")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?usuario=<%=rs("usuario")%>"><%=rs("usuario")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?ddd=<%=rs("ddd")%>"><%=rs("ddd")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?tipo=<%=rs("tipo")%>"><%=rs("tipo")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?software=<%=rs("software")%>"><%=rs("software")%></a></span></div> <div align="center"></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("resumo")%></span></div></td> <td width="44" nowrap="nowrap"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("arquivo")%></span></td> <td nowrap="nowrap"><div align="center"> <div align="center"><a href="resposta_suporte.asp?id=<%=rs("id")%>" class="link02 style9">[Responder]</a></div> </div></td> </tr> <% count = count + 1 rs.movenext Loop end if rs.close Set rs=nothing bco.close Set rs=nothing %> O que pode ser!!??? -
Pessoal, estou com esse erro... Já tirei e coloquei tudo que era possivel no código e não consigo fazer. é um relatorio com uma especia de "filtros"... Quem pode me auxiliar.??? <% '************************** 'RECEBENDO AS INFORMAÇÔES '************************** vdata = request.querystring ("data") If data <> "" Then sql = sql & " where data='"&vdata&"'" End If vcodigo = request.querystring ("codigo") If vcodigo <> "" Then sql = sql & " where codigo='"&vcodigo&"'" End If vusuario = request.querystring ("usuario") If vusuario <> "" Then sql = sql & " where usuario='"&vusuario&"'" End If vddd = request.querystring ("ddd") If vddd <> "" Then sql = sql & " where ddd='" & vddd &"'" End If vtipo = request.querystring ("tipo") If vtipo <> "" Then sql = sql & " where tipo='" & vtipo &" '" End If vsoftware = request.querystring ("software") If vsoftware <> "" Then sql = sql & " where software='" & vsoftware&"'" End If sql = "Select * From suptec Where pendencia = true ORDER BY data DESC" Set rs = bco.Execute(sql) if rs.eof then Response.Write("<p align=""center"">Não há pendências.</p>") else count = 0 Do While Not rs.eof If count Mod 2 = 0 then %> <table width="513" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC"> <tr> <td colspan="10"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td> </tr> <tr> <td width="28"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td> <td width="44"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código</span></div></td> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td> <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td> <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td> <td width="58"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td> <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Assunto</span></div></td> <td width="44"><span class="style7">Arquivo</span></td> <td width="88"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Resposta</span></div></td> </tr> <%else%> <tr> <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?data=<%=rs("data")%>"><%=rs("data")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?codigo=<%=rs("codigo")%>"><%=rs("codigo")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?usuario=<%=rs("usuario")%>"><%=rs("usuario")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?ddd=<%=rs("ddd")%>"><%=rs("ddd")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?tipo=<%=rs("tipo")%>"><%=rs("tipo")%></a></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?software=<%=rs("software")%>"><%=rs("software")%></a></span></div> <div align="center"></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("resumo")%></span></div></td> <td width="44" nowrap="nowrap"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("arquivo")%></span></td> <td nowrap="nowrap"><div align="center"> <div align="center"><a href="resposta_suporte.asp?id=<%=rs("id")%>" class="link02 style9">[Responder]</a></div> </div></td> </tr> <% count = count + 1 rs.movenext Loop End If rs.close Set rs=nothing bco.close Set rs=nothing %>
-
Pessoal estou con o seguinte problema... Tenho um código que anexa arquivos, mas se os arquivos forem muito grandes tipo até 5Mb e acima 1 Mb, não envia e da esse erro: Bom ai falar pra eu colocar Server.ScriptTimeout, coloquei assim: e mesmo assim dá erro. Pode ser alguma coisa relacionada ao nosso provedor/servidor???
-
Pronto mandei.. Se possivel, faça de uma forma que eu possa publicar sem ter que mexer...
-
você pode me falar o que você mudou?? Pra eu tentar entender!!! quais foram as páginas que você mexeu!! Meu não foi ainda... Desisto... Oh vou te passar os arquivos mais novos. Faça só essa mudança que você fez. Pra ver se é algo aqui... Qual seu email mesmo??
-
valeu!! Me manda os arquivos...
-
Putz, não vai... FORMULARIO que o tecnico apenas atualiza... [...] <td class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; font-weight: bold">Email</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><input type="hidden" name="email" value="<%=rs("email")%>"/><%=rs("email")%></span><img src="obrigatorio.gif" "18" height="18" align="absmiddle"/></td> <td><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; font-weight: bold">DDD</div></td> [...] Codigo que envia o email ... 'selecionando o registro cadastrado para preparar o envio de email sql = "Select * from suptec where codigo = '"&Vcodigo&"'" 'executando recordset para pesquisar se os dados foram cadastrados Set rs = bco.Execute(sql) 'verificando se houve erro, se não houve envia por email 'if rs.eof then 'Response.Write("Registro não encontrado. Erro na gravação") 'else 'definimos o endereço de email que irá enviar o email Vmail = "suporteweb@multiplus.com" 'criamos o obejto do cdonts Set EnviarMail = Server.CreateObject("CDONTS.NewMail") 'recebe o valor do recordset com o email cadastrado EnviarMail.To = Vemail 'recebe o email de quem envia da variavel Vemail EnviarMail.From = Vmail 'Assunto do email
-
Bom, vou usar o Session em outra página... Tenho a que envia para o banco e a confirmação do email....ai quando o tecnico responde ele também pode anexar e é nessa página que o tecnico responde é que não está enviando o email. Se no TO do código eu digitar um email ele vai..mas se eu colocar todas as formas que eu sei de de puxar o valor e não estou conseguindo.. Totalmente sem ideia do que fazer...já fiz de tudo..
-
Se eu for colocar Session("email") eu tenho que criar Session("email") = Request.Form("email") na página que envia os daods para o banco certo???
-
O meu servidor está lerdo, ou não tá indo o email... Realmente, não está pegando o valor do email...
-
Acho que foi!!! Tina esqueci do mudar o outro email..
-
Sim, mas o problema é que a mesma pessoa pode enviar varias duvidas...o que eu preciso é que pegue o email digitado no formulario...nesse caso o que está aparecendo no campo email. ele está no BD, mas como puxo esse dado para enviar o email... porque se no EnviarMail.To "teste@cype.com.br" --- vai direitinho; Mas se coloco a variavel rs("email"), para puxar o valor não envia!!!
-
Sim, no caso é um sisteminha aqui da empresa que tipo faq, só que o usuario pode mandar a duvida por email se não tiver no FAQ ainda!! Me ajuda com esse negocio do email...
-
Bom, pessoal agora uma outra coisa.. tenho o seguinte: Preciso pegar o valor do email que está no banco em tal codigo para enviar um email. já tentei session, e rs...e não estou conseguindo o que mais posso fazer..
-
Bom, parou de funcionar um parte, a que envia os anexos!! Mas então pode ser no servidor o problema.. O Marcos está verificando o código para mim, mas ele saiu e eu estou precisando disso urgente..
-
Bom, pessoal utilizo CDONTS para trabalhar com envio de emails. Meu servidor até então estava tudo certo. Semana passada deu algum problema lá com os emails normais da empresa e agora o meu sisteminha resolveu não enviar mais emails. Fiquei na dúvida se era meu código ou meu servidor??? Nosso colega Marcos-rj testou e disse está tudo certo. Alguém mais poderia testar em outro servidor para eu ter certeza que é o meu??? o se é o meu código... O Marcos também cogitou a possibilidade de instalar o CDONTS, mas não sabia que era necessario instalar, sempre trabalhei assim, sem estar instalado.
-
Pronto...enviei...
-
Qual email posso te passar um rar como todos os códigos dessa parte do sistema. acho que descobrir qual é o problema, na hora de chamar os valores de codigo e emai pra qual será enviado o email.. Alguma coisa do tipo... Você pode estar revisando e me mostrando onde está errado e o que preciso fazer..??? Entendi o erro, só não sei muito bem cmo resolver...
-
Mas etava tudo funcionando direitnho, depois que o servidor da empresa deu pau com os emails e o site 5ª e 6ª da semana passada, os emails não estão chegando... posso te passar o código para você verificar se são eles??/
-
Bom pessoal, fiz vários teste aqui e o que puder perceber é...não está enviando o email. Já vi e revi o código 300 vezes e não sei o que pode estar errado, por favor quem tiver disponibilidade pra reviza-los pra mim ficarei grata... Uma dúvida me surgiu...esse dias tivemos problemas com os emails aqui da empresa. O responsavél pelo disparo desse email.tem enviado muito muito muito ...e todos podemos dizer que são spans... Existe a possibilidade de terem bloqueado algum coisa com relação a alguns emails...ten chego muito pouco por tanto que chegava!!
-
Ai que está, está chegando um dos outros emails... com o mesmo componete...e estáva chegando os emails.. por isso a minha impaciencia..
-
Bom, já tentei isso e também não foi.. estou achando que o problema é do nosso servidor.... Vou tentar mais um pouco se até as 18:00 eu não conseguir, mando uma MP pra você com meus códigos pra você ver pra mim depois quando puder.. preciso finalizar esse negodio até sexta...
-
O problema definitivamente é ao enviar o email, porque o arquivo está sendo enviado ao servidor...