Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Sending an email after the form has been filled - How? Bit Urgent
- Thread starter JrClown
- Start date
![[atom]](/data/assets/smilies/atom.gif "[atom] [atom]")
wnexample using JMAIL. You can change the references to recordset to request.form
<%
Dim strRecipient
Dim strCallsign
Dim strPassword
Dim strSquad
Dim strYahoo
Dim strICQ
strRecipient = Recordset1.Fields.Item("Email"
.Value
strCallsign = Recordset1.Fields.Item("callsign".Value
strPassword = Recordset1.Fields.Item("password".Value
strSquad = Recordset1.Fields.Item("squad".Value
strYahoo = Recordset1.Fields.Item("yahoo".Value
strICQ = Recordset1.Fields.Item("ICQ".Value
%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail"
JMail.ServerAddress = "smtp.yourdomain.com"
JMail.ContentType = "text/html"
JMail.Sender = "Webmaster@yourdomain.com"
JMail.Subject = "De Domain Registration"
JMail.AddRecipient strRecipient
JMail.AddRecipient "webmaster@YourDomain.com"
JMail.Body = "<font face='arial' size ='3'>" &_
"IP Address - " & Request.Servervariables("REMOTE_ADDR" &_
"<BR>" &_
"Hello!" & strCallsign &_
"<br>" &_
"Email confirmation from De Site" &_
"<br>" &_
"Here are your registration details:" &_
"<br>" &_
"Callsign:" & strCallsign &_
"<br>" &_
"Password:" & strPassword &_
"<br>" &_
"Squad:" & strSquad &_
"<br>" &_
"Yahoo:" & strYahoo &_
"<br>" &_
"ICQ:" & strICQ &_
"<p>" &_
"Go to <a href=' Domain</a> to log in and get started..." &_
"<p>" &_
"We highly recommend changing your password through the edit my account link. At least to a password you will remember" &_
"<P>" &_
"<BR>" &_
"Please note - you will need to register in the messageboard area to post" &_
"<BR>" &_
"<BR>" &_
"Cheers," &_
"<br>" &_
"US!" &_
"<br>" &_
"</font>"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR"
JMail.Priority = 1
JMail.Execute
Set Jmail = nothing
%>
"I like a man who grins when he fights."
-- Prime Minister Winston Churchill
Stuart
<%
Dim strRecipient
Dim strCallsign
Dim strPassword
Dim strSquad
Dim strYahoo
Dim strICQ
strRecipient = Recordset1.Fields.Item("Email"
.ValuestrCallsign = Recordset1.Fields.Item("callsign"
.ValuestrPassword = Recordset1.Fields.Item("password"
.ValuestrSquad = Recordset1.Fields.Item("squad"
.ValuestrYahoo = Recordset1.Fields.Item("yahoo"
.ValuestrICQ = Recordset1.Fields.Item("ICQ"
.Value%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail"
JMail.ServerAddress = "smtp.yourdomain.com"
JMail.ContentType = "text/html"
JMail.Sender = "Webmaster@yourdomain.com"
JMail.Subject = "De Domain Registration"
JMail.AddRecipient strRecipient
JMail.AddRecipient "webmaster@YourDomain.com"
JMail.Body = "<font face='arial' size ='3'>" &_
"IP Address - " & Request.Servervariables("REMOTE_ADDR"
&_"<BR>" &_
"Hello!" & strCallsign &_
"<br>" &_
"Email confirmation from De Site" &_
"<br>" &_
"Here are your registration details:" &_
"<br>" &_
"Callsign:" & strCallsign &_
"<br>" &_
"Password:" & strPassword &_
"<br>" &_
"Squad:" & strSquad &_
"<br>" &_
"Yahoo:" & strYahoo &_
"<br>" &_
"ICQ:" & strICQ &_
"<p>" &_
"Go to <a href=' Domain</a> to log in and get started..." &_
"<p>" &_
"We highly recommend changing your password through the edit my account link. At least to a password you will remember" &_
"<P>" &_
"<BR>" &_
"Please note - you will need to register in the messageboard area to post" &_
"<BR>" &_
"<BR>" &_
"Cheers," &_
"<br>" &_
"US!" &_
"<br>" &_
"</font>"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR"
JMail.Priority = 1
JMail.Execute
Set Jmail = nothing
%>
"I like a man who grins when he fights."
-- Prime Minister Winston Churchill
Stuart
- Status
Similar threads
- Locked
- Question