By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
443,369 Members | 1,138 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 443,369 IT Pros & Developers. It's quick & easy.

Help changing cdonts signup email to CDOSYS

P: 2

once members sign up to my site they get sent an email which contains there username/password which they enter on a sign up form. Once they've signed up the email is automatically sent using the code below.

The site uses classic asp and vbscript, with the email bit in cdonts. I recently changed hosts and they use cdosys.

I have used cdosys email before but are'nt sure how to get it to connect to the asp bits they enter on the sign up forms. The sign up forms is 5 pages long and they enter the username/password on page 1 and the email gets sent on page 5.

Heres the code for the email page:

<!--#include file="Connections/TATTOO.asp" -->
Dim signupSet
Dim signupSet_numRows

Set signupSet = Server.CreateObject("ADODB.Recordset")
signupSet.ActiveConnection = MM_TATTOO_STRING
signupSet.Source = "SELECT * FROM dbo.tbl_studios ORDER BY id DESC"
signupSet.CursorType = 0
signupSet.CursorLocation = 2
signupSet.LockType = 1

signupSet_numRows = 0

strEmail = signupSet.Fields.Item("email").Value
strSend = ""
Set EmailManager = Server.CreateObject("CDONTS.NewMail")
EmailManager.From = strSend
EmailManager.To = strEmail
EmailManager.Bcc = ""
EmailManager.Subject = "Thank you for signing up to"
EmailManager.BodyFormat = 0
EmailManager.MailFormat = 0
EmailManager.Body = "<font face=verdana size=2><b>Thank you for signing up to our tattoo directory</b><br><br>You now have access to a secure studio login area where you can upload examples of your work and write a short description about your studio. To login to this area please visit <a href=''></a> where you will be promted for your email address and password. In our system these details are :-<br><br><b>Email Address - </b> " & signupSet.Fields.Item("email").Value & "<br><b>Password - </b>" & signupSet.Fields.Item("password").Value & "<br><br>Please note that these details are case sensetive so must be entered exactly as they area above.<br><br>Please note we have to manually asign you to a county - therefore please allow an hour or so after you submit yourself before you start appearing on the site (office hours of course!).<br><br>If we can be of any further assistance please dont hesitate to contact us, and we look forward to sending many enquiries your way over the next 12 months.<br><br>" &_
"David Worden<br>Site Owner<br><br>" &_
"E :<br>" &_
"W :<br>" &_
"------------------------------------------------------------------<br>" &_
"61 Bolton Rd<br>" &_
"Abbey Village<br>" &_
"Chorley<br><br>" &_
"Lancs<br>" &_
"PR6 8DP<br>" &_



thanks for any help or advice
Jul 28 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.