send a pagina ASP non funziona

[jackburton]

ciao a tutti,

uso flash 8 pro,

da un form flash sto cercando di inviare i dati ad una pagina asp ma, le variabili nella pagina asp risultano sempre vuote.

Ho due pagine: una html che contiene il mio form swf e una pagina ASP con il codice per prelevare le variabili.

Inserisco il codice relativo all'invio delle variabili dal form e alla pagina email.asp che dovrebbe recuperare i dati:

FORM FLASH:

	/*i valori passati assegnati alla variabile LoadVars
	arrivano da variabili campo di testo*/
	
	var invia = new LoadVars();
	invia.nome = nome;
	invia.cognome = cognome;
	invia.email = mail;
	invia.oggetto = oggetto;
	invia.messaggio = info;
	
	invia.send("email.asp","_blank","POST");

(non ho messo il metodo ".text" come ad esempio "invia.nome = nome.text;" volutamente e se faccio una trace dei valori passati, le stringhe risultano corrette)

PAGINA EMAIL.ASP:

<%
Dim objMail, objConfig, nome, cognome, email, oggetto, messaggio

' 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/configuration/smtpserver") = "smtp.tele2.it"

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

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

' Timeout
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Fields.Update
End With
     
nome = Request.Form("invia.nome")
cognome = Request.Form("invia.cognome")
email = Request.Form("invia.email")
oggetto = Request.Form("invia.oggetto")
messaggio = Request.Form("invia.messaggio")


' Assegna le configurazioni
Set objMail.Configuration = objConfig
     
' Assegna all'oggetto le proprietà necessarie
objMail.From =  email ' Mittente
objMail.To = "lucabellomi@gmail.com"' Destinatario
objMail.Subject = oggetto ' Oggetto
objMail.HTMLBody = messaggio' Messaggio
     
' Invia l'email
objMail.Send(objMail)


Set objMail = Nothing
     
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(email)

%>

Ormai ho fatto mille prove e non so + come risolvere..

Grazie e a presto!

[and80]

ma le prove le stai facendo direttamente in linea?

ps. perchè hai volutamente omesso .text ? hai provato a non ometterlo?

[jackburton]

- le sto facendo in localhost, con IIS impostato correttamente (gli altri lavori che provo in locale vanno tutti correttamente)

- facendo una trace delle variabili relative ai campi di testo del form ho visto che senza ".text" stampa correttamente, mentre col ".text" non stampa.. sosì ho adottato la prima soluzione

[jackburton]

(hehe.. pardon.. non avevo notato che stavo parlando col mitico and80!!! )

[and80]

Originariamente inviato da jackburton
- le sto facendo in localhost, con IIS impostato correttamente (gli altri lavori che provo in locale vanno tutti correttamente)

- facendo una trace delle variabili relative ai campi di testo del form ho visto che senza ".text" stampa correttamente, mentre col ".text" non stampa.. sosì ho adottato la prima soluzione

ecco, fai invece un'altra prova, svuota il campo "var" nei textfield e assegnagli lo stesso come nome di istanza, poi usa i text e vedi se la cosa cambia

[crescenzo]

Originariamente inviato da jackburton
- le sto facendo in localhost, con IIS impostato correttamente (gli altri lavori che provo in locale vanno tutti correttamente)

- facendo una trace delle variabili relative ai campi di testo del form ho visto che senza ".text" stampa correttamente, mentre col ".text" non stampa.. sosì ho adottato la prima soluzione

beh alla fine è la stessa cosa se utilizzi la var senza text
oppure utilizzi il nome istanza e ci metti text
il fatto è che se ti fà il trace delle var giusto il problema potrebbe risiedere nella pag asp che utilizzi

prova magari ad utilizzare una cosa del genere vedi se va
ovviamente cambia con i tuoi campi

<%

on error resume next

if err.number>0 then
					strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
				else
					strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
				end if

response.write "inserimento avvenuto con successo"


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	
	
invioA =  "tuamai@esempio.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "tuamail@esempio.it"



nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome")
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"Data di nascita : " & Request.Form("datanasc")
corpoMessaggio = corpoMessaggio & vbCrLf &"Ultima classe frequentata con esito positivo : " & Request.Form("classe1")
corpoMessaggio = corpoMessaggio & vbCrLf &"Anno scolastico dell'ultima slasse frequentata : " & Request.Form("classe2")
corpoMessaggio = corpoMessaggio & vbCrLf &"Tipo di scuola : " & Request.Form("scuola")
corpoMessaggio = corpoMessaggio & vbCrLf &"Città di residenza : " & Request.Form("citta")
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("testo")


n =Request.Form("nome")
r =Request.Form("cognome")
	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Richiesta Informazioni dal sito " & nomeDominio
   .HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>

ciao

ps scusate l'intromissione

[jackburton]

beh.. intanto mi fa piacere che l'errore sia cambiato!!

i dati vengono raccolti correttamente dalla pagina asp (top And!!) pero' viene generato un errore asp:


Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida: 'Send'
/lavori/mafessanti/formFlash/email.asp, line 49


che nel mio caso corrisponde alla linea:

objMail.Send(objMail)

[and80]

non mastico ASP e non so se può essere "viziato" come PHP, magari è solo un piccolo errore di parsing tipo maiuscole/minuscole

[jackburton]

Chiedo scusa Crescenzo.. questa mattina credo che abbiamo risposto quasi contemporaneamente e così non ho visto il tuo post.. tra l'altro sono dovuto scappare subito dopo..

bhè, l'errore riscontrato era dovuto al fatto che usavo l'istruzione objMail.Send(objMail) al posto di objMail.Send (non mastico anch'io ASP.. sono solo i primi esperimenti.. e non ho nemmeno voglia di studiarlo quando c'è anche asp.Net 2.0 )

Cmq., Crescenzo, provero' ad usare il tuo script che mi sembra più completo del mio..

..domani vi sapro' dire..

Grazie

[and80]

io preferisco PHP

comunque in pratica hai risolto?