<% Session("blnIsUserGood") = False 'Dimension Variables Dim strUserName 'Holds the name of the user 'Get the users name passed from the previous page strUserName = Request.QueryString("name") %>

EDFN 475 (Human Relations)


You Are Not Logged In.  Most links only work in the password protected area of the web site. 

 

<% 'Create an ADO recordset object Set rsLostPassword = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT lostpassword FROM tblAdmin" 'Open the recordset with the SQL query rsLostPassword.Open strSQL, adoCon If rsLostPassword("lostpassword") = 1 then Response.Write ("") End If Set rsLostPassword = Nothing %> <% 'Create an ADO recordset object Set rsRegister = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT register FROM tblAdmin" 'Open the recordset with the SQL query rsRegister.Open strSQL, adoCon If rsRegister("register") = 1 then Response.write ("") End If Set rsRegister = Nothing Set adoCon = Nothing %>
User name:
Password:
           
 Get lost password  here
 Register for an account  here

 

----------------------------------------------------------------------

Welcome <% =strUserName %> to the non-protected area of the web site.

bulletEDFN 475 Syllabus
 
bulletDelivery Plan
 
bulletInformation Sheet