|
|
<%
'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 = "home" 'Table in database source client data
idcol = 0 'Column containing ids
data1 = 1 'Database Column 1
'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;"
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 "" %>
<%replacetext v(data1,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 %>
<%
'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 = "home" '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;"
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(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 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 %>
|
<%
'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 = "freegift" '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;"
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 v(data4,row)<>"no" then %>
<%=v(data1,row)%>
|
|
<%=v(data2,row)%>
|
<% 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 %>
|
|
<%
'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 = "products" '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 & " WHERE online='yes' and specialbox='yes' ORDER BY " & tablename & ".id ASC;"
'sql="SELECT * FROM " & tablename WHERE online='yes' ORDER BY " & tablename & ".ID ASC;"
'strSQL = "SELECT * FROM products WHERE online='yes' and special='yes' ORDER BY " & strOrderBy & ";"
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)%>
|
|
<% showprice=v(data11,row) %>
Special Offer Price £<% Response.Write FormatNumber(showprice, 2)%>
|
<%
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 %>
|
|
<%
'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 = "products" '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 & " WHERE online='yes' and new='both' ORDER BY " & tablename & ".id ASC;"
'sql="SELECT * FROM " & tablename WHERE online='yes' ORDER BY " & tablename & ".ID ASC;"
'strSQL = "SELECT * FROM products WHERE online='yes' and special='yes' ORDER BY " & strOrderBy & ";"
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)%>
|
|
<% showprice=v(data11,row) %>
New Products Price £<% Response.Write FormatNumber(showprice, 2)%>
|
<%
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 %>
|
|
<%
'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 = "products" '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 & " ORDER BY " & tablename & ".ID ASC;"
sql="SELECT * FROM " & tablename & " WHERE online='yes' and buyonefree='yes' ORDER BY " & tablename & ".id ASC;"
Set RS = Conn.Execute(sql)
%>
Buy One Get One Free
<% 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%>
Coming Soon
|
<%End if
RS.close
Conn.close %>
|
<%
'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 = "brands" '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 & " ORDER BY " & tablename & ".ID ASC;"
sql="SELECT * FROM " & tablename & " WHERE shw<>'side' ORDER BY " & tablename & ".sort 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 %>
|
|
|
|