<% 'Show back buttons if Request("floraNr") <> "" then backToSearch = 1 'Shows the backToSearch-Button backToResult = 1 'Shows the backToResult-Button end if %> <% vol = 1 if (Request("volume") <>"") then vol = Request("volume") end if if (Request("floraNr") <>"") then floraNr = Request("floraNr") end if SQL = " SELECT { fn SUBSTRING(IdInSource, 5, 1) } AS vol, { fn SUBSTRING(IdInSource, 9, 4) } AS Id, RefCache, notes " & _ " FROM Reference " & _ " WHERE (IdInSource LIKE N'Vol. " & vol & "%') " & _ " ORDER BY { fn SUBSTRING(IdInSource, 5, 1) }, { fn LENGTH(IdInSource) }, { fn SUBSTRING(IdInSource, 9, 4) } " 'This recordset returns all the References Set RReferences = Server.CreateObject("ADODB.Recordset") openRecordset RReferences, SQL %>
Additional References
<% if Request("Print") <> 1 then %> <% end if%>
 
 
  Additional References for Volume <%=vol %>  
  <% While NOT RReferences.EOF %> <% id = RReferences("Id") title = Replace(RReferences("RefCache"), "(... -> notes)", "") & RReferences("notes") ' one flora selected if (CInt(id) = CInt(floraNr)) then %> <% else %> <%end if%> <% RReferences.Movenext Wend 'record end %>

No.

  

Reference
     
<%=id%>
 		<%=title%>
 
<%=id%>
 <%=title%>
 
<% if Request("Print") <> 1 then %> <% end if %>