Hvilken komponent ???

Hejza alle sammen,

Jeg har et stk. kode som ser sådan ud:

<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
  Dim objMail
  set objMail = server.createobject(\"SMTPsvg.Mailer\")
  objMail.FromName = sFromEmail
  objMail.FromAddress = sFromEmail
  objMail.RemoteHost = sEmailServer
  objMail.AddRecipient sToEmail, sToEmail
  objMail.Subject = sSubject
  objMail.BodyText = sText
  if objMail.SendMail then
    SendEmail = \"\"
  else
      \' Message send failure
      SendEmail = objMail.Response
  end if
  Set objMail = nothing
End Function
%>

Hvilken komponent skal jeg bruge for at andvende scriptet ???