• Released under GPL

General Info
Main Page
Latest News
Schedule
What is it?
About Matt
About This Site

Duke Enhancements
Latest Features
Older Features
Cheat Codes

Duke Insider
Language Basics
Compile Time
Room over Room
Player Structures
UserDef Explanations

More Information
Features Database
E Duke Forum

WW2GI Enhancements
Variables
Weapon Changes
Weapon Settings
System Variables
Events
All



Enhanced Duke Nukem Ideas
Copyright (C) 2000, Matt Saettler. All Rights Reserved. <% Function IsWeekEnd(iDate) IsWeekEnd=0 if WeekDay(iDate, vbSunday) = 7 then IsWeekEnd=1 end if if WeekDay(iDate, vbSunday) = 1 then IsWeekEnd=1 end if End Function Function ManDaysToTotalDays(iDateStart, iManDays) Dim iTotalDays 'response.write("
ManDaysToTotalDays " & iDateStart & " MDays= " & iManDays & chr(13)) iTotalDays=0 ' first, check starting day... if WeekDay(iDateStart, vbSunday) = 7 then ' it's a saturday iTotalDays=iTotalDays+2 iDateStart=iDateStart+2 end if if WeekDay(iDateStart, vbSunday) = 1 then ' it's a sunday iTotalDays=iTotalDays+1 iDateStart=iDateStart+1 end if do while iManDays >0 iManDays=iManDays - 1 iDateStart=iDateStart + 1 iTotalDays=iTotalDays + 1 if WeekDay(iDateStart, vbSunday) = 7 then ' it's a saturday iDateStart=iDateStart+2 iTotalDays=iTotalDays+2 end if if WeekDay(iDateStart, vbSunday) = 1 then ' it's a sunday iDateStart=iDateStart+1 iTotalDays=iTotalDays+1 end if 'response.write("
CP1: " & iManDays & " " & iDateStart & " " &iTotalDays & chr(13)) loop 'response.write("
CP2: " & iManDays & " " & iDateStart & " " &iTotalDays & chr(13)) ManDaysToTotalDays=iTotalDays End Function Function sParseTextToHTML(ByVal sText) 'This function replaces carriage returns and line feeds with
Dim s Dim nPosition nPosition = InStr(sText, Chr(13)) While nPosition > 0 sText = Left(sText, nPosition - 1) & "
" & Right(sText, Len(sText) - nPosition) nPosition = InStr(sText, Chr(13)) Wend nPosition = Instr(sText, Chr(10)) 'While nPosition > 0 ' sText = Left(sText, nPosition - 1) & "
" & Right(sText, Len(sText) - nPosition) ' nPosition = InStr(sText, Chr(10)) 'Wend sParseTextToHTML = sText End Function Function sParseTextToSQL(ByVal sText) 'This function replaces any SQL specific characters with 'safe' equiv Dim nPosition nPosition = InStr(sText, "'") While nPosition > 0 sText = Left(sText, nPosition - 1) & "" & Right(sText, Len(sText) - nPosition) nPosition = InStr(sText, "'") Wend nPosition = InStr(sText, "") While nPosition > 0 sText = Left(sText, nPosition - 1) & "''" & Right(sText, Len(sText) - nPosition - 7) nPosition = InStr(sText, "") Wend sParseTextToSQL = sText End Function %> <% 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)%>