<%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") %> <% Function getFileName() Dim lsPath, arPath lsPath = Request.ServerVariables("SCRIPT_NAME") arPath = Split(lsPath, "/") getFileName = arPath(UBound(arPath,1)) End Function Dim CFileName CFileName = getFileName() %> <% Set Conn2 = Server.CreateObject("ADODB.Connection") Conn2.open"crimpproductnew" %> <% pagetitle=findittitle(CFileName) %> <% Conn2.close %> <% '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


thecrimpcompany.com - Electrical Trade Supplies of Crimp Terminals, Crimp Tools and Cable Accessories.


Help
<% '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 = "help" '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 '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 & ".sorter 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(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=""%>

    <% function findittitle(codenum) foundercalc="The Crimp Company" set founder=Conn2.execute("select * from pagetitles where pagename='" & codenum &"'") do while not founder.EOF foundercalc=founder("title") founder.movenext loop findittitle=foundercalc set founder=nothing end function %> <%'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%>