Help
<%
'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 = "crimpproductnew" 'Database source
tablename = "help" '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
'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 & ".sorter 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 "" %>
<%=v(data1,row)%>
<%replacetext v(data2,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 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 %>
|