da cdont a cdosys

[fazius]

ho questo codice per inviare i commenti da un sito di imagini con commenti (Simple online photo ) che usa il componente cdont c'è qualcuno che se si può lo trasformi in cdosys? io ci ho provato ma non riesco

if cSendEmailOnCommentAdded then
'lets send an email using CDONTS (be sure you have installed it in your server)
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = cAdminEmail
objCDO.From = cAdminEmail
objCDO.Subject = "Simple online photo catalogue " & Version & " comment"
objCDO.Body = "Author: " & author & vbcrlf & _
"Email: " & email & vbcrlf & _
"Comments: " & text & vbcrlf & _
"Picture: " & vbcrlf & picturelink & _
vbcrlf & "--" & vbcrlf & cPageTitle
objCDO.Send
Set objCDO = Nothing
end if

ciao

[Roby_72]

vediamo come ci hai provato.

Roby

[fazius]

in realta ho cambiato Server.CreateObject("CDONTS.NewMail") con
CreateObject("CDO.Configuration") e ovviamente non va la verità e che non sono capace di farlo da solo guardando l'esempio di invio con cdosys perchè nello script gallery prende i dati del messaggio e nello stesso tempo scrive sul file xml e mi perdo scusa ciao

[fazius]

si è notato che non sono capace nessuno mi puo aiutare lo stesso ? grazie comunque

[Roby_72]

Non basta ovviamente cambiare il nome dell'oggetto da usare...
Ecco le differenze:
http://www.weppos.com/asp/script/categoria_email.asp

Roby

[fazius]

ti ringrazio avevo gia guardato ma non riesco a capire se dovessi fare una cosa nuova con l'esempio riesco a farlo funzionare ma nel caso di cui sopra non so come fare a richiamare i dati e fargli eseguire tutte le operazioni ti ringrazio lo stesso ciao

[Roby140569]

Dim mail
Set mail = CreateObject("CDO.Message")
mail.To = cAdminEmail
mail.From = cAdminEmail
mail.Subject = "Simple online photo catalogue " & Version & " comment"
mail.HTMLBody = "Author: " + author + "
Email: " + email + "
Comments: " + text + "
Picture: 
" + picturelink + "
--" + cPageTitle
mail.Send()
Set mail = Nothing

[fazius]

come da copione ho pintato su un disgusto ora rimane pagina bianca, non mi scrive a video nessun messaggio d'errore allego la parte che ho modificato è un po lunga ....

'Do whatever you want then a visitor write a comment (send and email to the admin, for example)
sub OnCommentAdded(author,email,text,picturelink)
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configura tion/smtpserver") = "smtp.aruba.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configura tion/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configura tion/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configura tion/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "cAdminEmail" ' Mittente
objMail.To = "cAdminEmail" ' Destinatario
objMail.Subject = "Simple online photo catalogue " & Version & " comment" ' Oggetto
objMail.HTMLBody = "Author: " + author + "
Email: " + email + "
Comments: " + text + "
Picture:
" + picturelink + "
--" + cPageTitle ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))

else %>
<form name="formail" method="post" action="email.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>

'here you could trigger other actions when user writes a comment.

end sub

'END CONFIGURATION
'#################

[fazius]

roby 72 mi abbandoni?

[Roby_72]

Se la pagina è bianca non entra nell'IF
Si aspetta che tu prema un pulsante e che l'indirizzo del browser riporti il paramentro "invia".

Roby