|
|
<%
'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 = "crimpproductnew" 'Database source
tablename = "prodcat" '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
'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 accept = 'yes' ORDER BY " & tablename & ".name ASC;"
'sql="SELECT * FROM " & tablename & " WHERE parentcat = " & request.querystring("parentcat") & " ORDER BY " & tablename & ".id ASC;"
sql="SELECT * FROM " & tablename & " WHERE ID = " & request.querystring("ID") & " 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(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 %>
|
We have the following sections in our <% =request.querystring("prodname") %> 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 = "prodsubtools" '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 prodcategory= '" & request.querystring("prodcategory") & "' 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 "" %>
|
<%
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 %>
|
|
|
|