<%@ language="vbscript"%>

<%if Request.Form("txtUserID") = "" then Response.Redirect "default.asp"%>

<!--#include file=DataStore.asp-->

<%

Dim sUserID 
sUserID = Request.Form("txtUserID")

Dim sendmail
Dim objConn 'Connection Object
Dim rsManager   'Recordset Object	

Dim sName, sEmail

'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")

'and open it
objConn.Open sConnect

'Create the recordset object
Set rsManager = Server.CreateObject("ADODB.Recordset")

'and open the MANAGER table
rsManager.Open "MANAGER", objConn, 0, 3, adCmdTable

'Filter the recordset and verify if information has already been saved with this user id
rsManager.Filter = "managerid = '" & sUserID & "'"

'test if recordset is empty
if rsManager.EOF then
	'there is no record for this person add his information
	rsManager.AddNew
end if

'store new/modified information
rsManager("managerid")= Request.Form("txtUserID")
rsManager("password")= Request.Form("txtPassword")
rsManager("name")= Request.Form("txtName")
rsManager("email")= Request.Form("txtEmail")
rsManager("lastlogin")= now()
rsManager("active")= -1
'end store
rsManager.Update

'Instantiate the SMTP Mailer address
Set sendmail = Server.CreateObject("SMTPsvg.Mailer")

sName = Request.Form("txtName")
sEmail = Request.Form("txtEmail")

'put the webmaster address here
sendmail.FromName = "WebMaster"
sendmail.FromAddress = "[email protected]"

'Set remote host (SMTP) Host
sendmail.RemoteHost = "smtp.rcn.com"

'The mail is sent to the address entered in the previous page.
sendmail.AddRecipient sName, sEmail

'Set the return receipt flag to false
sendmail.ReturnReceipt = false

'send the confirm read flag to false
sendmail.ConfirmRead = false

'Enter the subject of your mail here
sendmail.Subject = "Welcome to School-jobs.net!"

 'This is the content of thr message.
sendmail.BodyText = "Dear Colleague �" & vbCrlf & vbCrlf _
& "Thank you for registering with School-Jobs -- This is the Place!" & vbCrlf & vbCrlf _
& "Here is your login information:" & vbCrlf _
& "Username=" & sUserID & vbCrlf _
& "Password=" & Request.Form("txtPassword") & vbCrlf & vbCrlf _
& "If you have any comments or questions about our site or our services," & vbCrlf _
& "please don't hesitate to contact us.  We value the input from all of" & vbCrlf _
& "our customers, and we look forward to fulfilling your hiring needs!" & vbCrlf _
& "We�re continuously trying to make finding the perfect job and the perfect candidate Perfect!" & vbCrlf & vbCrlf _
& "Regards," & vbCrlf & vbCrlf _
& "Howard J. Bender, Ph.D." & vbCrlf _
& "President" & vbCrlf _
& "Education Process Improvement Center, Inc." & vbCrlf _
& "http://www.school-jobs.net/"

'this sets mail priority.... 5=low 3=normal 1=high
sendmail.Priority = 2
'send mail
if sendmail.SendMail then
	'Goto the main menu
	Response.Redirect "schmenu.asp?menu=school&userid=" & sUserID
else
	Response.write "Mail failure. Your account information was not sent. Please send an email to <a href=""mailto:[email protected]"">webmaster</a>."
end if

'Close Data Access Objects and free DB variables
rsManager.Close
Set rsManager = Nothing
objConn.Close
Set objConn = Nothing
Set sendmail = Nothing

%>