Salve a tutti, ho un problema che, suppongo, sia abbastanza banale ma che mi sta facendo uscire pazzo
Ho un form da cui carico alcuni dati da un database per la visualizzazione
e questi dati devono poi essere inviati via email con questo codice che sarebbe InvioAttivazione.aspcodice:<% Set Conn = Server.CreateObject("adodb.connection") Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/db.mdb") Sql = "SELECT * FROM db WHERE ID=" & session("id") Set Rs = Conn.Execute(Sql) %> <form method="post"> <table cellspacing="2" cellpadding="1" height="80%" width="90%" border="0" align="center"> <tr> <td class="testo">Nome :</td> <td><input class="contact" type="text" size="40" value="<%= rs("nome") %>" readonly></td> </tr> <tr> <td class="testo">Cognome :</td> <td><input class="contact" type="text" size="40" value="<%= rs("cognome") %>" readonly></td> </tr> <tr> <td class="testo">Email :</td> <td><input class="contact" type="text" size="40" value="<%= rs("email") %>" readonly></td> </tr> <td colspan="2" class="small" align="center" valign="middle"> <input name="button" class="contact" style="background-color:#ffffff" type="button" onclick="location.href('InvioAttivazione.asp');" value="Invia l'attivazione >>"> </table> </form>
Mi invia la mail ma è completamente vuota, senza nessun dato, come mai secondo voi?codice:<% nome = request("nome") cognome = request("cognome") email = request("email") HTML = "" HTML = HTML&"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" HTML = HTML&"<html><head><title>Richiesta Attivazione</title></head>" HTML = HTML&"<body>" HTML = HTML&"<table cellspacing=""15"" cellpadding=""1"" width=""80%"" align=""left""><tr><td>" HTML = HTML&"<br><br><table width=""100%"" align=""left"">" HTML = HTML&"<tr><td colspan=""2""><font face=""Arial"" ><b>Dati del richiedente:</b></font></td></tr>" HTML = HTML&"<tr><td bgcolor=""#e3e3e3""><font face=""Arial"" size=""-1"">Nome :</font>" HTML = HTML&"</td><td td bgcolor=""#ffffff""><font face=""Arial"" size=""-1"">"&nome&"</font></td></tr>" HTML = HTML&"<tr><td td bgcolor=""#e3e3e3""><font face=""Arial"" size=""-1"">Cognome :</font>" HTML = HTML&"</td><td td bgcolor=""#ffffff""><font face=""Arial"" size=""-1"">"&cognome&"</font></td></tr>" HTML = HTML&"</table></td></tr>" HTML = HTML&"<tr><td bgcolor=""#e3e3e3""><font face=""Arial"" size=""-1"">Email :</font>" HTML = HTML&"</td><td td bgcolor=""#ffffff""><font face=""Arial"" size=""-1"">"&email&"</font></td></tr>" HTML = HTML&"</table></td></tr> HTML = HTML&"</table>" HTML = HTML&"</body></html>" 'invio la mail Set objMessage = Server.CreateObject("CDO.Message") objMessage.Subject = "Richiesta di Attivazione" objMessage.From = "info@sitointernet.it" objMessage.To = "prova@sitointernet.it" objMessage.HTMLBody = html objMessage.Send Set objMessage = Nothing if err.number <> 0 then response.redirect("KO.asp") else response.redirect("OK.asp") end if %>
Grazie mille per l'aiuto
Rispondi quotando
