<%@ Language=VBScript %> <% dim fname,mname,lname, email, hphone, wphone, schoolName, user, pass, pass2, submitted dim schoolID, maxID dim errMsg, bodyText dim conn dim RSbuffer, RSbuffer2 dim sqlQuery dim mail set conn = server.CreateObject("ADODB.connection") conn.Open ConnectionString 'check if it is a submitted page submitted = trim(Request.Form("submitted")) 'request all variables to be transferred fname = trim(Request.Form("fname")) mname= trim(Request.Form("mname")) lname= trim(Request.Form("lname")) email = trim(Request.Form("email")) schoolName = ucase(trim(Request.Form("schoolName"))) wphone = trim(Request.Form("wphone")) user = trim(Request.Form("user")) pass = trim(Request.Form("pass")) pass2= trim(Request.Form("pass2")) if submitted <> "yes" then %>

NEW USER REGISTRATION
_______________

[ Return to login page ]

___________________
<% errMsg = trim(Request.QueryString("errMsg")) if InStr(errMsg,"usrNameExist") <> 0 then %>
ERROR: Username has already been user by another user <% else if InStr(errMsg,"passmismatch") <> 0 then %>
ERROR: The password you supplied and the re-entered password do not match <% end if end if %>

Please enter your personal data

Name first m.i last

Email

Phone No.

University represented

Please choose your username and password

username (up to 20 characters)

password (up to 20 characters)

re-enter password

<% else if submitted = "yes" then 'look if the username exist in the user table sqlQuery = "select * from tbl_IEEE_user where ususername='"&user&"'" set RSBuffer = conn.Execute(sqlQuery) errMsg ="" if RSBuffer.eof = false then errMsg=errMsg & "usrnameexist" end if 'look if the password and the confirmation password do not match if pass <> pass2 then errMsg=errMsg & "passmismatch" end if 'if there is any error in the registration, send the user to fill out the form again if errMsg <> "" then Response.Redirect("surveyRegister.asp?errMsg="&errMsg) 'if there is no error. start checking if the school name exist in the database else if errMsg = "" then sqlQuery = "select * from tbl_IEEE_School where scname='"&ucase(schoolName)&"'" set RSbuffer = conn.Execute(sqlQuery) 'if so, get schoolID if RSbuffer.eof = false then schoolID = cint(RSBuffer("SCID")) 'if not insert school name to database else 'determine the highest school id first 'sqlQuery = "select max(scid) as MaxID from tbl_IEEE_school" 'set RSBuffer = conn.Execute(sqlquery) 'maxID = cint(RSBuffer("maxID")) 'maxID = maxID + 1 sqlQuery = "insert into tbl_IEEE_school(SCNAME) values ('"& ucase(schoolName) &"')" conn.Execute(sqlquery) sqlQuery = "select * from tbl_IEEE_school where SCNAME='"& ucase(schoolName) &"'" set RSbuffer2 = conn.Execute(sqlQuery) schoolID = cint(RSbuffer2("SCID")) end if 'determine the highest user id first 'sqlQuery = "select max usid as MaxID from tbl_IEEE_user" 'set RSBuffer = conn.Execute(sqlquery) 'maxID = cint(RSBuffer("maxID")) 'maxID = maxID + 1 'insert all user data to the database sqlQuery = "insert into tbl_IEEE_User(USFNAME,USMNAME,USLNAME,USEMAIL,USPHONEHOME,USPHONEWORK," sqlQuery = sqlQuery & "USSCID,USUSERNAME,USPASSWORD) values ('"&fname&"','"&mname&"','"&lname&"','" sqlQuery = sqlQuery & email&"','0','"&wphone&"',"&schoolID&",'"&user&"','"&pass&"')" conn.Execute(sqlQuery) end if end if %>

NEW USER REGISTRATION
_______________

[ Return to login page ]

___________________

Your registration has been accepted. We will inform you by email when your registration has been approved.

<% ' **** GET THE ADMIN MAIL and password sqlQuery = "select * from variable_table where description = 'admin_mail'" set RSBuffer= conn.Execute(sqlquery) if RSBuffer.EOF = false then adminMail = trim(RSBuffer("value")) end if 'Response.Write adminMail & "
" Set Mail = Server.CreateObject("IPWorksASP.SMTP") Mail.MailServer = "mailhub.iastate.edu" Mail.From = adminMail 'Response.Write "From : " & Mail.From & "
" Mail.Subject = "Survey Registration Approval" bodyText= "The following user(s) need(s) your approval to start filling out the survey :"&vbCrlf bodyText = bodyText & fname& " "&mname&" "&lname&" of "&schoolName&"."&vbCrLf bodyText = bodyText & "Please login to www.powerlearn.org/survey/surveyAdminLogin.asp ." Mail.MessageText = bodyText Mail.SendTo = "jdm@iastate.edu" Mail.CC="cyclon@iastate.edu" Mail.Send set RSbuffer = nothing set COnn= nothing end if end if %>