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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Anyone know how to email the user after submitting form? 1
- Thread starter TonyU
- Start date
-
1
- #2
hey Tony,
heres some script that is for JMail - you need to find out what email service you can use - jmail, cdonts, aspmail, aspemail, etc. Change the recordset.fields.Item("stuff"
.Value stuff to request.form("Stuff"
<%
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
heres some script that is for JMail - you need to find out what email service you can use - jmail, cdonts, aspmail, aspemail, etc. Change the recordset.fields.Item("stuff"
.Value stuff to request.form("Stuff"<%
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
- Thread starter
- #3
well your just bloody on your own now arnt ya?
![[noevil]](/data/assets/smilies/noevil.gif "[noevil] [noevil]")
JUST kidding - I never get to say the word bloody in a sentance.
And without further a-do. here we are.
<%
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 MyMail = Server.CreateObject("CDONTS.NewMail"
MyMail.From = "Webmaster@yourdomain.com"
MyMail.Subject = "De' Registration"
MyMail.to = strRecipient
MyMail.CC = "webmaster@yourdetour.com"
MyMail.MailFormat = 0
MyMail.BodyFormat = 0
MyMail.Body = "<font face='arial' size ='3'>" &_
"IP Address - " & Request.Servervariables("REMOTE_ADDR" &_
"<BR>" &_
"Hello!" & strCallsign &_
"<br>" &_
"Email confirmation from here!" &_
"<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=' De' GVFForce</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>"
MyMail.importance = 1
MyMail.Send
Set MyMail = nothing
%>
"I like a man who grins when he fights."
-- Prime Minister Winston Churchill
Stuart
JUST kidding - I never get to say the word bloody in a sentance.
And without further a-do. here we are.
<%
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 MyMail = Server.CreateObject("CDONTS.NewMail"
MyMail.From = "Webmaster@yourdomain.com"
MyMail.Subject = "De' Registration"
MyMail.to = strRecipient
MyMail.CC = "webmaster@yourdetour.com"
MyMail.MailFormat = 0
MyMail.BodyFormat = 0
MyMail.Body = "<font face='arial' size ='3'>" &_
"IP Address - " & Request.Servervariables("REMOTE_ADDR"
&_"<BR>" &_
"Hello!" & strCallsign &_
"<br>" &_
"Email confirmation from here!" &_
"<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=' De' GVFForce</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>"
MyMail.importance = 1
MyMail.Send
Set MyMail = nothing
%>
"I like a man who grins when he fights."
-- Prime Minister Winston Churchill
Stuart
- Thread starter
- #5
![[2thumbsup]](/data/assets/smilies/2thumbsup.gif "[2thumbsup] [2thumbsup]")
"I like a man who grins when he fights."- Status
Similar threads
- Locked
- Question
