Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.07
      MODULI AGGIUNTIVI
         pagine x speizione cartoline private

pagine x speizione cartoline private

Autore Messaggio
arteebotanica

Esperto
Esperto
332 Discussioni


Profilo - arteebotanica 		03 agosto 2007 alle 16:10:18 Profilo - arteebotanicaInvia un messaggio privato Rispondi quotando
ho trovato un codice che sono riuscito a far funzionere su pagine di aspnuke per l'invio di cartoline usando una qualsiasi foto presente nel web quindi anche foto personali, la cosa mi sembra simpatica e che possa interessare a molti , sebbene sia poco più di un invio di mail con foto allegata , il problema sta nell'invio che mi da errore ma non conoscendo il codice non saprei dove agire, l'indirizzo per provare la cosa è questo:
http://www.arteebotanica.org/public/aspnuke2.0.5/cartolina-privata.asp

questo l'errore:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/public/aspnuke2.0.5/includes/cartolina_privata-inc.asp, line 84

800401f3
questa la parte del codice per l'invio in grassetto la linea 84:

Case 3
Dim objMail
Set objMail = Server.CreateObject("SMTPsvg.Mailer")

' EDIT THE LINE BELOW
objMail.RemoteHost = "ENTER THE URL OF YOUR SMTP SERVER HERE"
'EDIT THE LINE ABOVE

objMail.AddRecipient = Request.QueryString("EmailTo")
objMail.FromAddress = Session("EmailFrom")
objMail.Subject = "La tua cartolina " & Request.QueryString("NameFrom") & "<" & Request.QueryString("EmailFrom") & ">"
objMail.BodyText = "<img src=""" & Session("CardURL") & """ alt=""La tua cartolina"">"
objMail.BodyText = objMail.BodyText & "<br>Per: " & Session("NameTo") & " <" & Session("EmailTo") & ">"
objMail.BodyText = objMail.BodyText & "<br>Messaggio: " & Request.QueryString("Message")
objMail.BodyText = objMail.BodyText & "<br>Da: " & Session("NameFrom") & " <" & Session("EmailFrom") & ">"
objMail.Send
if Not objMail.SendMail Then
response.write "Mailing Failed... Error is: <BR>"
response.write objMail.Response
End if
Set objMail = Nothing
Response.Write "La tua cartolina è stata spedita con successo."

End Select
%>

se mi date una mano penso possa interessare a molti, magari anche perfezionandola in futuro.grazie.
---------------
ciao, [lo]
Lorenzo
http://www.arteebotanica.org
http://www.aiastriveneto.org
http://www.cactus.it
piosky_to2003

Esperto
Esperto
2291 Discussioni


Profilo - piosky_to2003 		04 agosto 2007 alle 10:58:31 Profilo - piosky_to2003Invia un messaggio privato chat_silvio@hotmail.com Rispondi quotando
ci sono diversi metodi per spedire la posto legati al server
semplicemente usa SMTPsvg che il tuo server non gestisce
ti tocca cambiare il codice usando cdosys o usando smtp
le istruzione per usare cdo le trovi mail_cdosys-inc.asp


---------------
Silvio Andrighetti Formaggini (Piosky) [lo]

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 103
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685287 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi