<%response.buffer=true%> <% custid=request.cookies("estid")("custid") chkcurr=request.cookies("estid")("chkcurr") verifyid=request.cookies("estid")("verifyid") sitetitle=request.cookies("estid")("sitetitle") textstd=request.cookies("estid")("textstd") textrollover=request.cookies("estid")("textrollover") %> <% clientid=request.cookies("estid")("clientid") clientverify=request.cookies("estid")("clientverify") membid=request.cookies("estid")("membid") membverify=request.cookies("estid")("membverify") %> <% 'Control variables For Retreiving Currency Conversion Rates 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 = "currdetails" 'Table in database source client data idcol = 0 'Column containing ids data1 = 1 'Database Column 1 data2 = 2 'Database Column 2 '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 %> <% dim shwchkcurr %> <% if chkcurr ="" then shwchkcurr="£" currratio = 1 chkcurr ="GBP" End if %> <% if chkcurr = "GBP" then shwchkcurr="£" currratio = 1 end if%> <% if chkcurr = "US$" then shwchkcurr="$" currratio = v(data1,row) end if%> <% if chkcurr = "Euro" then shwchkcurr="€" currratio = v(data2,row) end if%> CK Tools, Electricians Tools, Cable Connectors, Cable Ties and Cable Management from The Crimp Company
<% '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 "" %> <% 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 %>


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

     

    <% '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 %> <% 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 %>
    <%=v(data1,row)%>

    Click for more details of <%=v(data1,row)%>

    <%=v(data2,row)%>

     

    <% '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 "" %> <% 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(data1,row)%>

    <% showprice=v(data11,row) %> Special Offer Price £<% Response.Write FormatNumber(showprice, 2)%>


    <% '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 "" %> <% 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(data1,row)%>

    <% showprice=v(data11,row) %> New Products Price £<% Response.Write FormatNumber(showprice, 2)%>

    <% '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%> <%End if RS.close Conn.close %>
     
    Coming Soon


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