<% 'Control variables maxcol=1 'Maximum number of columns. Set to one or greater maxrow=50 'Maximum number of rows. Set to one or greater storycharacters=50 'Maximum number of characters in the story text display databasesource = "harringtonfeed" 'Database source tablename = "project" 'Table in database source client data idcol = 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 9 data9 = 9 'Database Column 9 data10 = 10 'Database Column 10 data11 = 11 'Database Column 11 data12 = 12 'Database Column 12 data13 = 13 'Database Column 13 data14 = 14 'Database Column 14 data15 = 15 'Database Column 15 data16 = 16 'Database Column 16 data17 = 17 'Database Column 17 data18 = 18 'Database Column 18 '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 & " ORDER BY " & tablename & ".ID ASC;" 'sql="SELECT * FROM " & tablename & " WHERE cat = 'id' ORDER BY " & tablename & ".id ASC;" sql="SELECT * FROM " & tablename & " WHERE cat = '" & request.querystring("cat") & "' ORDER BY " & tablename & ".cat ASC;" Set RS = Conn.Execute(sql) v=RS.GetRows(1000) RS.close Conn.close %>
<% 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 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 %>
<%=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=""%>

     

    <% if v(data5,row)<>"noimage.gif" then %> <% end if %> <% if v(data6,row)<>"noimage.gif" then %> <% end if %> <% if v(data7,row)<>"noimage.gif" then %> <% end if %> <% if v(data8,row)<>"noimage.gif" then %> <% end if %> <% if v(data9,row)<>"noimage.gif" then %> <% end if %> <% if v(data10,row)<>"noimage.gif" then %> <% end if %> <% if v(data11,row)<>"noimage.gif" then %> <% end if %> <% if v(data12,row)<>"noimage.gif" then %> <% end if %> <% if v(data13,row)<>"noimage.gif" then %> <% end if %> <% if v(data14,row)<>"noimage.gif" then %> <% end if %> <% if v(data15,row)<>"noimage.gif" then %> <% end if %>

    <<back

     

    <%'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%>