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> </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> </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> </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> </p>
<p>
</p>
<p> </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
