<%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") %> <% Dim showcurr %> <% Dim currratio %> <% if chkcurr ="GBP" then %> <% currratio = 1 %> <% showcurr="£" %> <% End if %> <% if chkcurr ="US$" then %> <% currratio = v(data1,row) %> <% showcurr="$" %> <% End if %> <% if chkcurr ="Euro" then %> <% currratio = v(data2,row) %> <% showcurr="€" %> <% End if %> <% if chkcurr ="" then %> <% currratio = 1 %> <% showcurr="£" %> <% End if %> <% if request.querystring("parentcatname")<>"" then %><% =request.querystring("parentcatname") %><% else %>CK Tools, Electricians Tools, Cable Connectors, Cable Ties and Cable Management<% end if %> from The Crimp Company "" then %><% =request.querystring("parentcatname") %>, <% end if %>CK Tools, Electricians Tools, Cable Connectors, Cable Ties, Cable Management, Crimp Terminals, Crimp Tools, Cable Glands, Cable Joints, Earthing Products, Abiko">
 
<% '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 "" %> <% 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(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=""%>

    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 "" %> <% 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 %>
    We are currently updating the products.
     
    <%'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%>