bloco try catch

Question

Olá Jovens,

 

Estou tentando criar uma classe híbrida para envio de emails. Mas gostaria de saber se o ASP aceita bloco de try-catch, ou eu estou fazendo da maneira errada, pois está dando erro na linha "end try" onde a mensagem de erro é que era esperada uma instrução "end function".

 

Alias, gostaria de saber onde eu poderia encontrar a refencia completa do ASP aqui no site da msdn, to procurando, mas nao acho.

 

Grato

 

 

Code Snippet

class bmMailer

'atributos lalala

'gets e sets lalala

 

public function send ()

Try

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.ContentType = tipoConteudo

Mailer.FromName = nomeDe

Mailer.FromAddress = emailDe

Mailer.RemoteHost = servidorSMTP

Mailer.AddRecipient nomePara, emailPara

Mailer.Subject = assunto

Mailer.BodyText = corpo

If Mailer.SendMail Then

send = true

Else

send = false

End If

Set Mailer = Nothing

catch

response.write "codigo em cdonts"

send = false

finally

error = "nao foi possivel o envio, pois este servidor nao possui um objeto de envio de email"

send = false

end Try

end function

end class

 

 

Answer 1

Hélio,

 

até onde sei, não existe try-catch no VBScript. Sobre material de referência, veja:

 

http://msdn2.microsoft.com/en-us/library/0ad0dkea(VS.85).aspx

http://msdn2.microsoft.com/en-us/library/d1wf56tt(VS.85).aspx

http://www.devguru.com/technologies/vbscript/home.asp

http://www.devguru.com/Technologies/vbscript/quickref/vbscript_intro.html

http://www.w3schools.com/vbscript/vbscript_ref_functions.asp

 

---

Ricardo Oneda
http://oneda.mvps.org/blog

Answer 2

<%#  Option Explicit

     Dim objFoo

     ' Enable error handling
     On Error Resume Next

     Set objFoo = Script.CreateObject("Foo")
     If Err.number <> 0 Then
          ' Object couldn't be created

          ' Log error
          Log.Write Err.Description, apgSeverityError, Err.Number
     Else
          ' Use objFoo somehow
          ...
     End If

     ' Reset error handling
     On Error Goto 0
#%>