Enhanced Duke Nukem Ideas
Copyright (C) 2000, Matt Saettler. All Rights Reserved. <% sIdeaImplemented = Request.QueryString("IdeaImplemented") %>

<% if sIdeaImplemented="Yes" then Response.Write("View Ideas Awaiting Implementation") else Response.Write("View Already Implemented") end if %> Enhanced Duke Nukem Site Matt Saettler
<% sShowDetail = Request.QueryString("Detail") if sShowDetail = "" then sShowDetail="No" end if Session.timeout = 40 If IsObject(Session("saettler_conn")) Then Set conn = Session("saettler_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "saettler","","" Set Session("saettler_conn") = conn End If ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Criteria section. ' selection criteria Response.Write("
" + chr(13)) sIdeaID = Request.QueryString("IdeaID") if sIdeaID <> "" then Response.Write("" + chr(13)) if sAutoAdd <> "" Then sAutoAdd=sAutoAdd & "&" End If sAutoAdd=sAutoAdd & "IdeaID=" & sIdeaID sShowDetail="Yes" End If if sIdeaImplemented <> "" then Response.Write("" + chr(13)) if sAutoAdd <> "" Then sAutoAdd=sAutoAdd & "&" End If sAutoAdd=sAutoAdd & "IdeaImplemented=" & sIdeaImplemented else if sIdeaId = "" Then sIdeaImplemented="No" Response.Write("" + chr(13)) end if End If sIdeaRanking = Request.QueryString("IdeaRanking") if sIdeaRanking <> "" then Response.Write("" + chr(13)) if sAutoAdd <> "" Then sAutoAdd=sAutoAdd & "&" End If sAutoAdd=sAutoAdd & "IdeaRanking=" & sIdeaRanking End If sWhere="" sql = "SELECT * FROM [DukeIdeas]" If cstr(sIdeaID) <> "" Then If sWhere <> "" Then sWhere=sWhere & " AND " End If sWhere=sWhere + "(([DukeIdeas].[IdeaID]) = " & sIdeaID & ") " End If If cstr(sIdeaImplemented) <> "" Then If sWhere <> "" Then sWhere=sWhere & " AND " End If sWhere=sWhere + "(([DukeIdeas].[IdeaImplemented]) = " & sIdeaImplemented & ") " End If If cstr(sIdeaRanking) <> "" Then If sWhere <> "" Then sWhere=sWhere & " AND " End If sWhere=sWhere + "(([DukeIdeas].[IdeaRanking]) " & sIdeaRanking & ") " End If 'Response.Write("
Criteria:
IdeaID is " & sIdeaID & "
IdeaImplemented is " & sIdeaImplemented & "
Idea is not yet implemented
IdeaRanking is " & sIdeaRanking & "
") If sWhere <> "" Then sql=sql & " WHERE (" & sWhere & ") " End If if sIdeaID = "" Then Response.Write("") Response.Write("" + chr(13)) sOrder="[DukeIdeas].[IdeaRanking]" end if if sOrder <> "" then sql = sql & "ORDER BY " & sOrder else Response.Write("") end if Response.Write("
Sorting
In expected implementation order (Ranking)
No Sorting
") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 ' Response.Write(" Query string is '" & sql & "'

") 'On Error Resume Next rs.MoveFirst %> <% 'if sShowDetail="No" then %> <% 'end if do while Not rs.eof 'response.flush() %> <% if sShowDetail = "Yes" Then %> <% if IsNull(rs.Fields("IdeaInVersion").Value) then ' Nothing else %> <% end if ' if idea implemented %> <% End If ' if sShowDetail %> <%rs.MoveNext loop%>
Ranking Name Thinker

<%=cstr(rs.Fields("IdeaRanking").Value)%>

"><% if IsNull(rs.Fields("IdeaName")) Then Response.Write("ID = " + cstr(rs.Fields("IdeaID").Value)) Else Response.Write(cstr(rs.Fields("IdeaName").Value)) end if %> <% Set rs2 = Server.CreateObject("ADODB.Recordset") sql = "select * from [DukePerson] where [DukePerson].[PersonID] = " + cstr(rs.Fields("ThinkerID").Value) rs2.Open sql, conn, 3, 3 rs2.MoveFirst Response.Write(rs2.Fields("Alias").Value) rs2.Close %>
<% if rs.Fields("IdeaDifficulty").Value = 0 then Response.Write("Difficulty Not Set by Matt") else if rs.Fields("IdeaDifficulty").Value < 300 then Response.Write("Easy to implement") else if rs.Fields("IdeaDifficulty").Value < 555 then Response.Write("Hard to implement") else if rs.Fields("IdeaDifficulty").Value < 666 then Response.Write("Very Hard to implement") else response.Write("Very hard (impossible) to implement") end if end if end if end if %>
Description <%=sParseTextToHTML(rs.Fields("IdeaDescription").Value)%>
Implemented in Build: <%=cstr(rs.Fields("IdeaInVersion").Value)%>
Matt's Comments <%=sParseTextToHTML(rs.Fields("IdeaComments").Value)%>