<%Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=rigbygra_db1;uid=rigbygra_damian;pwd=FuckinDamo" %> Damians Ball Quest: The Movie <% If Session("Username") = "" then If request.form("hiddenValue1") = "1" then dim name, pass name=Request.form("uname") pass=Request.form("password") set rsUser=Server.CreateObject("ADODB.recordset") userQuery="select * from USERMAST where UserName='" & name & "'and UserPassword='" & pass & "'" rsUser.Open userQuery,conn if not rsUser.EOF then Session("UserID")= rsUser("UserID") Session("Username")= rsUser("UserName") Session("UserNicname")= rsUser("UserNicname") Session("UserLevel")= rsUser("UserLevel") Response.Redirect "default.asp" else response.Write "

USER NAME & PASSWORD NOT MATCHING

" end if end if %>


JUST FUCKING LOGIN ALREADY
Username:
Password:
<% else %>

Roadblock: Must be completed in order to pass
Difficult: Bonus points
<% if Session("UserLevel") > 3 then %>Add new task<%end if%>

<% if Session("UserLevel") > 3 then %> <% end if %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 13 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 1 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 2 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 3 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 4 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 5 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <%Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 6 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 7 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 8 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 9 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 10 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 11 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% Set rsTaskList = Server.CreateObject("ADODB.Recordset") strTaskList = "SELECT * FROM TASKMAST WHERE TaskLevel = 12 ORDER BY TaskName DESC ;" rsTaskList.Open strTaskList, conn Do While not rsTaskList.EOF %> <% if Session("UserLevel") > 3 then %> <% end if %> <% rsTaskList.MoveNext Loop 'Reset server objects rsTaskList.Close Set rsTaskList = Nothing %> <% if Session("UserLevel") > 3 then %><%end if%> <% if Session("UserLevel") > 3 then %><%end if%> <% if Session("UserLevel") > 3 then %><%end if%> <% if Session("UserLevel") > 3 then %><%end if%>
  Type Task Name Breif ValueEdit
   Hide and Seek
class="complete"<%end if%>> class="complete"<%end if%>><%=rsTaskList("TaskType")%> class="complete"<%end if%>>"><%=rsTaskList("TaskName")%> class="complete"<%end if%>><%=rsTaskList("TaskObjective")%> class="complete"<%end if%>><%=rsTaskList("TaskValue")%>">edit
   Level 1
class="complete"<%end if%>> class="complete"<%end if%>><%=rsTaskList("TaskType")%> class="complete"<%end if%>>"><%=rsTaskList("TaskName")%> class="complete"<%end if%>><%=rsTaskList("TaskObjective")%> class="complete"<%end if%>><%=rsTaskList("TaskValue")%>">edit
   Level 2
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 3
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 4
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 5
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 6
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 7
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 8
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 9
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 10
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 11
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
   Level 12
<%=rsTaskList("TaskCompleted")%> <%=rsTaskList("TaskType")%> "><%=rsTaskList("TaskName")%> <%=rsTaskList("TaskObjective")%> <%=rsTaskList("TaskValue")%>">edit
          
?????   BOSS LEVEL   500 
          
          

Add New Task

Boss level: On the boss levels, for the picture of famous bosses (bowser, michael from the office, ect) with our face on it. Cameron and me as milificant and the crow, Trogdor bob)

 

LOGOUT <%end if%>