COEM ADATTO LO SCRIPT A CDOSYS?

codice:
Dim objCDO
	Set objCDO = Server.CreateObject("CDOSYS.NewMail")
	objCDO.From = Request.Form("ART_EMAIL")
	objCDO.To = myEmail
	objCDO.CC = Request.Form("ART_EMAIL")
	objCDO.Subject = "New article has been submited"
	objCDO.Body = "A new article has been submited and needs to be approved." & vbnewline & "Name: " & Request.Form("ART_NAME") & vbnewline & "URL: " & Request.Form("ART_URL") & vbnewline & "Description: " & Request.Form("ART_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("ART_EMAIL")
	objCDO.Send()
	Set objCDO = Nothing

    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>