19 messaggi dal 08 luglio 2002
In una pagina prendo i dati da una select su database e successivamente opero un'altra selezione con una if......
Nella stessa pagina dovrei inserire un form che m permette di inviare una mail ( penso che sia opportuno usare CDONTS) contenente nel body i dati che mi ha restituito il database.

Come faccio?
Questo è il mio codice:


<body>
<p>&nbsp;</p>
<table border="1" width="100%">
<tr>
<td width="100%" align="center">
<p>La sua confezione è ora composta da</p>
<form method="POST" action="mail.asp">

<p>
<p>&nbsp;</p>


<table border="1" cellspacing="2" cellpadding="2">
<tr>
<td>nome</td>
<td>prezzo</td>
<td>colore</td>
</tr>

<%

inizioTempo = Timer()
Set conn = Server.CreateObject("ADODB.Connection")
Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
conn.CommandTimeout = 40
conn.CursorLocation = 1
conn.ConnectionString = "dsn=tecno99dsn"
conn.Open
comm.ActiveConnection = conn
comm.CommandType = 1
comm.CommandText = "SELECT * FROM Prodotti"
Rs.Open comm,,1,1
totale = 0
do while not rs.EOF
prezzo=(rs("prezzo"))
nome=(rs("nome"))
nomepresente = Request.Form(nome)
if nome = nomepresente then
Response.Write "<tr><td>"
Response.Write (nome)
Response.Write "</td><td>"
Response.Write (prezzo)
Response.Write "</td>"
Response.Write "<td>colore</td>"
Response.Write "</tr>"
totale = totale + CDbl(prezzo)%>
<input type="hidden" nome="testo" value=<%=nome%>></p>

<%
else
Response.Write null
end if

rs.MoveNext
loop
Response.Write "<tr><td>"
Response.Write "Importo totale (euro):"
Response.Write "</td><td>"
Response.Write FormatNumber(totale,2)
Response.Write "</td>"
Response.Write "<td></td>"
Response.Write "</tr>"



%>


</table>
<input type="text" name="mittenete" size="20" value="mail">
<p><input type="submit" value="Invia" name="B1"></p>
</form>

<p>&nbsp;</p>





<p>Se vuole aggiungere o togliere dei pezzi clicchi sul pulsante indietro del
browser</p>
<p>Inserisca il numero di confezioni che desidera ordinare</p>
<p>N<br>
<form action="calcola.asp" method="post" target="_blank" id=form1 name=form1>
<input type="text" name="number" size="5"><input type="submit" value="Calcola il prezzo" name="ordina"><input type="hidden" value=<%=totale%> name="totto">
</form>


<p>&nbsp;</p>
<p>

</p>

<p>&nbsp;</td>
</tr>
</table>

</body>
<%rs.Close%>


Tutto funzica a parte la mail che mi arriva ma al suo interno non arriva niente.....

Questa è la mia pagina mail.asp


<body>
<%
mittenete=request.form ("mittenete")
testo=request.form("testo")
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = mittenete
miaMail.To = mittenete

'Destinatario nascosto della mail
'miaMail.bcc = "webdesigner@brainy.it"


miaMail.Subject = "Ordine effettuato da tecno99.it"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = testo
miaMail.Send

Set miaMail = Nothing
response.write testo
%>

</body>


Grazie in anticipo

Dormo tranquillo perchè so che il mio peggior nemico veglia su di me....
---Il Buono---
19 messaggi dal 08 luglio 2002
Scusate era un errore stupido

Dormo tranquillo perchè so che il mio peggior nemico veglia su di me....
---Il Buono---

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.