<% 'Control variables maxcol=1 'Maximum number of columns. Set to one or greater maxrow=99999 'Maximum number of rows. Set to one or greater storycharacters=50 'Maximum number of characters in the story text display databasesource = "nablefeed" 'Database source tablename = "news" 'Table in database source client data data0 = 0 'Column containing ids data1 = 1 'Database Column 1 data2 = 2 'Database Column 2 data3 = 3 'Database Column 3 data4 = 4 'Database Column 4 data5 = 5 'Database Column 5 data6 = 6 'Database Column 6 data7 = 7 'Database Column 7 data8 = 8 'Database Column 8 data9 = 9 'Database Column 9 data10 = 10 'Database Column 10 'End control variables. Do not alter any code after this. %> <% 'Start table generation Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open databasesource 'sql="SELECT * FROM " & tablename & " WHERE services<>'0' ORDER BY " & tablename & ".ID ASC;" sql="SELECT * FROM " & tablename & " ORDER BY " & tablename & ".ID ASC;" Set RS = Conn.Execute(sql) %> <% bgcolour1="6666FF" %> <% bgcolour2="CCCCFF" %> <% bgcolour=bgcolour1 %> <% fontcolour1="FFFFFF" %> <% fontcolour2="000000" %> <% fontcolour=fontcolour1 %>
<% if not RS.EOF then v=RS.GetRows(1000) trackrow=1 trackcol=1 For row = 0 to UBound(v,2) 'iterate through the rows in the variant array if trackcol = 1 then response.write "" %> <% if fontcolour=fontcolour1 then %> <% fontcolour=fontcolour2 %> <% else %> <% fontcolour=fontcolour1 %> <% end if %> <% if bgcolour=bgcolour1 then %> <% bgcolour=bgcolour2 %> <% else %> <% bgcolour=bgcolour1 %> <% end if %> <% if trackcol=maxcol then response.write "" trackcol=trackcol+1 if trackcol > maxcol then trackcol = 1 trackrow = trackrow + 1 if trackrow > maxrow then exit for end if Next else%> <% End if RS.close Conn.close %>
<% =v(data1,row) %>
<% =v(data2,row) %>
<%replacetext v(data3,row), chr(13), "", "
", formatted_text3a, 1 replacetext formatted_text3a, "·", "", "
  • ", formatted_text3b, 2 replacetext formatted_text3b, "m3", "", "m3", formatted_text3c, 2%> <%=formatted_text3c%><%formatted_text3a="" formatted_text3b="" formatted_text3c=""%>     <%=v(data4,row)%>

    We are currently updating our news.


    <%'BEGIN sub-routine to replace text in a string sub replacetext (textstringsource, searchfor, replacewithstart, replacewithend, textstringnew, replacemode) 'Replace text in a string 'Replacemode1 replaces front and rear and at the very end 'Replacemode2 replaces only rear and does not add to the very end of the text string 'Replacemode2 can be used to replace ' with '' for example laststringpos=1 nextstringpos=2 do while instr(laststringpos,textstringsource,searchfor) <> 0 nextstringpos=instr(laststringpos,textstringsource,searchfor) if replacemode=1 then textstringnew=textstringnew & replacewithstart & mid(textstringsource,laststringpos,nextstringpos-laststringpos) & replacewithend end if if replacemode=2 then textstringnew=textstringnew & mid(textstringsource,laststringpos,nextstringpos-laststringpos) & replacewithend end if laststringpos=nextstringpos+len(searchfor) loop if laststringpos <= len(textstringsource) then if replacemode=1 then textstringnew=textstringnew & replacewithstart & mid(textstringsource,laststringpos) & replacewithend end if if replacemode=2 then textstringnew=textstringnew & mid(textstringsource,laststringpos) end if end if searchfor="" replacewithstart="" replacewithend="" end sub 'END sub-routine to replace text in a string%>