+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Script cartoline virtuali

  1. #1
    clannina non è in linea Novello
    Luogo
    Italy
    Post
    2
    Ciao a tutti,
    ho scoperto il vostro sito su alcuni motori di ricerca, ed ho trovato uno script molto interessante e soprattutto non complicato sulle cartoline virtuali.
    Ora premetto che io non ci capisco niente ne di asp ne di php...ma ho urgente bisogno di creare una piattaforma di cartoline virtuali...e non so come modificare il vostro script.
    Provo a dire che cosa dovrei fare...spero che qualcuno possa darmi una mano.
    _per prima cosa mi servirebbe suddividere le foto in sotto cartelle...dividerle per giorni...(si può fare?)
    _per seconda cosa mi da un errore quando provo a spedire la cartolina...qualcuno sa indicarmi da che cosa è dipeso l'errore?!

    Server object error 'ASP 0177 : 800401f3'

    Server.CreateObject Failed

    /card/invia.asp, line 26

    800401f3


    Per favore...ho bisogno di voi...e vi hanno descritto come persone disponibili e molto chiare nello spiegare le cose.

    per ora vi ringrazio per l'aiuto che vorrete concedermi!!!!

    Anna
    Clannina

  2. #2
    Post
    4,741
    Blogs
    12
    Ciao Anna,
    Nell'articolo spiegavo che lo script fa uso di ASPEmail, un componente gratuito, della Persits Software che permette di inviare email attraverso un oggetto diverso dal comune CDONTS di Windows.
    Se hai la possibilita' di amministrare il server su cui *gira* il tuo sito, devi necessariamente installare questo componente.
    Altrimenti, dovresti modificare la parte del codice relatico all'invio, adattandolo al componente CDONTS.

    Se non ricordo male, nella Community e' presente un breve articolo che ne spiega il funzionamento.

    Fai una ricerca e fammi sapere.

    A presto,
    Giuseppe Leone

  3. #3
    clannina non è in linea Novello
    Luogo
    Italy
    Post
    2
    Ciao Giuseppe ti ringrazio per la risposta... ora lo spacco questo pc...devo risolvere questa questione assolutamente entro oggi o domani...[img]smileys/smiley18.gif[/img]

    Non ho la più pallida idea di come fare [img]smileys/smiley19.gif[/img] assolutamente non ci capisco un accidente di asp...

    ora provo a farti vedere cosa ho trovato.

    QUESTO E' QUELLO DEL FILE CHE HO SCARICATO:
    'Controllo se gli indirizzi Email sono Validi
    if Valida_Email(txt_email_1) and Valida_Email(txt_email_2) then
    'Adesso invio l' email con ASPEMail
    set objEmail = Server.CreateObject("Persits.MailSender")
    objEmail.Host = "server.smtp.it" 'Server SMTP
    objEmail.From = txt_email_1
    objEmail.Subject = "Cartolina inviata da: " & txt_email_1
    objEmail.Body = "<center><img src=""" & MyCards(card, 1) & """><p>" & txt_msg
    objEmail.IsHTML = true
    objEmail.AddAddress(txt_email_2)

    objEmail.Send
    set objEmail = Nothing
    'Fine dell' Invio email


    QUESTO E' QUELLO CHE HO TROVATO:
    <%

    name = request.form("name")
    email = request.form("email")
    message = request.form("message")

    If name="" or email="" or message="" Then
    url = "contact.asp?reqd=* indicates required field&name=" & name & "&email=" & email & "&message=" & message
    If name="" Then
    url = url & "&mname=*"
    End if

    If email="" Then
    url = url & "&memail=*"
    End if

    If message="" Then
    url = url & "&mmessage=*"
    End if


    response.redirect url & "&foobar=foobar#form"
    response.end
    End if


    Dim objCDONTS&nb sp;' Email object
    Dim strFromName& nbsp; ' From persons' real name
    Dim strFromEmail, strToEmail ' Email addresses
    Dim strSubject, strBody' Message
    Dim misccompo


    strSubject&n bsp;= "ENTER YOUR SUBJECT HERE"
    strFromName= Trim(Request.Form("name"))
    strFromEmail = Trim(Request.Form("email"))
    strToEmail= "ENTER YOUR EMAIL ADDRESS HERE"
    strBody&nbsp ;= Trim(Request.Form("message"))

    Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
    objCDONTS.From= strFromName & " <" & strFromEmail & ">"
    objCDONTS.To= strToEmail
    objCDONTS.Subject = strSubject
    objCDONTS.Body= "--------------------------------------" & vbcrlf & vbcrlf & strbody & vbcrlf & vbcrlf & vbcrlf & "----------------------------------------------------------- ---" & vbcrlf & "MESSAGE ENDS: End of message"
    objCDONTS.Send
    Set objCDONTS = Nothing

    response.redirect "thanks.asp"
    response.end
    %>

    la mia domanda è come integrarli senza che Aruba mi rompa più di tanto!!?!?

    Scusatemi ma sono disperataaaaaaaaaaa [img]smileys/smiley19.gif[/img] [img]smileys/smiley19.gif[/img] [img]smileys/smiley19.gif[/img]
    Clannina

  4. #4
    weppos non è in linea Scolaretto
    Luogo
    Italy
    Post
    401
    Prima cosa devi verificare su quale server stai e quale oggetto hai a disposizione.

+ Rispondi al Thread

Discussioni simili

  1. Scripting asp per inviare cartoline
    Da pierix nel forum ASP 3.0, ASP .Net
    Risposte: 1
    Ultimo Post: 15-12-2005, 12:05
  2. Script per controllo dati form
    Da xmaxfane nel forum PHP
    Risposte: 1
    Ultimo Post: 16-09-2005, 16:52
  3. Script automatici
    Da Zigo nel forum PHP
    Risposte: 4
    Ultimo Post: 02-09-2005, 17:20

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi