AlexCT Postado Outubro 8, 2004 Denunciar Share Postado Outubro 8, 2004 Tenho duas duvidas, sobre os termos que estão em negrito e seu significado on error resume next mensasp.SendMail mensagem_erro = "" if err <> 0 Then mensagem_erro = "Problemas ao enviar, por favor tente novamente, erro:" & Err.description Else mensagem = "<B>"&amigo&"</B>, a indicação para o e-mail <B>"&email&"</B>, foi enviada com Sucesso!" end if mensasp = Nothing on error goto 0--------------------------------------- Err.Clear On Error Resume Next Set objASPMail = Server.CreateObject("SMTPsvg.Mailer") If Err.Number <> 0 Then confirma = TRUE 'não instalado Else confirma = FALSE 'instalado End If Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cyberalexxx Postado Outubro 8, 2004 Denunciar Share Postado Outubro 8, 2004 quando você usa on error resume next caso seja encontrado um erro no script ele ignora e continua a execução do scriptQuanto ao goto nunca usei em ASP só em Basic em 1900 e bolinha, servia para deslocar a execução do script para determinada area. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DackAle Postado Outubro 8, 2004 Denunciar Share Postado Outubro 8, 2004 on error resume next seria algo assim"se der algum erro continue a aplicação"imagine que você fez um sisteminha e errou na digitação de alguma coisa, dai ele vai gerar erro, mas se você puser essa linha ele tipo vai ignorar o erro.. =)a segunda linha em negrito não sei pra que significa deve ser alguma coisa interna do on error...Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 AlexCT Postado Outubro 8, 2004 Autor Denunciar Share Postado Outubro 8, 2004 verdade basic usa isso e pascal tb , parce que é para rodar a pagina denovo..só parece Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cyberalexxx Postado Outubro 8, 2004 Denunciar Share Postado Outubro 8, 2004 verdade basic usa isso e pascal tb , parce que é para rodar a pagina denovo..só parece lembra que em basic as linhas eram numeradastipo:10 clsai você dava um goto 10 ele voltava pra linha 10 (minha primeira linguagem aos 12 anos que saudades ) Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
AlexCT
Tenho duas duvidas, sobre os termos que estão em negrito e seu significado
on error resume next
mensasp.SendMail
mensagem_erro = ""
if err <> 0 Then
mensagem_erro = "Problemas ao enviar, por favor tente novamente, erro:" & Err.description
Else
mensagem = "<B>"&amigo&"</B>, a indicação para o e-mail <B>"&email&"</B>, foi enviada com Sucesso!"
end if
mensasp = Nothing
on error goto 0
---------------------------------------
Err.Clear
On Error Resume Next
Set objASPMail = Server.CreateObject("SMTPsvg.Mailer")
If Err.Number <> 0 Then
confirma = TRUE 'não instalado
Else
confirma = FALSE 'instalado
End If
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.