|
|
<%
AdminTask = Request.Form("AdminTask")
AdminFunc = Request.Form("AdminFunc")
Password = Request.Form("Password")
ParamClause = "&password=" & Password
If AdminTask = "Questions" Then
TableName = "moxyquiz"
DBName = "moxyquiz"
End If
If AdminTask = "Players" Then
TableName = "players"
DBName = "moxyquiz"
End If
If AdminTask = "Comments" Then
TableName = "comments"
DBName = "moxyquiz"
End If
If AdminTask = "Protests" Then
TableName = "protest"
DBName = "moxyquiz"
End If
If AdminTask = "eCardImages" Then
TableName = "images"
DBName = "fruecards"
End If
If AdminTask = "eCard" Then
TableName = "ecards"
DBName = "fruecards"
End If
If AdminTask = "DHQuestions" Then
TableName = "QuestionsAsked"
DBName = "daveshead"
End If
If AdminTask = "DHQuotes" Then
TableName = "Quotes"
DBName = "daveshead"
End If
If AdminTask = "Haikus" Then
TableName = "haikus"
DBName = "fruhaiku"
End If
If AdminTask = "Limericks" Then
TableName = "limericks"
DBName = "frulimerick"
End If
If AdminTask = "Admin" Then
TableName = "AdminOptions"
DBName = "fruplay"
End If
If AdminTask = "Graffitti" Then
TableName = "Graffitti"
DBName = "fruplay"
End If
If AdminTask = "FruQ" Then
TableName = "QOD"
DBName = "fruplay"
End If
If AdminTask = "FruQComments" Then
TableName = "QODComments"
DBName = "fruplay"
End If
If AdminTask = "FruProtests" Then
TableName = "Protests"
DBName = "fruplay"
End If
If AdminTask = "Guestbook" Then
TableName = "guestbook"
DBName = "fruguestbook"
End If
If AdminTask = "Stories" Then
TableName = "stories"
DBName = "frustories"
End If
If AdminTask = "CalendarEvents" Then
TableName = "Events"
DBName = "frucalendar"
End If
If AdminTask = "CalendarAppointments" Then
TableName = "Appointments"
DBName = "frucalendar"
End If
If AdminTask = "Members" Then
TableName = "Members"
DBName = "frumembers"
End If
If AdminTask = "HangLadWords" Then
TableName = "HangLadWords"
DBName = "fruwordgames"
End If
If AdminTask = "MerchRequest" Then
TableName = "RequestMerch"
DBName = "frumerch"
End If
If AdminTask = "MerchLimit" Then
TableName = "Limit"
DBName = "frumerch"
End If
If AdminTask = "Tetris" Then
TableName = "Tetris"
DBName = "frutetris"
End If
If AdminTask = "DetermanGuestBook" Then
TableName = "GuestBook"
DBName = "www"
End If
If AdminTask = "MyQuizAdmin" Then
TableName = "AdminOptions"
DBName = "myquiz"
End If
If AdminTask = "MyQuizQuestions" Then
TableName = "myquiz"
DBName = "myquiz"
End If
If AdminTask = "MyQuizPlayers" Then
TableName = "players"
DBName = "myquiz"
End If
If AdminTask = "MyQuizComments" Then
TableName = "comments"
DBName = "myquiz"
End If
If AdminTask = "MyQuizProtests" Then
TableName = "protest"
DBName = "myquiz"
End If
If AdminFunc = "Select" Then
AdminPage = "moxyselecttable.asp?" & "Table=" & TableName & "&DB=" & DBName & ParamClause
End If
If AdminFunc = "Add" Then
AdminPage = "moxyaddtable.asp?" & "Table=" & TableName & "&DB=" & DBName & ParamClause
End If
If AdminFunc = "All" Then
AdminPage = "moxyviewtable.asp?" & "Table=" & TableName & "&DB=" & DBName & ParamClause
End If
Response.Write(AdminPage)
If IsNull(AdminPage) or AdminPage = "" Then
%>
No Task to Perform.
<%
Else
Response.Redirect(AdminPage)
End If
%>
|