|
|
<%
'Control variables
maxcol=4 '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 = "crimpproductnew" 'Database source
tablename = "parentcat" '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
'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 ID = " & request.querystring("parentcat") & " ORDER BY " & tablename & ".ID 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(data6,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 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 %>
|
We have the following sections in our <% =request.querystring("parentcatname") %> category
<%
'Control variables
maxcol=4 '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 = "crimpproductnew" 'Database source
tablename = "prodcat" '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
data70 = 70 'Database Column 5
'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 online='yes' and ID = " & request.querystring("parentcat") & "ORDER BY " & tablename & ".ID ASC;"
sql="SELECT * FROM " & tablename & " WHERE shw='yes' and parentcat= " & request.querystring("parentcat") & " ORDER BY " & tablename & ".how ASC;"
'strSQL = "SELECT * FROM products WHERE online='yes' and subproducts= " & request.querystring("subproducts") & " ORDER BY " & strOrderBy & ";"
'sql="SELECT * FROM " & tablename & " WHERE parentcat = " & request.querystring("parentcat") & " ORDER BY " & tablename & ".prodname ASC;"
Set RS = Conn.Execute(sql)
%>
<% 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 "" %>
&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>">
|
<% end if %>
<% if v(data6,row)="all" then %>
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>"><% =v(data1,row)%> |
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>">
|
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>">
|
<% end if %>
<% if v(data6,row)="tools" then %>
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>&idshow=<% =v(data0,row)%>"><% =v(data1,row)%> |
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>&idshow=<% =v(data0,row)%>">
|
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>&idshow=<% =v(data0,row)%>">
|
<% end if %>
<% if v(data6,row)="subtools" then %>
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>"><% =v(data1,row)%> |
&parentcat=<% =request.querystring("parentcat") %>&prodname=<% =v(data1,row)%>&prodcategory=<% =v(data0,row)%>&id=<% =v(data0,row)%>">
|
|
<%
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%>
We are currently updating the products.
|
<%End if
RS.close
Conn.close %>
|
|
|
|