Problema invio dati form con ASP

[Kazuhiko]

Ciao a tutti!
Mi scuso se la domanda è già stata fatta, ma essendo una cosa un pò particolare provo a sottoporvela sperando di trovare un aiuto in merito.

Devo inviare dei dati di una form ad un indirizzo e-mail trammite asp. Ho provato mille script pronti, senza risultato.
L'unico che mi dava un risultat è questo che vi copierò adesso...però mi invia solo un campo del form. Cercando di aggiungere gli altri dati salta tutto e mi arrivano mail vuote. Come risolvere il problema??

ecco il link della pagina html che si collega all'asp: http://www.babyidea.it/varie/asp2.htm

Inoltre, ho provato anche quest'altro script... niente, mi da errore pure questo. Ve lo copio qui sotto:

http://www.babyidea.it/varie/asp4.htm

Qualcuno ha idea di come posso risolvere il problema? Altrimenti, potete consigliarmi uno script che sia però EFFETTIVAMENTE valido? Considerando che il sito in cui devo fare il tutto ha attivo solo asp.
Se serve altro (lo script direttamente credo, al momento non l'avevo sotto mano quindi ho messo i link intanto... però appena posso li copio!).

Grazie mille a tutti e scusate il disturbo ma è una cosa che mi sta facendo impazzire ed è importante!

 

[Pazzaglia]

Dim c
c = chr(13) & chr(10)

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=trim(request("email"))
M= "-------- Original Message --------" & c
M=M & "Nome e Cognome:" & request("Nomeecognome") & c
M=M & "Ragione Sociale:" & request("ragione") & c

objMail.Body=M
objMail.To="[email protected]"
objMail.Subject="Oggetto email"
objMail.Send
set objMail = nothing

Lo uso da una vita e funziona alla grande.
Fammi sapere.

 

[Kazuhiko]

Dim c
c = chr(13) & chr(10)

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=trim(request("email"))
M= "-------- Original Message --------" & c
M=M & "Nome e Cognome:" & request("Nomeecognome") & c
M=M & "Ragione Sociale:" & request("ragione") & c

objMail.Body=M
objMail.To="[email protected]"
objMail.Subject="Oggetto email"
objMail.Send
set objMail = nothing

Lo uso da una vita e funziona alla grande.
Fammi sapere.

grazie!
una domanda però:
io ho i campi: nome, rag sociale, indirizzo, messaggio e altri..
come li aggiungo a questo script?
Aggiungendo una riga sotto a "M=M & "Ragione Sociale:" & request("ragione") & c" e cambiando i parametri no?

e poi... il pezzo prima "Dim c
c = chr(13) & chr(10)" è una segnalazione al mio errore negli script usati? scusa la domanda, spero non sembri stupida ma ho questi piccoli dubbi.
Grazie mille! stasera provo subito!

 

[Pazzaglia]

io ho i campi: nome, rag sociale, indirizzo, messaggio e altri..
come li aggiungo a questo script?
Aggiungendo una riga sotto a "M=M & "Ragione Sociale:" & request("ragione") & c" e cambiando i parametri no?

Esattamente!!!

e poi... il pezzo prima "Dim c
c = chr(13) & chr(10)" è una segnalazione al mio errore negli script usati? scusa la domanda, spero non sembri stupida ma ho questi piccoli dubbi.
Grazie mille! stasera provo subito!

chr(13) & chr(10)
serve per andare a capo praticamente l'equivalente del <br>

L'ho messo sotto una variabile c per evitarmi di scrivere ad ogni fine riga tutta la pappardella.
Sei hai problemi posta il codice che vediamo di farlo funzionare.

 

[Kazuhiko]

allora...ho provato con il tuo codice... ma mi da un errore!
Sono proprio sfortunato...!

Ti copio il codice come l'ho usato e l'errore:

----------------
<%
Dim c
c = chr(13) & chr(10)

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=trim(request("email"))
M= "-------- Original Message --------" & c
M=M & "Nome e Cognome:" & request("Nomeecognome") & c
M=M & "Ragione Sociale:" & request("ragione") & c
M=M & "Indirizzo:" & request("indirizzo") & c
M=M & "Telefono:" & request("telefono") & c
M=M & "E-mail:" & request("email") & c
M=M & "Messaggio:" & request("messaggio") & c

objMail.Body=M
objMail.To="[email protected]"
objMail.Subject="Invio form dati"
objMail.Send
set objMail = nothing
%>
--------------

Errore:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/prova/asp.asp, line 5

800401f3

la linea 5 è quella dell'oggetto mail...possibile che non accetti che li ci vada il campo form? :/

 

[Pazzaglia]

Ma il cdo su iis ce lo hai attivato e funzionante???

 

[Kazuhiko]

Ma il cdo su iis ce lo hai attivato e funzionante???

eh...infatti ho appena sentito il tecnico e CREDO non sia attiva questa cosa...
vi copio lo script che usavo prima:

---------------------

<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If



'**************************************************************************
'* sostituisci qui sotto, a [email protected], il tuo indirizzo email reale *
'**************************************************************************

mittente = "[email protected]"

'------------------------------------------------------------------------
'------------------------------------------------------------------------

messaggio = messaggio & nome & "Informazioni: " & Request.Form("messaggio")& chr(21) & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = "[email protected]"
Mail.From = "[email protected]"
Mail.Subject = "Form dati internet"
Mail.Send
Set Mail = nothing
%>

<%
'***************************************************
'* Ridirezionamento alla pagina Confsendmail.htm *
'***************************************************

response.redirect "Confsendmail.htm"
%>

--------------

qualcuno mi può aiutare a sistemarlo? sono dsperato ormai..
credo sia qualcosa nel campo dove c'è "messaggio", "nome" ecc...

scusate e grazie dell'aiuto!

 

[Pazzaglia]

Si ma che errore ti da???

Il messaggio suddividilo su più righe.

Messaggio = "-------- Original Message --------" & chr(21)
Messaggio = Messaggio & "Nome e Cognome: " & Trim(Request("nome")) & chr(21)
Messaggio = Messaggio & "Ragione Sociale: " & Trim(Request("ragsociale")) & chr(21)
Messaggio = Messaggio & "Indirizzo: " & Trim(Request("indirizzo")) & chr(21)
Messaggio = Messaggio & "Telefono: " & Trim(Request("telefono")) & chr(21)
Messaggio = Messaggio & "email: " & Trim(Request("email")) & chr(21)
Messaggio = Messaggio & "Messaggio: " & Trim(Request("messaggio")) & chr(21)

Questi sono i campi presi sul primo link del primo post.

Fammi sapere dove ti da errore.

 

[Kazuhiko]

Finalmente ce l'ho fatta!

Ciao! Ieri finalmente, sono riuscito a far funzionare tutto! Il problema stava proprio nella riga dove richiamavo i dati del form...

grazie mille comunque Pazzaglia, davvero!

Copio lo script corretto e funzionante...in caso qualcuno ne avesse comunque bisogno :byebye:

Grazie mille ancora!

-------------------------------
<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If



'**************************************************************************
'* sostituisci qui sotto, a [email protected], il tuo indirizzo email reale *
'**************************************************************************

mittente = "[email protected]"

'------------------------------------------------------------------------
'------------------------------------------------------------------------

messaggio = "Nome: " & Request.Form("nome")& chr(13) & " Ragione Sociale: " & Request.Form("ragsociale")& chr(13) & " Indirizzo: " & Request.Form("indirizzo")& chr(13) & " Telefono: " & Request.Form("telefono")& chr(13) & " Email: " & Request.Form("email")& chr(13) & " Messaggio: " & Request.Form("messaggio")& chr(13) & " INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = "[email protected]"
Mail.From = "[email protected]"
Mail.Subject = "Form dati internet"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing
%>

<%
'***************************************************
'* Ridirezionamento alla pagina Confsendmail.htm *
'***************************************************

response.redirect "Confsendmail.htm"
%>
----------------------------