Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.asp.ref is written in an unsupported language. File is not indexed.
0001 <ASP Source><%</ASP Source><ASP Text> </ASP Text><Comment>'</Comment><Keyword>kate:</Keyword><Comment> </Comment><Variable>hl</Variable><String> ASP</String><Variable>;</Variable><br/> 0002 <Control Structures>if</Control Structures><ASP Text> </ASP Text><Other>(</Other><ASP Text> </ASP Text><Function>instr</Function><Other>(</Other><Function>request</Function><ASP Text>.</ASP Text><Function>servervariables</Function><Other>(</Other><String>"PATH_INFO"</String><Other>),</Other><String>"login.asp"</String><Other>)</Other><ASP Text> <= </ASP Text><Decimal>0</Decimal><ASP Text> </ASP Text><Keyword>and</Keyword><ASP Text> </ASP Text><Function>instr</Function><Other>(</Other><Function>request</Function><ASP Text>.</ASP Text><Function>servervariables</Function><Other>(</Other><String>"PATH_INFO"</String><Other>),</Other><String>"inset"</String><Other>)</Other><ASP Text> <= </ASP Text><Decimal>0</Decimal><ASP Text> </ASP Text><Keyword>and</Keyword><ASP Text> </ASP Text><Function>instr</Function><Other>(</Other><Function>request</Function><ASP Text>.</ASP Text><Function>servervariables</Function><Other>(</Other><String>"PATH_INFO"</String><Other>),</Other><String>"Data"</String><Other>)</Other><ASP Text> <= </ASP Text><Decimal>0</Decimal><ASP Text> </ASP Text><Keyword>and</Keyword><ASP Text> </ASP Text><Function>instr</Function><Other>(</Other><Function>request</Function><ASP Text>.</ASP Text><Function>servervariables</Function><Other>(</Other><String>"PATH_INFO"</String><Other>),</Other><String>"dropDown"</String><Other>)</Other><ASP Text> <= </ASP Text><Decimal>0</Decimal><ASP Text> </ASP Text><Other>)</Other><ASP Text> </ASP Text><Control Structures>then</Control Structures><br/> 0003 <ASP Text> </ASP Text><Function>Session</Function><Other>(</Other><String>"originalRequestedPage"</String><Other>)</Other><ASP Text> = </ASP Text><Function>Request</Function><ASP Text>.</ASP Text><Function>ServerVariables</Function><Other>(</Other><String>"PATH_INFO"</String><Other>)</Other><ASP Text> </ASP Text><Keyword>&</Keyword><ASP Text> </ASP Text><String>"?"</String><ASP Text> </ASP Text><Keyword>&</Keyword><ASP Text> </ASP Text><Function>Request</Function><ASP Text>.</ASP Text><Function>ServerVariables</Function><Other>(</Other><String>"QUERY_STRING"</String><Other>)</Other><br/> 0004 <Control Structures>end if</Control Structures><br/> 0005 <ASP Text></ASP Text><br/> 0006 <Keyword>function</Keyword><ASP Text> countRecords</ASP Text><Other>(</Other><ASP Text> rsToCount </ASP Text><Other>)</Other><br/> 0007 <ASP Text> numRecs = </ASP Text><Decimal>0</Decimal><br/> 0008 <ASP Text></ASP Text><br/> 0009 <ASP Text> </ASP Text><Control Structures>do</Control Structures><ASP Text> </ASP Text><Control Structures>until</Control Structures><ASP Text> rsToCount.</ASP Text><Keyword>eof</Keyword><br/> 0010 <ASP Text> numRecs = numRecs + </ASP Text><Decimal>1</Decimal><br/> 0011 <ASP Text></ASP Text><br/> 0012 <ASP Text> rsToCount.</ASP Text><Keyword>movenext</Keyword><br/> 0013 <ASP Text> </ASP Text><Control Structures>loop</Control Structures><br/> 0014 <ASP Text></ASP Text><br/> 0015 <ASP Text> rsToCount.</ASP Text><Keyword>close</Keyword><ASP Text> </ASP Text><Comment>' just to make sure nobody</Comment><br/> 0016 <ASP Text> </ASP Text><Comment>' tries to operate on the recordset,</Comment><br/> 0017 <ASP Text> </ASP Text><Comment>' which has already reached eof</Comment><br/> 0018 <ASP Text></ASP Text><br/> 0019 <ASP Text> countRecords = numRecs</ASP Text><br/> 0020 <Keyword>end function</Keyword><br/> 0021 <ASP Text></ASP Text><br/> 0022 <Keyword>function</Keyword><ASP Text> unique</ASP Text><Other>(</Other><ASP Text> rs</ASP Text><Other>,</Other><ASP Text> sortColumn </ASP Text><Other>)</Other><ASP Text> </ASP Text><Comment>' return unique instances of text in sortColumn within rs</Comment><br/> 0023 <ASP Text> </ASP Text><Keyword>dim</Keyword><ASP Text> sorted</ASP Text><Other>()</Other><br/> 0024 <ASP Text></ASP Text><br/> 0025 <ASP Text> </ASP Text><Keyword>redim</Keyword><ASP Text> sorted</ASP Text><Other>(</Other><Decimal>1</Decimal><Other>)</Other><br/> 0026 <ASP Text> </ASP Text><Keyword>dim</Keyword><ASP Text> i</ASP Text><br/> 0027 <ASP Text> i = </ASP Text><Decimal>0</Decimal><br/> 0028 <ASP Text> </ASP Text><Control Structures>do</Control Structures><ASP Text> </ASP Text><Control Structures>until</Control Structures><ASP Text> rs.</ASP Text><Keyword>eof</Keyword><br/> 0029 <ASP Text> </ASP Text><Control Structures>if</Control Structures><ASP Text> </ASP Text><Other>(</Other><Keyword>not</Keyword><ASP Text> find</ASP Text><Other>(</Other><ASP Text> rs</ASP Text><Other>(</Other><ASP Text>sortColumn</ASP Text><Other>),</Other><ASP Text> sorted </ASP Text><Other>))</Other><ASP Text> </ASP Text><Control Structures>then</Control Structures><br/> 0030 <ASP Text> </ASP Text><Keyword>redim</Keyword><ASP Text> </ASP Text><Keyword>preserve</Keyword><ASP Text> sorted</ASP Text><Other>(</Other><ASP Text>i+</ASP Text><Decimal>1</Decimal><Other>)</Other><br/> 0031 <ASP Text> sorted</ASP Text><Other>(</Other><ASP Text>i</ASP Text><Other>)</Other><ASP Text> = rs</ASP Text><Other>(</Other><ASP Text>sortColumn</ASP Text><Other>)</Other><br/> 0032 <ASP Text> i = i + </ASP Text><Decimal>1</Decimal><br/> 0033 <ASP Text> </ASP Text><Control Structures>end if</Control Structures><br/> 0034 <ASP Text> rs.</ASP Text><Keyword>MoveNext</Keyword><br/> 0035 <ASP Text> </ASP Text><Control Structures>loop</Control Structures><br/> 0036 <ASP Text></ASP Text><br/> 0037 <ASP Text> </ASP Text><Keyword>redim</Keyword><ASP Text> </ASP Text><Keyword>preserve</Keyword><ASP Text> sorted</ASP Text><Other>(</Other><ASP Text>i-</ASP Text><Decimal>1</Decimal><Other>)</Other><ASP Text> </ASP Text><Comment>' the function will add an extra blank entry to the array</Comment><br/> 0038 <ASP Text></ASP Text><br/> 0039 <ASP Text> rs.</ASP Text><Keyword>Close</Keyword><ASP Text> </ASP Text><Comment>' close the recordset - we'll be using it again - and reset i - well be using it again, too</Comment><br/> 0040 <ASP Text></ASP Text><br/> 0041 <ASP Text> unique = sorted</ASP Text><br/> 0042 <Keyword>end function</Keyword><br/> 0043 <ASP Text></ASP Text><br/> 0044 <Keyword>sub</Keyword><ASP Text> testSub</ASP Text><Other>(</Other><ASP Text> variable </ASP Text><Other>)</Other><ASP Text> </ASP Text><Comment>' do nothing impressive...</Comment><br/> 0045 <ASP Text> </ASP Text><Keyword>dim</Keyword><ASP Text> newVar</ASP Text><br/> 0046 <ASP Text></ASP Text><br/> 0047 <ASP Text> newVar = variable</ASP Text><br/> 0048 <ASP Text></ASP Text><br/> 0049 <ASP Text> </ASP Text><Control Structures>if</Control Structures><ASP Text> </ASP Text><Other>(</Other><ASP Text> variable = </ASP Text><Keyword>true</Keyword><ASP Text> </ASP Text><Other>)</Other><br/> 0050 <ASP Text> </ASP Text><Function>response</Function><ASP Text>.</ASP Text><Function>end</Function><br/> 0051 <ASP Text> </ASP Text><Control Structures>else</Control Structures><ASP Text> </ASP Text><ASP Source>%></ASP Source><br/> 0052 <Normal Text></Normal Text><br/> 0053 <HTML Tag><p></HTML Tag><Normal Text>We are writing text.</Normal Text><HTML Tag></p></HTML Tag><br/> 0054 <HTML Tag><p</HTML Tag><Identifier> class=</Identifier><Types>"stuff"</Types><HTML Tag>></HTML Tag><ASP Source><%</ASP Source><ASP Text>=newVar</ASP Text><ASP Source>%></ASP Source><HTML Tag></p></HTML Tag><br/> 0055 <HTML Tag><p></HTML Tag><Normal Text>We have written text and outputted a variable.</Normal Text><HTML Tag></p></HTML Tag><br/> 0056 <Normal Text></Normal Text><br/> 0057 <ASP Source><%</ASP Source><ASP Text> </ASP Text><Control Structures>end if</Control Structures><br/> 0058 <Keyword>end sub</Keyword><ASP Text> </ASP Text><ASP Source>%></ASP Source><br/>