<%@ LANGUAGE="VBScript" %>
<%'create array for assigned icons
dim color(4)
'color(0)=img src="ccc-r0.jpg" width="26" height="10" ' option1
'color(1)= img src="ff3-r0.jpg" width="26" height="10" 'option2
'color(2)= img src="0cf-r0.jpg" width="26" height="10" 'option3
'color(3)=img src="0c0-r0.jpg" width="26" height="10" 'option4
'color(4)=img src="f00-r0.jpg" width="26" height="10" 'option5
'Sql statements come here.
' i now assume that i have the data that should be sorted.
%>
Test 2 Database
Test 2 Database
 |
 |
 |
 |
 |
| Option1 |
option2 |
option3 |
option4 |
option5 |
<%dim x
For x=0 to 19%>| <%=x%> |
<%NEXT%>
<%Dim run
For run=initialvalue found by sql to last value%>
<%"RUN "&run&%>
<% dim spec_run, value_spec_run
spec_run= 'the specifications of the run, we have to define that on sql
value_spec_run= 'the value of the spec_run can only be option1 to 5
For each spec_run
select case value_spec_run
case option1%>
| <%=color(0)%> |
<%case option2%>
<%=color(1)%> |
<%case option3%>
<%=color(2)%> |
<%case option4%>
<%=color(3)%> |
<%case option5%>
<%=color(4)%> |
<%end select%>
<%next%>
<%Next%>
Legend
<% dim i , data(19)
data(0)=' where 0 in the database corresponds to date of the run
data(1)='1 corresponds to length of the run, we can include sql statement too, to get spec
...
i=0
For i=0 to 19%>
- <%data(i)%>
<% Next%>