<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<head>
<style>.content {
padding: 20px;
height: 100%;
width: 944px;
margin-left: auto;
margin-right: auto;
}
.fold {
width: 20px;
float: left;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.number {
width: 45px;
float: left;
margin-right: 10px;
text-align: right;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.line {
}
.content {
font-family: "Monospace";
font-size: 1em;
background: #3f3f3f;
color: White;
width: 944px;
padding: 20px;
height: 100%;
margin-left: auto;
margin-right: auto;
}
font.Alert {
color: Yellow;
font-weight: bold;
}
font.Annotation {
color: Yellow;
font-style: italic;
}
font.Attribute {
color: LightPink;
}
font.BaseN {
color: Gold;
}
font.BuiltIn {
color: Coral;
}
font.Char {
color: Cyan;
}
font.Comment {
color: Beige;
font-style: italic;
}
font.CommentVar {
color: LightBlue;
font-style: italic;
}
font.Constant {
color: White;
font-weight: bold;
}
font.ControlFlow {
color: DeepPink;
}
font.DataType {
color: CadetBlue;
}
font.DecVal {
color: MediumPurple;
font-weight: bold;
}
font.Documentation {
color: Gold;
font-style: italic;
}
font.Error {
color: Red;
font-weight: bold;
}
font.Extension {
color: DarkGray;
font-weight: bold;
}
font.Float {
color: DarkViolet;
font-weight: bold;
}
font.Function {
color: RosyBrown;
}
font.Import {
color: PaleVioletRed;
}
font.Information {
color: LightGreen;
font-style: italic;
}
font.Keyword {
color: LightGreen;
font-weight: bold;
}
font.Normal {
color: White;
}
font.Operator {
color: Magenta;
}
font.Others {
color: GreenYellow;
}
font.Preprocessor {
color: DarkSeaGreen ;
font-weight: bold;
}
font.RegionMarker {
color: Plum;
}
font.SpecialChar {
color: Plum;
font-weight: bold;
}
font.SpecialString {
color: LightBlue;
}
font.String {
color: MediumAquaMarine;
}
font.Variable {
color: Turquoise;
font-weight: bold;
}
font.VerbatimString {
color: LightSkyBlue;
}
font.Warning {
color: Brown;
font-weight: bold;
}
</style>
<title>Kamelon output</title>
</head>
<body>
<div class="content">
<div id="1" class="line"><font class="Keyword"><%</font><font class="Normal"> </font><font class="Comment">'kate: hl ASP;</font></br></div>
<div id="2" class="line"><font class="ControlFlow">if</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal"> </font><font class="Function">instr</font><font class="Others">(</font><font class="Function">request</font><font class="Normal">.</font><font class="Function">servervariables</font><font class="Others">(</font><font class="String">"PATH_INFO"</font><font class="Others">),</font><font class="String">"login.asp"</font><font class="Others">)</font><font class="Normal"> <= </font><font class="Float">0</font><font class="Normal"> </font><font class="Keyword">and</font><font class="Normal"> </font><font class="Function">instr</font><font class="Others">(</font><font class="Function">request</font><font class="Normal">.</font><font class="Function">servervariables</font><font class="Others">(</font><font class="String">"PATH_INFO"</font><font class="Others">),</font><font class="String">"inset"</font><font class="Others">)</font><font class="Normal"> <= </font><font class="Float">0</font><font class="Normal"> </font><font class="Keyword">and</font><font class="Normal"> </font><font class="Function">instr</font><font class="Others">(</font><font class="Function">request</font><font class="Normal">.</font><font class="Function">servervariables</font><font class="Others">(</font><font class="String">"PATH_INFO"</font><font class="Others">),</font><font class="String">"Data"</font><font class="Others">)</font><font class="Normal"> <= </font><font class="Float">0</font><font class="Normal"> </font><font class="Keyword">and</font><font class="Normal"> </font><font class="Function">instr</font><font class="Others">(</font><font class="Function">request</font><font class="Normal">.</font><font class="Function">servervariables</font><font class="Others">(</font><font class="String">"PATH_INFO"</font><font class="Others">),</font><font class="String">"dropDown"</font><font class="Others">)</font><font class="Normal"> <= </font><font class="Float">0</font><font class="Normal"> </font><font class="Others">)</font><font class="Normal"> </font><font class="ControlFlow">then</font></br></div>
<div id="3" class="line"><font class="Normal"> </font><font class="Function">Session</font><font class="Others">(</font><font class="String">"originalRequestedPage"</font><font class="Others">)</font><font class="Normal"> = </font><font class="Function">Request</font><font class="Normal">.</font><font class="Function">ServerVariables</font><font class="Others">(</font><font class="String">"PATH_INFO"</font><font class="Others">)</font><font class="Normal"> </font><font class="Keyword">&</font><font class="Normal"> </font><font class="String">"?"</font><font class="Normal"> </font><font class="Keyword">&</font><font class="Normal"> </font><font class="Function">Request</font><font class="Normal">.</font><font class="Function">ServerVariables</font><font class="Others">(</font><font class="String">"QUERY_STRING"</font><font class="Others">)</font></br></div>
<div id="4" class="line"><font class="ControlFlow">end if</font></br></div>
<div id="5" class="line"></br></div>
<div id="6" class="line"><font class="Keyword">function</font><font class="Normal"> countRecords</font><font class="Others">(</font><font class="Normal"> rsToCount </font><font class="Others">)</font></br></div>
<div id="7" class="line"><font class="Normal"> numRecs = </font><font class="Float">0</font></br></div>
<div id="8" class="line"></br></div>
<div id="9" class="line"><font class="Normal"> </font><font class="ControlFlow">do</font><font class="Normal"> </font><font class="ControlFlow">until</font><font class="Normal"> rsToCount.</font><font class="Keyword">eof</font></br></div>
<div id="10" class="line"><font class="Normal"> numRecs = numRecs + </font><font class="Float">1</font></br></div>
<div id="11" class="line"></br></div>
<div id="12" class="line"><font class="Normal"> rsToCount.</font><font class="Keyword">movenext</font></br></div>
<div id="13" class="line"><font class="Normal"> </font><font class="ControlFlow">loop</font></br></div>
<div id="14" class="line"></br></div>
<div id="15" class="line"><font class="Normal"> rsToCount.</font><font class="Keyword">close</font><font class="Normal"> </font><font class="Comment">' just to make sure nobody</font></br></div>
<div id="16" class="line"><font class="Normal"> </font><font class="Comment">' tries to operate on the recordset,</font></br></div>
<div id="17" class="line"><font class="Normal"> </font><font class="Comment">' which has already reached eof</font></br></div>
<div id="18" class="line"></br></div>
<div id="19" class="line"><font class="Normal"> countRecords = numRecs</font></br></div>
<div id="20" class="line"><font class="Keyword">end function</font></br></div>
<div id="21" class="line"></br></div>
<div id="22" class="line"><font class="Keyword">function</font><font class="Normal"> unique</font><font class="Others">(</font><font class="Normal"> rs</font><font class="Others">,</font><font class="Normal"> sortColumn </font><font class="Others">)</font><font class="Normal"> </font><font class="Comment">' return unique instances of text in sortColumn within rs</font></br></div>
<div id="23" class="line"><font class="Normal"> </font><font class="Keyword">dim</font><font class="Normal"> sorted</font><font class="Others">()</font></br></div>
<div id="24" class="line"></br></div>
<div id="25" class="line"><font class="Normal"> </font><font class="Keyword">redim</font><font class="Normal"> sorted</font><font class="Others">(</font><font class="Float">1</font><font class="Others">)</font></br></div>
<div id="26" class="line"><font class="Normal"> </font><font class="Keyword">dim</font><font class="Normal"> i</font></br></div>
<div id="27" class="line"><font class="Normal"> i = </font><font class="Float">0</font></br></div>
<div id="28" class="line"><font class="Normal"> </font><font class="ControlFlow">do</font><font class="Normal"> </font><font class="ControlFlow">until</font><font class="Normal"> rs.</font><font class="Keyword">eof</font></br></div>
<div id="29" class="line"><font class="Normal"> </font><font class="ControlFlow">if</font><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">not</font><font class="Normal"> find</font><font class="Others">(</font><font class="Normal"> rs</font><font class="Others">(</font><font class="Normal">sortColumn</font><font class="Others">),</font><font class="Normal"> sorted </font><font class="Others">))</font><font class="Normal"> </font><font class="ControlFlow">then</font></br></div>
<div id="30" class="line"><font class="Normal"> </font><font class="Keyword">redim</font><font class="Normal"> </font><font class="Keyword">preserve</font><font class="Normal"> sorted</font><font class="Others">(</font><font class="Normal">i+</font><font class="Float">1</font><font class="Others">)</font></br></div>
<div id="31" class="line"><font class="Normal"> sorted</font><font class="Others">(</font><font class="Normal">i</font><font class="Others">)</font><font class="Normal"> = rs</font><font class="Others">(</font><font class="Normal">sortColumn</font><font class="Others">)</font></br></div>
<div id="32" class="line"><font class="Normal"> i = i + </font><font class="Float">1</font></br></div>
<div id="33" class="line"><font class="Normal"> </font><font class="ControlFlow">end if</font></br></div>
<div id="34" class="line"><font class="Normal"> rs.</font><font class="Keyword">MoveNext</font></br></div>
<div id="35" class="line"><font class="Normal"> </font><font class="ControlFlow">loop</font></br></div>
<div id="36" class="line"></br></div>
<div id="37" class="line"><font class="Normal"> </font><font class="Keyword">redim</font><font class="Normal"> </font><font class="Keyword">preserve</font><font class="Normal"> sorted</font><font class="Others">(</font><font class="Normal">i-</font><font class="Float">1</font><font class="Others">)</font><font class="Normal"> </font><font class="Comment">' the function will add an extra blank entry to the array</font></br></div>
<div id="38" class="line"></br></div>
<div id="39" class="line"><font class="Normal"> rs.</font><font class="Keyword">Close</font><font class="Normal"> </font><font class="Comment">' close the recordset - we'll be using it again - and reset i - well be using it again, too</font></br></div>
<div id="40" class="line"></br></div>
<div id="41" class="line"><font class="Normal"> unique = sorted</font></br></div>
<div id="42" class="line"><font class="Keyword">end function</font></br></div>
<div id="43" class="line"></br></div>
<div id="44" class="line"><font class="Keyword">sub</font><font class="Normal"> testSub</font><font class="Others">(</font><font class="Normal"> variable </font><font class="Others">)</font><font class="Normal"> </font><font class="Comment">' do nothing impressive...</font></br></div>
<div id="45" class="line"><font class="Normal"> </font><font class="Keyword">dim</font><font class="Normal"> newVar</font></br></div>
<div id="46" class="line"></br></div>
<div id="47" class="line"><font class="Normal"> newVar = variable</font></br></div>
<div id="48" class="line"></br></div>
<div id="49" class="line"><font class="Normal"> </font><font class="ControlFlow">if</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal"> variable = </font><font class="Keyword">true</font><font class="Normal"> </font><font class="Others">)</font></br></div>
<div id="50" class="line"><font class="Normal"> </font><font class="Function">response</font><font class="Normal">.</font><font class="Function">end</font></br></div>
<div id="51" class="line"><font class="Normal"> </font><font class="ControlFlow">else</font><font class="Normal"> </font><font class="Keyword">%></font></br></div>
<div id="52" class="line"></br></div>
<div id="53" class="line"><font class="Attribute"><p></font><font class="Normal">We are writing text.</font><font class="Attribute"></p></font></br></div>
<div id="54" class="line"><font class="Attribute"><p</font><font class="Others"> class=</font><font class="DataType">"stuff"</font><font class="Attribute">></font><font class="Keyword"><%</font><font class="Normal">=newVar</font><font class="Keyword">%></font><font class="Attribute"></p></font></br></div>
<div id="55" class="line"><font class="Attribute"><p></font><font class="Normal">We have written text and outputted a variable.</font><font class="Attribute"></p></font></br></div>
<div id="56" class="line"></br></div>
<div id="57" class="line"><font class="Keyword"><%</font><font class="Normal"> </font><font class="ControlFlow">end if</font></br></div>
<div id="58" class="line"><font class="Keyword">end sub</font><font class="Normal"> </font><font class="Keyword">%></font></br></div>
</div>
</body>
</html>