Help changing cdonts signup email to CDOSYS

[david220]

hi

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. www.uktattoostudios.co.uk/signup1.asp

Heres the code for the email page:

<%@LANGUAGE="VBSCRIPT"%>
<!--#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.Open()

signupSet_numRows = 0

' SEND THE USER A SIGNUP EMAIL
strEmail = signupSet.Fields.Item("email").Value
strSend = "[e-mail]"
Set EmailManager = Server.CreateObject("CDONTS.NewMail")
EmailManager.From = strSend
EmailManager.To = strEmail
EmailManager.Bcc = "[e-mail]"
EmailManager.Subject = "Thank you for signing up to www.uktattoostudios.co.uk"
EmailManager.BodyFormat = 0
EmailManager.MailFormat = 0
EmailManager.Body = "<font face=verdana size=2><b>Thank you for signing up to our tattoo directory www.uktattostudios.co.uk</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='http://www.uktattoostudios.co.uk/studios/index.asp'>http://www.uktattoostudios.co.uk/studios/index.asp</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 : [e-mail]<br>" &_
"W : www.uktattoostudios.co.uk<br>" &_
"------------------------------------------------------------------<br>" &_
"UK TATTOO STUDIOS<br>" &_
"61 Bolton Rd<br>" &_
"Abbey Village<br>" &_
"Chorley<br><br>" &_
"Lancs<br>" &_
"PR6 8DP<br>" &_
"------------------------------------------------------------------</font>"

EmailManager.Send

%>

thanks for any help or advice