• Moderatore

    @gelova said:

    Mi da questo errore
    Il codice è questo

    ❌x:x

    Aggiungi end if alla fine

    Ciao


  • User Attivo

    L'errore è cambiato > CDO.Message.1 error '8004020d'
    At least one of the From or Sender fields is required, and neither was found.
    /inviomail.asp, line 15

    il file inviomail.asp è questo

    <%
    theSchema="http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig=server.CreateObject("CDO.Configuration")
    cdoConfig.Fields.Item(theSchema & "sendusing")=2
    cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.soluzionepc.it"
    cdoConfig.Fields.Update

    set cdoMessage=Server.CreateObject("CDO.Message")
    cdoMessage.Configuration=cdoConfig

    cdoMessage.From=Request.Form("email")
    cdoMessage.To="[email protected]"
    cdoMessage.Subject=Request.Form("subject")
    cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") & "<br/>Commenti:" & request.Form("commenti")
    cdoMessage.Send <--------------line 15

    Set cdoMessage=Nothing
    Set cdoConfig=Nothing

    nome = Request("nome")
    cognome = Request("cognome")
    citta = Request(citta)
    email = Request(email)
    commenti = Request(commenti)

    If nome = "" then errore = "Nome é vuoto<br>"
    If cognome = "" then errore = "cognome é vuoto<br>"
    If citta = "" then errore = "citta é vuoto<br>"
    If email = "" then errore = "email é vuoto<br>"
    If cognome = "" then errore = "commenti é vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    End if
    ❌x:x


  • Moderatore

    @gelova said:

    L'errore è cambiato
    il file inviomail.asp è questo
    ❌x:x

    At least one of the From or Sender fields is required, and neither was found

    Cerchiamo di capirli i messaggi di errore.
    Almeno un mittente è necessario.
    Quindi cdoMessage.From=Request.Form("email") non contiene l'email


  • User Attivo

    Allora sono due le cose o il form è costruito male o sono io che non ho capito un tubo......
    credo che l'unica cosa necessaria sia l'email del destinatario non quella del mittente,come faccio a sapere l'email del mittente (il mittente è colui che riempie il form) .
    Considera che il form ha questi campi Nome,Cognome,Città,email,Commenti (come si evince dal codice) :bho:


  • User Attivo

    @gelova said:

    Allora sono due le cose o il form è costruito male o sono io che non ho capito un tubo......
    credo che l'unica cosa necessaria sia l'email del destinatario non quella del mittente,come faccio a sapere l'email del mittente (il mittente è colui che riempie il form) .
    Considera che il form ha questi campi Nome,Cognome,Città,email,Commenti (come si evince dal codice) :bho:

    L'email mittente è quella inserita dall'utente (Request("email")) quindi sta bene così ma andrà in errore se lasci quel campo vuoto. Deve essere un campo obbligatorio.


  • User Attivo

    Madai scusami ma questo codice che mi hai dato tu non dovrebbe servire appunto a validare i campi ?

    If nome = "" then errore = "Nome é vuoto<br>"
    If cognome = "" then errore = "cognome é vuoto<br>"
    If citta = "" then errore = "citta é vuoto<br>"
    If email = "" then errore = "email é vuoto<br>"
    If cognome = "" then errore = "commenti é vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    End if
    Ma allora perchè se lascio il campo email vuoto mi dà la classica pag.bianca ?:bho:


  • User Attivo

    Perchè è sbagliato qui (occhio agli apici):

    
    nome = Request("nome")
    cognome = Request("cognome")
    citta = Request("citta")
    email = Request("email")
    commenti = Request("commenti")
    
    

    inoltre modifica il codice che ti ho dato come segue:

    
    If nome = "" then errore = "Nome &eacute; vuoto<br>"
    If cognome = "" then errore = errore & "cognome &eacute; vuoto<br>"
    If citta = "" then errore = errore & "citta &eacute; vuoto<br>"
    If email = "" then errore = errore & "email &eacute; vuoto<br>"
    If cognome = "" then errore = errore & "commenti &eacute; vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    End if
    
    

  • User Attivo

    Grazie dei suggerimenti madai, ho fatto le modifiche come da te suggerite
    però se non viene riempito il campo email, mi esce sempre il messaggio

    CDO.Message.1 error '8004020d'
    At least one of the From or Sender fields is required, and neither was found.
    /inviomail.asp, line 15

    Se viene riempito il campo email e si lasciano vuoti gli altri funziona !:bho:


  • User Attivo

    Il controllo per la validazione dei campi va **ovviamente **messo in cima alla pagina non alla fine. **Prima **avviene il controllo, **dopo **se il controllo è positivo si prosegue con l'invio dell'email altrimenti si blocca stampando a video l'errore.

    PS: aggiungi Response.End in caso di errore, così:

    
    If nome = "" then errore = "Nome &eacute; vuoto<br>"
    If cognome = "" then errore = errore & "cognome &eacute; vuoto<br>"
    If citta = "" then errore = errore & "citta &eacute; vuoto<br>"
    If email = "" then errore = errore & "email &eacute; vuoto<br>"
    If cognome = "" then errore = errore & "commenti &eacute; vuoto<br>"
    If errore <> "" then
    Response.Write(errore)
    **Response.End**
    End if
    
    

  • User Attivo

    Funziona yahoooooo !!!!! Madai sei un grande.....un'ultima cosa.....so che ti ho stressato abbastanza....l'ultimo sforzo,il prog. funziona perfettamente con IE 6 mentre ho provato con Firefox e nella pagina che contiene il form (contatti.html) in cima prima dei campi la scritta

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

    perchè ?????


  • User Attivo

    :mmm:


  • User Attivo

    @gelova said:

    Funziona yahoooooo !!!!! Madai sei un grande.....un'ultima cosa.....so che ti ho stressato abbastanza....l'ultimo sforzo,il prog. funziona perfettamente con IE 6 mentre ho provato con Firefox e nella pagina che contiene il form (contatti.html) in cima prima dei campi la scritta

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

    perchè ?????

    Se e' una pagina html non devi mettere l'intestazione <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>. Eliminala.

    :ciauz:


  • User Attivo

    ❌x:x ........Questa cache.....di firefox certe volte fa i capricci...

    Ok ! Risolto, grazie ancora !!!!


  • User Newbie

    anch'io ho un sito ... index.htm va bene ma gli altri noo!!!!!!!!

    appare il codice sorgente invece ke la pagina.

    :?:x


  • User Attivo

    @Dogeland said:

    anch'io ho un sito ... index.htm va bene ma gli altri noo!!!!!!!!

    appare il codice sorgente invece ke la pagina.

    :?:x
    Evidentemente è un hosting free senza alcun supporto a codice lato server.

    Per gli altri: Sinceramente avrei fatto la pagina del form e dell'invio e l'avrei allegata al post uhauhauhauhauh
    In certi casi diventa veramente complesso gestire degli errori insignificanti :sbonk:


  • User Newbie

    è un sito altervista ma ho visto altri utenti farlo!!❌chedici::slider_furious:


  • Moderatore

    se non ricordo male altervista permette si l'uso di codice latoclient però permette php

    Ciao
    :ciauz:


  • User Newbie

    scusa la mia curiosità, però visto che usi asp.net perchè non ti scarichi dal sito della microsoft visual web developer express edition? è molto comodo per usare asp.net e sopratutto puoi mettere il codice in vb.net ( qll ke tu chiami script ) in una pagina separata e viene fuori un lavoro molto pulito ed ordinato
    comunque il codice usando vwd è:

    imports system.data.oledb
    public class form1
    dim con as oledbconnection
    dim comm as oledbcommand
    dim strsql as string
    dim strcon as string
    public sub button1_click(.....)'questa e la sub del botton (sempre con wvd)
    dim nome as string=textbox1.text
    dim cognome as string = textbox2.text
    dim username as string=textbox3.text
    dim psw as string=textbox4.text
    strcon="Provider=Microsoft.Jet.OleDb.4.0.0 Data Source=indirizzo del db"
    con=new oledbconnection(strcon)
    strsql="INSERT INTO (nome,[cognome],[username],[password]) VALUES (' " & nome & " ',' " & cognome & " ',' " & username & " ',' " & psw & " ');"
    com=new oledbcommand(strsql,con)
    con.open
    com.executenonquery
    con.close
    end sub
    end class

    questo è funzionante ed è senza controlli quelli poi fai in un attimo a metterli basta che nella strsql gli cambi la query.
    Comunque qualcuno sa come si fa il login e come si usa la session per farlo??? GRazie in anticipo


  • User Newbie

    ragazzi aiutatemi a creare un login e pass per utenti ho creato un galleri fotografica e vorrei che per vedere le foto i miei visitatori si registrassero ma non so come fare e da dove cominciare, mi date una mano??? ci provo da mesi ma nulla non riesco propio a farlo grazie mille aspetto notizie