dati da db, campi vuoti da compilare e invia

[David_pop]

funziona ma non mi indica i dati presi dal db..

[maximum]

Puoi spiegare un po' meglio?

[David_pop]

Cioe mi indica la frase che ho inserito nell'"sbody".. del tipo: "sono stati scelti n. 2(quantita) prodotti...ecc, però dove invece il dato (tipo "Colore Prodotto") è preso dal db, mi lascia spazio vuoto nella frase dell'"sbody"

sBody = " " & nome & " " & cognome & " prenota n." & quantita & " del prodotto in codice n. " & TitoloProdotto & ", annotando:
" & annotazioni

[maximum]

Intendi gli altri campi che stampi nella pagina della form?
Beh, allora i valori che stampi, fai in modo che stiano anche in dei campi nascosti del form.

ES:

<td bgcolor="#FFFF00" class="piccolo">Descrizione:</td> 
<td colspan="2" align="left" bgcolor="#FFFFFF"> 
<div align="left"> 


<font class="piccolo"><%=(rs.Fields.Item("DescrizioneProdotto").Value)%>

<input type="hidden" name="descrizione" value="<%=(rs.Fields.Item("DescrizioneProdotto").Value)%>">  
</font></p> 
</div></td>

Poi lo recuperi prima di inviare la mail come gli altri due:

descrizione = trim(request.form("descrizione"))

A questo punto puoi meterlo nella mail.

Esegui la modifica che ti ho riportato per tutti i campi che stampi per ora a video nella pagina del form ed il gioco è fatto!

[David_pop]

esempio:

<font color="#FFFFFF"><%=(rs2.Fields.Item("nome").Value) %>
<input type="hidden" name="Nome" value="<%=(rs.Fields.Item("nome").Value)%>"></font>

da errore:
Item cannot be found in the collection corresponding to the requested name or ordinal.

[maximum]

Non è possibile, se te lo stampa a video non vedo perchè non te lo deve conservare nel campo nascosto!
Controlla bene la query che estrae le informazioni che stampi!

[David_pop]

senza i campi form appena inseriti, la query e i dati sono sempre stati stampati bene..

[maximum]

Prova così:

<table width="500" border="0" align="center"> 
<tr> 
<form name="invio_dati" action="invia.asp" method="post"> 
<td width="103" class="piccolo"> </td> 
<td width="278" class="piccolo"> 
<div align="center">[img]immagini/ritmica/<%=(rs.Fields.Item([/img]" align="top" class="bordo-piccolo"> 
</div></td> 
<td width="105" class="piccolo"> </td> 
</tr> 
<tr> 
<td bgcolor="#336666" class="piccolo"><font color="#FFFFFF"><%=(rs2.Fields.Item("nome").Value)%>
 
</font>
<input type="hidden" name="nome" value="<%=(rs2.Fields.Item("nome").Value)%>">
<font color="#FFFFFF"><%=(rs2.Fields.Item("cognome").Value)%></font>
<input type="hidden" name="cognome" value="<%=(rs2.Fields.Item("cognome").Value)%>">
</td> 
<td align="center" bgcolor="#FFFF00"> <font> <span class="piccolo"><%=(rs.Fields.Item("TipoProdotto").Value)%></span></font>
<input type="hidden" name="tipo_prodotto" value="<%=(rs.Fields.Item("TipoProdotto").Value)%>">
</td> 
<td align="left" bgcolor="#336666"> <div align="right"><span><font color="#FFFFFF" class="piccolo"><%=(rs.Fields.Item("TitoloProdotto").Value)%></font></span></div>
<input type="hidden" name="titolo_prodotto" value="<%=(rs.Fields.Item("TitoloProdotto").Value)%>">
</td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Descrizione:</td> 
<td colspan="2" align="left" bgcolor="#FFFFFF"> 
<div align="left"> 


<font class="piccolo"><%=(rs.Fields.Item("DescrizioneProdotto").Value)%>
<input type="hidden" name="descrizione_prodotto" value="<%=(rs.Fields.Item("DescrizioneProdotto").Value)%>">

 
</font></p> 
</div></td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Prezzo articolo:</td> 
<td colspan="2" bgcolor="#FFFFFF"><font class="piccolo"><%=(rs.Fields.Item("Prezzo").Value)%></font>
<input type="hidden" name="prezzo" value="<%=(rs.Fields.Item("Prezzo").Value)%>">
</td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Colori disponibili:</td> 
<td colspan="2" bgcolor="#FFFFFF"><font class="piccolo"><%=(rs.Fields.Item("Colore").Value)%></font>
<input type="hidden" name="colore" value="<%=(rs.Fields.Item("Colore").Value)%>">
</td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Misure:</td> 
<td colspan="2" bgcolor="#FFFFFF"><font class="piccolo"><%=(rs.Fields.Item("Dimensioni").Value)%></font>
<input type="hidden" name="dimensioni" value="<%=(rs.Fields.Item("Dimensioni").Value)%>">
</td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Quantità:</td> 
<td colspan="2" bgcolor="#FFFFFF" class="piccolo"> 
<input name="quantita" type="text" id="quantita" size="4" maxlength="4"> 
</td> 
</tr> 
<tr> 
<td bgcolor="#FFFF00" class="piccolo">Annotazioni:</td> 
<td colspan="2" valign="top" bgcolor="#FFFFFF" class="piccolo"> 
<p align="left"> 
<textarea name="annotazioni" cols="73" rows="3" class="piccolo"></textarea>  
</p></td> 
</tr> 
<tr> 
<td colspan="3" class="piccolo"> 
<div align="center"> 
<input name="Submit" type="submit" class="piccolo" value="Prenota"> 
</div></td> 
</form> 
</tr> 
</table>

[David_pop]

e vi è un modo perche, una volta inviato il modulo, non rimanga la pagina bianca di "invia.asp" ma si redirezioni automaticamente ad altra pagina?

[maximum]

Quindi ha funzionato?

Certo che c'è ecco qua:

<%
' istanzio le costanti per invio
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							

'Recupero i campi della pagina precedente
quantita = trim(request.form("quantita"))
annotazioni = trim(request.form("annotazioni"))

'compone e spedisce la mail 
strFrom = "A TUO PIACIMENTO"
sBody = "La ordinato " & quantita & " di materiale, specificando le seguenti annotazioni : 
 " & annotazioni

With iMsg
     Set .Configuration = iConf
     .To = "QUI LA MAIL DEL DESTINATARIO"
     .From = strFrom
     .Sender = "QUI LA MAIL DEL MITTENTE"
     .Subject = "Quello che vuoi"
     .HTMLBody = sBody
     .Send
End With

response.redirect("pagina_dove_vuoi_essere_redirezionato.asp") 
%>