Marcos-rj

não tenho certeza, mas acho que é porque o RS está vindo antes do SELECT. <input name="id" type="hidden" id="id" value="<%=rs("id")%>"></p> ... sql = "Select * From suptec Where pendencia = true ORDER BY data DESC" Set rs = bco.Execute(sql)

Qual é esta linha?

O que esta linha aqui faz? Tenta assim: <% '************************** '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&oacute;rio de Pend&ecirc;ncias de D&uacute;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&oacute;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

Tenta pegar nestes sites www.scriptbrasil.com.br www.icodigo.com.br www.scriptfacil.com.br www.wmonline.com.br

No menu configurações de website habilite a opção: Permissão de Escrever no Website, e mande salvar. Pronto!

você liberou a permissão para gravar no novo servidor?

putz, aqui está rodando certinho. carioca.marcos@gmail.com

Enviei, qualquer coisa posta ai. T+

Fiz as alterações que te passei e funcionou beleza. recebi todos os emails. ate os anexos. você deve ter feito algo errado. vou te passar por e-mails com as alterações.

beleza, então faz isso mesmo. na pagina onde tem o formulario de resposta do suporte como um campo oculto chamada "email" com o valor "<%=rs("email")%>" . tira o select da página de envio e coloca EnviarMail.To = VEmail Assim irá funcionar. Na pagina do formulario de resposta você não esta passando o email pelo formulario, por isso a variavel VEmail esta vazia, não adianta você colocar Vemail = Request.Form("email") e não passar nenhum valor.

sim, mas o script de envio também est nesta página. você ira usar esta session em outro lugar? caso contrario não tem necessidade. Priscila, em qual página de envio esta dondado este erro? em qual parte do processo

qual erro? colocando assim ele vai mandar p/ o e-mail digitado no formulário.

To tentando fazer este loop de outra maneira, usando FOR NEXT, mas se coloco o horario no formato"08:00" dá erro. so aceita se eu colocar "08". no exemplo abaixo funciona, mas se eu colocar a variavel horario no lugar do 08 dá erro.

Por que você não coloca assim EnviarMail.To = Vemail Que é a variavel que retorna o valor do campo e-mail!!

O duplicado está saindo assim: 08:00 - MARCOS FERNANDES 09:00 10:00 11:00 12:00 13:00 14:00 15:00 16:00 17:00 18:00 08:00 09:00 10:00 11:00 - JULIANA DOS SANTOS 12:00 13:00 14:00 15:00 16:00 17:00 18:00

De acordo com os codigos que você me passou a pessoa digita o código no formulario, o ideal seria a pessoa se logar, e na hora de enviar, o sistema puxar automaticamente do banco de dados o email de acordo com o login.

To precisando de ajuda neste loop. to fazendo uma agenda. ela abre os horarios de 08:00 as 18:00. preciso que quand tiver alguém agendado abra no horario, ate ai tudo bem. mas so está mostrando o 1º que esta agendado os outros ficam em branco. ate consegui fazer listar os outros, mas esta estava duplicando os horarios. tipo assim: 08:00 - MARCOS FERNANDES 09:00 10:00 11:00 - JULIANA DOS SANTOS 12:00 13:00 14:00 15:00 16:00 17:00 18:00 MAS NÃO está ABRINDO ASSIM. <table border="0" width="743"> <% horario = "08:00" while horario <= "18:05" horario = left(horario, 5) count = count+1 if coratual = "white" then coratual = "#cecece" else coratual = "white" end if %> <tr bgcolor="<%=coratual%>" onmouseover="this.style.background='#e9e9e9';window.status='<%'=rs("nome")%>';return true;" onmouseout="this.style.background='<%=coratual%>';window.status='';return true;"> <td>&nbsp;<b><font size="2"><%if not rs2("hora") = "" and rs2("hora") = horario then%> <%=horario%> - <%=rs2("paciente")&" - "&rs2("convenio")%><%else%><%=horario%><%end if%></font></b></td> </tr> <% horario = dateadd("n", 60,horario) wend rs2.movenext %> </table>

Priscila, naquela parte do suporte a pessoa se loga no sistema p/ poder pedir ajuda?

Sobre aquele ultimo problema tenta aumentar o Script timed out . Server.ScriptTimeout = 180 pode ser que funcione.

manda para carioca.marcos@gmail.com

Me passa que dou uma olhada.

Por que você não instala o cdonts na maquina e faz os testes. se rodar legal o problema é no servidor.

também acho, mas já coloquei varias coisas e não funciona!

Ok. está beleza. você tem certeza que tem o cdonts instalado no seu servidor? tenta com outro componente de e-mail.

Proscila, to meio sem tempo de te ajudar. Faz o seguinte, desabilite as consultas SQL e digite o email nos campos myMail.To . veja se o email será enviado corretamente. qualquer coisa me chama no MSN. T+