Forum

ASP ASP ASP - Από {xristos}

Έχει κανείς κάποια ιδέα πώς μπορώ να συλλέγω και να στέλνω email τα στοιχεία μιας φόρμας (απο UltraDev) που κανει Insert se db, χωρίς να κάνω post σε κάποια άλλη σελίδα.

Απάντηση από:Mpotonakis

παράδειγμα κώδικα.
<P>&lt;%<BR><BR> sub SendMail(sTo, sSubject, sBody)<BR> sMailServer = "mail.domain.com"<BR> sMailSender = "user@domain.com"<BR> sMailSenderName = "domain postman"<BR><BR> Set JMail = Server.CreateObject("JMail.SMTPMail")<BR> JMail.ContentType = "text"<BR> JMail.ServerAddress = sMailServer<BR> JMail.Sender = sMailSender<BR> JMail.Sendername = sMailSenderName<BR> JMail.Subject = sSubject<BR> JMail.AddRecipient = "user@domain.com"<BR> JMail.Body = sBody<BR> JMail.Execute<BR> end sub<BR><BR><BR>%><BR><BR>&lt;br><BR><BR>&lt;/p><BR>&lt;form action="filename.asp" method="post"><BR>Εδώ η φόρμα σου και τα σχετικά.<BR>&lt;/table><BR>&lt;/form><BR>&lt;br>&lt;br>&nbsp;<BR><BR><BR>&lt;%&nbsp;<BR><BR>Εδώ ή σύνδεση με την database<BR><BR> OpenDB formmail<BR><BR> sSQL = "SELECT * FROM 'κλπ για το τι θα κάνει η φόρμα σου<BR><BR>'παράδειγμα για το update<BR> rs.AddNew<BR> rs("UserName") = sUserName<BR> rs("Password") = sPassword<BR> rs("Email") = sEmail<BR> rs("FirstName") = sFirstName<BR> rs("LastName") = sLastName<BR><BR> rs.update<BR><BR> sSubject = "Θέμα"<BR> sBody = "Κείμενο." &amp; vbcrlf &amp; vbcrlf<BR><BR><BR> SendMail sEmail, sSubject, sBody 'πρόσθεσε τα υπόλοιπα για το τι θέλεις στο email<BR><BR><BR> %><BR> &lt;br>&lt;br><BR> Κείμενο για μετά το submit.<BR> &lt;br>&lt;br><BR><BR> &lt;%<BR> end if<BR><BR><BR>%></P>

Απάντηση από:xristos

den ksero an katalaves tin erotisi mou.....
An kai den nomizo, euxaristo.

Απάντηση από:Mpotonakis

Εντάξει τότε θα συμφωνήσω μαζί σου.

Απάντηση από:jimbov

Gia mail 8a prepei na arxikopoihseis obect vasei component pou kanei reside sto server.

Alliws, mporeis na kaneis self-post sthn idia selida kai apo ekei na stelnei mesw mail ta dedomena twn pediwn ths formas...
Hope that helps...