<%
Function SendEmail(pvFirstName, pvLastName)
DIM strEmail, strFirstName, strLastName, strSubject, strComments, oMail
strEmail = "elearning@ontarioaidsnetwork.on.ca"
strFirstName = pvFirstName
strLastName = pvLastName
strSubject = "Registration Approval Required"
strMsgHeader = "This mail message was sent from the OAN E-Learning Registration Form" & vbCrLf & vbCrLf
strBody = strMsgHeader & strFirstName & " " & strlastname & " is awaiting your approval." & vbcrlf
Set oMail = Server.CreateObject ( "CDONTS.NewMail" )
oMail.From = "elearning@ontarioaidsnetwork.on.ca"
oMail.To = strEmail
oMail.Importance = 1
' oMail.BodyFormat = 0;
' oMail.MailFormat = 0;
' if you want to add an attachment...
' uncomment the next line
' oMail.AttachFile ( 'c://autoexec.bat' );
oMail.Subject = strsubject
oMail.body = strBody
' send it
response.write(oMail.Send )
End Function
if request("submit") <> "" then
validerror = false
firstname = trim(request.Form("firstname"))
if len(firstname) = 0 then
firsterror = "Please enter a value"
validerror = true
end if
lastname = trim(request.Form("lastname"))
if len(lastname) = 0 then
lasterror = "Please enter a value"
validerror = true
end if
dim re, results, invalidflag
set re = New RegExp
email = trim(request.Form("email"))
if len(email) = 0 then
emailerror = "Please enter a value"
validerror = true
else
re.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
re.Global = True
re.IgnoreCase = True
results = re.Test(email)
if results then
emailerror = ""
else
emailerror = "Please enter a valid email address"
validerror = true
end if
end if
username = trim(request.Form("username"))
if len(username) < 6 then
usererror = "Entry is invalid"
validerror = true
end if
password = trim(request.Form("password"))
if len(password) < 6 then
passerror = "Entry is invalid"
validerror = true
end if
registerdate = date()
if validerror = false then
strsql = "Insert into tblUsers ( FirstName, LastName, Email, UserName, [Password], "
strsql = strsql & "RegistrationDate ) VALUES ( '" & firstname & "', '" & lastname
strsql = strsql & "', '" & email & "', '" & username & "', '" & password
strsql = strsql & "', #" & registerdate & "# );"
Open_db()
objconn.execute(strsql)
if err.number <> 0 then
Close_db()
response.redirect("problem.asp")
else
Close_db()
Successful = SendEmail(firstname, lastname)
response.redirect("success.asp")
end if
end if
end if
%>
Welcome to the Ontario AIDS Network Elearning Portal.
We invite you to enjoy the benefits of Elearning.
• E-Learning fosters interaction among students and instructors. Interaction stimulates understanding and the recall of information.
• Accommodates different learning styles and fosters learning through a variety of activities that apply to different learning styles.
• Fosters self-paced learning whereby students can learn at the rate they prefer.
• Convenient for students to access any time, any place.
• Reduces travel time and travel costs for students.
• Encourages students to browse information through hyperlinks to sites on the worldwide Web and there by find information relevant to their personal situations.
Allows students to select learning materials, or to be directed to content that meets their level of knowledge, interest and what they need to know to perform more effectively in their particular activity.
• Provides context sensitive help (Electronic performance support systems) to computer users and helps them complete tasks on-the-fly.
• Encouraging students to take responsibility for their learning and succeeding builds self-knowledge and self-confidence
Register Now!
<% response.write(strsql)%>
Once you have submitted your information it
may take up to 24 hours for approval. You will be emailed a confirmation
of your enrollment in Ontario AIDS Network's Elearning Portal.
