Da php a asp

[stradlin]

Salve a tutti, premetto che non conosco Asp e dovrei "tradurre" questo codice da php in asp.

qualcuno potrebbe aiutarmi ? grazie!

$fields = array();
$fields{"nome"} = "$nome";
$fields{"cognome"} = "$cognome";
$fields{"indirizzo"} = "$indirizzo";
$fields{"mail"} = "$from";
$fields{"cap"} = "$cap";
$fields{"paese"} = "$paese";
$fields{"citta"} = "$citta";
$fields{"contenuto"} = "$contenuto";


 $body="";
 foreach($fields as $a => $b){

    $body .= "| $b |";

  } 

[barney09]

non conosco php, se ci dici in italiano cosa fa qualcuno te la traduce.

Si intuisce ma è megio se lo scrivi in italiano.

[pip19]

spiega cosa vuoi fare...

nn è detto che tutti conoscano php!

cosa sono le variabili $a e $b ??

[stradlin]

Sto facendo un form di registrazione, l' avevo fatto in php e sto cercando di tradurlo in asp.

Vi allego il codice asp fatto finora...

<%@LANGUAGE = JScript%>
<%
   //Recupero i dati dal modulo
   var nome = new String(Request.Form("nom"));
   var cognome = new String(Request.Form("prenom"));
   var indirizzo = new String(Request.Form("adresse"));
   var cap = new String(Request.Form("cp"));
   var paese = new String(Request.Form("pays"));
   var citta = new String(Request.Form("ville"));
   var contenuto = new String(Request.Form("question"));
   var email = new String(Request.Form("mail"));

  var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
       OggettoCDONTS.From = email; // Mittente
       OggettoCDONTS.To = "xxx@yyy.it"; // Destinatario (inserisci la tua email)
       OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
       OggettoCDONTS.Body = ""; // Corpo
       OggettoCDONTS.Send(); // Invio la mail 

Vorrei che nel OggettoCDONTS.Body ci vadano tutti le informazioni di registrazione elencate sopra (sicuramente con un ciclo e un array). Più chiaro ?

[pip19]

è piu' chiaro quello che vuoi fare, non quello che ti avevo chiesto, cmq, ecco il tuo codice...
ho cambiato un po di cose!! Non c'è bisogno di alcun array o ciclo...

<%@LANGUAGE="VBSCRIPT"%>
<% 
   //Recupero i dati dal modulo 
   nome = Request.Form("nom")
   cognome = Request.Form("prenom")
   indirizzo = Request.Form("adresse")
   cap = Request.Form("cp")
   paese = Request.Form("pays")
   citta = Request.Form("ville")
   contenuto = Request.Form("question")
   email = Request.Form("mail")

  Set oggettoCDONTS = Server.CreateObject("CDONTS.NewMail")
  OggettoCDONTS.From = "quello@chevuoi.it" ' Mittente 
  OggettoCDONTS.To =  email ' Destinatario (inserisci la tua email) 
  OggettoCDONTS.Subject = "Messaggio da " & nome & " " & cognome ' Oggetto 
  OggettoCDONTS.Body = "quello che vuoi "&indirizzo & ", "& cap & ", "& paese & ", "& citta ' Corpo 
  OggettoCDONTS.Send() ' Invio la mail

[agenti]

asp non ha la possibilità di associare ad una chiave array un valore
ma solo agli indici:

arr(0) = "test1"
arr(1) = "test2"
arr(2) = "test3"

[stradlin]

non funge...lo esegue ma non arriva l' email

Originariamente inviato da pip19
è piu' chiaro quello che vuoi fare, non quello che ti avevo chiesto, cmq, ecco il tuo codice...
ho cambiato un po di cose!! Non c'è bisogno di alcun array o ciclo...

<%@LANGUAGE="VBSCRIPT"%>
<% 
   //Recupero i dati dal modulo 
   nome = Request.Form("nom")
   cognome = Request.Form("prenom")
   indirizzo = Request.Form("adresse")
   cap = Request.Form("cp")
   paese = Request.Form("pays")
   citta = Request.Form("ville")
   contenuto = Request.Form("question")
   email = Request.Form("mail")

  Set oggettoCDONTS = Server.CreateObject("CDONTS.NewMail")
  OggettoCDONTS.From = "quello@chevuoi.it" ' Mittente 
  OggettoCDONTS.To =  email ' Destinatario (inserisci la tua email) 
  OggettoCDONTS.Subject = "Messaggio da " & nome & " " & cognome ' Oggetto 
  OggettoCDONTS.Body = "quello che vuoi "&indirizzo & ", "& cap & ", "& paese & ", "& citta ' Corpo 
  OggettoCDONTS.Send() ' Invio la mail

[pip19]

esiste la dll nel server in cui fai girare lo script?
se esiste, l'hai registrata? se no : start->esegui "regsvr32 cdonts.dll" (senza virgolette)

il componente smtp è installato in IIS?
c'è un firewall che la blocca? controlla in C:\Inetpub\mailroot\Drop, dovresti trovare li dentro la mail...

altra cosa... le variabili le passi bene?

questo è uno degli esempi qualsiasi che trovi in rete

<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="from@dominio.it"
objMail.To="to@dominio.it"
objMail.Subject="Prove Posta"
objMail.Body="La mia prima mail con CDO"
objMail.importance=0
objMail.Send
Set objMail = nothing
%>

e fidati, funziona!

[stradlin]

risolto, il problema era altrove . grazie!

[stradlin]

Un ultima cosa...vorrei che quando arrivi l' email sia formattata o comunque ogni campo in ogni riga.. solo che in questo modo non funziona

OggettoCDONTS.Body = "Dati del mittente \n\nNome: " + nome + "\nCognome: " + cognome + "\nindirizzo: " + indirizzo + "\ncap: " + cap +"\ncitta: " + citta +"\nnazione: " + nazione +"\nEmail: " + email + "\nRichiesta:" + messaggio; 

dove sbaglio ? grazie!