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 %>

Rispondi quotando