Our New Products
<% ' BEGIN USER CONSTANTS Dim CONN_STRING Dim CONN_USER Dim CONN_PASS ' I'm using a DSN-less connection. ' To use a DSN, the format is shown on the next line: CONN_STRING = "DSN=crimpproductnew;" ' This DB is unsecured, o/w you'd need to specify something here CONN_USER = "" CONN_PASS = "" ' BEGIN RUNTIME CODE ' Declare our vars Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim strSQL 'SQL command to execute Dim objPagingConn 'The ADODB connection object Dim objPagingRS 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var ' Get parameters iPageSize = 10 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If Request.QueryString("order") = "" Then strOrderBy = "srt" Else strOrderBy = Request.QueryString("order") End If ' Build our SQL String using the parameters we just got. 'strSQL = "SELECT * FROM products ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE special = 'Yes' ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE manu = " & request.querystring("manu") & " ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE prodcategory = " & request.querystring("prodcat") & " ORDER BY " & strOrderBy & ";" 'strSQL = "SELECT * FROM products WHERE online='yes' and prodcategory = " & request.querystring("prodcat") & " AND parentcat = " & request.querystring("parentcat") & " ORDER BY " & strOrderBy & ";" strSQL = "SELECT * FROM products WHERE online='yes' and new='yes' ORDER BY " & strOrderBy & ";" ' Now we finally get to the DB work... ' Create and open our connection set objPagingConn=server.createobject("adodb.connection") objPagingConn.Open "crimpproductnew" set objPagingRS=server.CreateObject("adodb.recordset") objPagingRS.CursorLocation=3 'clientside objPagingRS.CursorType=3 'staticrecordset objPagingRS.PageSize=ipagesize objPagingRS.Open strSQL, objPagingConn ' Get the count of the pages using the given page size iPageCount = objPagingRS.PageCount iRC = objPagingRS.RecordCount ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ' Check page count to prevent bombing when zero results are returned! If iPageCount = 0 Then Response.Write "Currently we do not have any products in this category" Else ' Move to the selected page objPagingRS.AbsolutePage = iPageCurrent ' Start output with a page x of n line %>

<% if objPagingRS("lrgimage")<>"noimage" then %> <% end if %> <% if objPagingRS("colour")<>"noimage" then %> <% end if %> <% if objPagingRS("prodname")<>"" then %> <% end if %> <% if objPagingRS("range2")<>"" then %> <% end if %> <% if objPagingRS("d2")<>"" then %> <% end if %> <% if objPagingRS("W")<>"" then %> <% end if %> <% if objPagingRS("d")<>"" then %> <% end if %> <% if objPagingRS("L")<>"" then %> <% end if %> <% if objPagingRS("D3")<>"" then %> <% end if %> <% if objPagingRS("L2")<>"" then %> <% end if %> <% if objPagingRS("B")<>"" then %> <% end if %> <% if objPagingRS("t")<>"" then %> <% end if %> <% if objPagingRS("tabs")<>"" then %> <% end if %> <% if objPagingRS("areamm2")<>"" then %> <% end if %> <% if objPagingRS("forbullet")<>"" then %> <% end if %> <% if objPagingRS("rating")<>"" then %> <% end if %> <% if objPagingRS("size")<>"" then %> <% end if %> <% if objPagingRS("weight")<>"" then %> <% end if %> <% if objPagingRS("type")<>"" then %> <% end if %> <% if objPagingRS("N1")<>"" then %> <% end if %> <% if objPagingRS("mmW")<>"" then %> <% end if %> <% if objPagingRS("N")<>"" then %> <% end if %> <% if objPagingRS("pcs")<>"" then %> <% end if %> <% if objPagingRS("Dle")<>"" then %> <% end if %> <% if objPagingRS("AA")<>"" then %> <% end if %> <% if objPagingRS("palmmarking")<>"" then %> <% end if %> <% if objPagingRS("screencross")<>"" then %> <% end if %> <% if objPagingRS("mmd")<>"" then %> <% end if %> <% if objPagingRS("D1")<>"" then %> <% end if %> <% if objPagingRS("screencond")<>"" then %> <% end if %> <% if objPagingRS("catno")<>"" then %> <% end if %> <% if objPagingRS("mmtotal")<>"" then %> <% end if %> <% if objPagingRS("mm")<>"" then %> <% end if %> <% if objPagingRS("marketing")<>"" then %> <% end if %> <% if objPagingRS("L1L")<>"" then %> <% end if %> <% if objPagingRS("innerd")<>"" then %> <% end if %> <% if objPagingRS("sidefeed")<>"" then %> <% end if %> <% if objPagingRS("frontfeed")<>"" then %> <% end if %> <% if objPagingRS("mma")<>"" then %> <% end if %> <% if objPagingRS("b1")<>"" then %> <% end if %> <% if objPagingRS("c")<>"" then %> <% end if %> <% if objPagingRS("Strandedandsolidconductors")<>"" then %> <% end if %> <% if objPagingRS("TerminalM12M10")<>"" then %> <% end if %> <% if objPagingRS("TerminalM16M12")<>"" then %> <% end if %> <% if objPagingRS("Screwend")<>"" then %> <% end if %> <% if objPagingRS("Fasteningkeysize")<>"" then %> <% end if %> <% if objPagingRS("Screwconnector")<>"" then %> <% end if %> <% if objPagingRS("mmL")<>"" then %> <% end if %> <% if objPagingRS("Do")<>"" then %> <% end if %> <% if objPagingRS("Di")<>"" then %> <% end if %> <% if objPagingRS("L1L1")<>"" then %> <% end if %> <% if objPagingRS("a")<>"" then %> <% end if %> <% if objPagingRS("ApplicationCrimpingrange")<>"" then %> <% end if %> <% if objPagingRS("DLEPV130P")<>"" then %> <% end if %> <% if objPagingRS("DLEPV130S")<>"" then %> <% end if %> <% if objPagingRS("KRKRFKSKSFDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRKRFKSKSFcrimps")<>"" then %> <% end if %> <% if objPagingRS("KRKRDKSKSDDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRKRDKSKSDcrimps")<>"" then %> <% end if %> <% if objPagingRS("KRTKSTDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRTKSTcrimps")<>"" then %> <% end if %> <% if objPagingRS("Hydraulicmanualcutters")<>"" then %> <% end if %> <% if objPagingRS("HKL40")<>"" then %> <% end if %> <% if objPagingRS("HKL55")<>"" then %> <% end if %> <% if objPagingRS("HKL85")<>"" then %> <% end if %> <% if objPagingRS("Hydrauliccuttingheads")<>"" then %> <% end if %> <% if objPagingRS("KL40")<>"" then %> <% end if %> <% if objPagingRS("KL55")<>"" then %> <% end if %> <% if objPagingRS("KL85")<>"" then %> <% end if %> <% if objPagingRS("KL105")<>"" then %> <% end if %> <% if objPagingRS("Manufacturerpower")<>"" then %> <% end if %> <% if objPagingRS("Typepower")<>"" then %> <% end if %> <% if objPagingRS("CatnoDriving")<>"" then %> <% end if %> <% if objPagingRS("Shaftmm")<>"" then %> <% end if %> <% if objPagingRS("Flangelengthmm")<>"" then %> <% end if %> <% if objPagingRS("Totallengthmm")<>"" then %> <% end if %> <% if objPagingRS("kg1")<>"" then %> <% end if %> <% if objPagingRS("Note")<>"" then %> <% end if %>

Colour

Product

Range

d2

W

d

L

D

L2

B

t

Tabs

Area mm2

For bullet

Rating

Size

Weight

Type

N1

mmW

N

pcs

Dle

A (A)

Palm Marking

Screen Cross

mmd

D1

Screen Cond

Cat No.

mm total

mm

Marketing

L1 (L)

Inner d

Side Feed

Front Feed

mma

b1

c

Stranded and Solid Conductors

Terminal M12/M10

Terminal M16/M12

Screw End

Fastening Key Size

Screw Connector

mm L

Do

Di

L1 (L1)

<% =objPagingRS("a")%>

Application Crimping Range

DLE PV130P

DLE PV130S

KR KRF KS KSF Die No

KR KRF KS KSF Crimps

KR KRD KS KSD Die No

KR KRD KS KSD Crimps

KRT KST Die No

KRT KST Crimps

Hydraulic Manual Cutters

HKL40

HKL55

HKL85

Hydraulic Cutting Heads

KL40

KL55

KL85

KL105

Manufacturer Power

Type Power

Cat no Driving

Shaft mm

Flange Length mm

Total Length mm

kg 1

Note

Quantity

Price

.

<% ' Spacing Response.Write vbCrLf 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx %> <% 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Loop through our records and ouput 1 row per record iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objPagingRS.EOF Response.Write vbTab & "" & vbCrLf For I = 0 To objPagingRS.Fields.Count - 142 %>

"> <% if objPagingRS("lrgimage")<>"noimage" then %> <% end if %> <% if objPagingRS("colour")<>"noimage" then %> <% end if %> <% if objPagingRS("prodname")<>"" then %> <% end if %> <% if objPagingRS("range2")<>"" then %> <% end if %> <% if objPagingRS("d2")<>"" then %> <% end if %> <% if objPagingRS("W")<>"" then %> <% end if %> <% if objPagingRS("d")<>"" then %> <% end if %> <% if objPagingRS("L")<>"" then %> <% end if %> <% if objPagingRS("D3")<>"" then %> <% end if %> <% if objPagingRS("L2")<>"" then %> <% end if %> <% if objPagingRS("B")<>"" then %> <% end if %> <% if objPagingRS("t")<>"" then %> <% end if %> <% if objPagingRS("tabs")<>"" then %> <% end if %> <% if objPagingRS("areamm2")<>"" then %> <% end if %> <% if objPagingRS("forbullet")<>"" then %> <% end if %> <% if objPagingRS("rating")<>"" then %> <% end if %> <% if objPagingRS("size")<>"" then %> <% end if %> <% if objPagingRS("weight")<>"" then %> <% end if %> <% if objPagingRS("type")<>"" then %> <% end if %> <% if objPagingRS("N1")<>"" then %> <% end if %> <% if objPagingRS("mmW")<>"" then %> <% end if %> <% if objPagingRS("N")<>"" then %> <% end if %> <% if objPagingRS("pcs")<>"" then %> <% end if %> <% if objPagingRS("Dle")<>"" then %> <% end if %> <% if objPagingRS("AA")<>"" then %> <% end if %> <% if objPagingRS("palmmarking")<>"" then %> <% end if %> <% if objPagingRS("screencross")<>"" then %> <% end if %> <% if objPagingRS("mmd")<>"" then %> <% end if %> <% if objPagingRS("D1")<>"" then %> <% end if %> <% if objPagingRS("screencond")<>"" then %> <% end if %> <% if objPagingRS("catno")<>"" then %> <% end if %> <% if objPagingRS("mmtotal")<>"" then %> <% end if %> <% if objPagingRS("mm")<>"" then %> <% end if %> <% if objPagingRS("marketing")<>"" then %> <% end if %> <% if objPagingRS("L1L")<>"" then %> <% end if %> <% if objPagingRS("innerd")<>"" then %> <% end if %> <% if objPagingRS("sidefeed")<>"" then %> <% end if %> <% if objPagingRS("frontfeed")<>"" then %> <% end if %> <% if objPagingRS("mma")<>"" then %> <% end if %> <% if objPagingRS("b1")<>"" then %> <% end if %> <% if objPagingRS("c")<>"" then %> <% end if %> <% if objPagingRS("Strandedandsolidconductors")<>"" then %> <% end if %> <% if objPagingRS("TerminalM12M10")<>"" then %> <% end if %> <% if objPagingRS("TerminalM16M12")<>"" then %> <% end if %> <% if objPagingRS("Screwend")<>"" then %> <% end if %> <% if objPagingRS("Fasteningkeysize")<>"" then %> <% end if %> <% if objPagingRS("Screwconnector")<>"" then %> <% end if %> <% if objPagingRS("mmL")<>"" then %> <% end if %> <% if objPagingRS("Do")<>"" then %> <% end if %> <% if objPagingRS("Di")<>"" then %> <% end if %> <% if objPagingRS("L1L1")<>"" then %> <% end if %> <% if objPagingRS("a")<>"" then %> <% end if %> <% if objPagingRS("ApplicationCrimpingrange")<>"" then %> <% end if %> <% if objPagingRS("DLEPV130P")<>"" then %> <% end if %> <% if objPagingRS("DLEPV130S")<>"" then %> <% end if %> <% if objPagingRS("KRKRFKSKSFDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRKRFKSKSFcrimps")<>"" then %> <% end if %> <% if objPagingRS("KRKRDKSKSDDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRKRDKSKSDcrimps")<>"" then %> <% end if %> <% if objPagingRS("KRTKSTDieNo")<>"" then %> <% end if %> <% if objPagingRS("KRTKSTcrimps")<>"" then %> <% end if %> <% if objPagingRS("Hydraulicmanualcutters")<>"" then %> <% end if %> <% if objPagingRS("HKL40")<>"" then %> <% end if %> <% if objPagingRS("HKL55")<>"" then %> <% end if %> <% if objPagingRS("HKL85")<>"" then %> <% end if %> <% if objPagingRS("Hydrauliccuttingheads")<>"" then %> <% end if %> <% if objPagingRS("KL40")<>"" then %> <% end if %> <% if objPagingRS("KL55")<>"" then %> <% end if %> <% if objPagingRS("KL85")<>"" then %> <% end if %> <% if objPagingRS("KL105")<>"" then %> <% end if %> <% if objPagingRS("Manufacturerpower")<>"" then %> <% end if %> <% if objPagingRS("Typepower")<>"" then %> <% end if %> <% if objPagingRS("CatnoDriving")<>"" then %> <% end if %> <% if objPagingRS("Shaftmm")<>"" then %> <% end if %> <% if objPagingRS("Flangelengthmm")<>"" then %> <% end if %> <% if objPagingRS("Totallengthmm")<>"" then %> <% end if %> <% if objPagingRS("kg1")<>"" then %> <% end if %> <% if objPagingRS("Note")<>"" then %> <% end if %>

" align="left" 0" width="80">

.jpg" width="22" height="22" align="left">

<% =objPagingRS("prodname")%>

<% =objPagingRS("range2")%>

<% =objPagingRS("d2")%>

<% =objPagingRS("W")%>

<% =objPagingRS("d")%>

<% =objPagingRS("L")%>

<% =objPagingRS("D3")%>

<% =objPagingRS("L2")%>

<% =objPagingRS("B")%>

<% =objPagingRS("t")%>

<% =objPagingRS("tabs")%>

<% =objPagingRS("areamm2")%>

<% =objPagingRS("forbullet")%>

<% =objPagingRS("rating")%>

<% =objPagingRS("size")%>

<% =objPagingRS("weight")%>

<% =objPagingRS("type")%>

<% =objPagingRS("N1")%>

<% =objPagingRS("mmW")%>

<% =objPagingRS("N")%>

<% =objPagingRS("pcs")%>

<% =objPagingRS("Dle")%>

<% =objPagingRS("AA")%>

<% =objPagingRS("palmmarking")%>

<% =objPagingRS("screencross")%>

<% =objPagingRS("mmd")%>

<% =objPagingRS("D1")%>

<% =objPagingRS("screencond")%>

<% =objPagingRS("catno")%>

<% =objPagingRS("mmtotal")%>

<% =objPagingRS("mm")%>

<% =objPagingRS("marketing")%>

<% =objPagingRS("L1L")%>

<% =objPagingRS("innerd")%>

<% =objPagingRS("sidefeed")%>

<% =objPagingRS("frontfeed")%>

<% =objPagingRS("mma")%>

<% =objPagingRS("b1")%>

<% =objPagingRS("c")%>

<% =objPagingRS("Strandedandsolidconductors")%>

<% =objPagingRS("TerminalM12M10")%>

<% =objPagingRS("TerminalM16M12")%>

<% =objPagingRS("Screwend")%>

<% =objPagingRS("Fasteningkeysize")%>

<% =objPagingRS("Screwconnector")%>

<% =objPagingRS("mmL")%>

<% =objPagingRS("Do")%>

<% =objPagingRS("Di")%>

<% =objPagingRS("L1L1")%>

<% =objPagingRS("a")%>

<% =objPagingRS("ApplicationCrimpingrange")%>

<% =objPagingRS("DLEPV130P")%>

<% =objPagingRS("DLEPV130S")%>

<% =objPagingRS("KRKRFKSKSFDieNo")%>

<% =objPagingRS("KRKRFKSKSFcrimps")%>

<% =objPagingRS("KRKRDKSKSDDieNo")%>

<% =objPagingRS("KRKRDKSKSDcrimps")%>

<% =objPagingRS("KRTKSTDieNo")%>

<% =objPagingRS("KRTKSTcrimps")%>

<% =objPagingRS("Hydraulicmanualcutters")%>

<% =objPagingRS("HKL40")%>

<% =objPagingRS("HKL55")%>

<% =objPagingRS("HKL85")%>

<% =objPagingRS("Hydrauliccuttingheads")%>

<% =objPagingRS("KL40")%>

<% =objPagingRS("KL55")%>

<% =objPagingRS("KL85")%>

<% =objPagingRS("KL105")%>

<% =objPagingRS("Manufacturerpower")%>

<% =objPagingRS("Typepower")%>

<% =objPagingRS("CatnoDriving")%>

<% =objPagingRS("Shaftmm")%>

<% =objPagingRS("Flangelengthmm")%>

<% =objPagingRS("Totallengthmm")%>

<% =objPagingRS("kg1")%>

<% =objPagingRS("Note")%>

<% Dim showprodpricea %> <% Dim showprodpriceb %> <% Dim showprodpricec %> <% Dim showprodpriced %> <% Dim showprodpricee %> <% Dim showprodpricef %> <% Dim showprodpriceg %> <% Dim showprodpriceh %> <% Dim showprodpricei %> <% Dim showprodpricej %> <% showprodpricea = objPagingRS("prodpricea") %> <% showprodpriceb = objPagingRS("prodpriceb") %> <% showprodpricec = objPagingRS("prodpricec") %> <% showprodpriced = objPagingRS("prodpriced") %> <% showprodpricee = objPagingRS("prodpricee") %> <% showprodpricef = objPagingRS("prodpricef") %> <% showprodpriceg = objPagingRS("prodpriceg") %> <% showprodpriceh = objPagingRS("prodpriceh") %> <% showprodpricei = objPagingRS("prodpricei") %> <% showprodpricej = objPagingRS("prodpricej") %> <% Dim showexchangepricea %> <% Dim showexchangepriceb %> <% Dim showexchangepricec %> <% Dim showexchangepriced %> <% Dim showexchangepricee %> <% Dim showexchangepricef %> <% Dim showexchangepriceg %> <% Dim showexchangepriceh %> <% Dim showexchangepricei %> <% Dim showexchangepricej %> <% showexchangepricea = showprodpricea * currratio %> <% showexchangepriceb = showprodpriceb * currratio %> <% showexchangepricec = showprodpricec * currratio %> <% showexchangepriced = showprodpriced * currratio %> <% showexchangepricee = showprodpricee * currratio %> <% showexchangepricef = showprodpricef * currratio %> <% showexchangepriceg = showprodpriceg * currratio %> <% showexchangepriceh = showprodpriceh * currratio %> <% showexchangepricei = showprodpricei * currratio %> <% showexchangepricej = showprodpricej * currratio %> <%if objPagingRS("prodpriceb")="0" then %> <% if objPagingRS("prodnamea")<>"" then%> <% =objPagingRS("prodnamea")%> <% end if %> <%=shwchkcurr%> <% if chkcurr<>"GBP" then %> <% Response.Write FormatNumber(showexchangepricea, 2)%> <% end if %> <% if chkcurr="GBP" then %> <% Response.Write FormatNumber(showexchangepricea, 2)%> <% end if %> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %> <% if chkcurr<>"GBP" then %> <%if objPagingRS("prodpricea")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%>"><% =objPagingRS("prodnamea")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%>"><% =objPagingRS("prodnameb")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%> <% End if %> <%if objPagingRS("prodpricec")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%>"><% =objPagingRS("prodnamec")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%> <% End if %> <%if objPagingRS("prodpriced")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%>"><% =objPagingRS("prodnamed")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%> <% End if %> <%if objPagingRS("prodpricee")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%>"><% =objPagingRS("prodnamee")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%> <% End if %> <%if objPagingRS("prodpricef")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%>"><% =objPagingRS("prodnamef")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%> <% End if %> <%if objPagingRS("prodpriceg")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%>"><% =objPagingRS("prodnameg")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%> <% End if %> <%if objPagingRS("prodpriceh")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%>"><% =objPagingRS("prodnameh")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%> <% End if %> <%if objPagingRS("prodpricei")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%>"><% =objPagingRS("prodnamei")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%> <% End if %> <%if objPagingRS("prodpricej")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%>"><% =objPagingRS("prodnamej")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%> <% End if %> <% End if %> <% if chkcurr="GBP" then %> <%if objPagingRS("prodpricea")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%>"><% =objPagingRS("prodnamea")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricea, 2)%> <% End if %> <%if objPagingRS("prodpriceb")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%>"><% =objPagingRS("prodnameb")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceb, 2)%> <% End if %> <%if objPagingRS("prodpricec")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%>"><% =objPagingRS("prodnamec")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricec, 2)%> <% End if %> <%if objPagingRS("prodpriced")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%>"><% =objPagingRS("prodnamed")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriced, 2)%> <% End if %> <%if objPagingRS("prodpricee")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%>"><% =objPagingRS("prodnamee")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricee, 2)%> <% End if %> <%if objPagingRS("prodpricef")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%>"><% =objPagingRS("prodnamef")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricef, 2)%> <% End if %> <%if objPagingRS("prodpriceg")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%>"><% =objPagingRS("prodnameg")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceg, 2)%> <% End if %> <%if objPagingRS("prodpriceh")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%>"><% =objPagingRS("prodnameh")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepriceh, 2)%> <% End if %> <%if objPagingRS("prodpricei")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%>"><% =objPagingRS("prodnamei")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricei, 2)%> <% End if %> <%if objPagingRS("prodpricej")<>"0" then %>   <%=chkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%>"><% =objPagingRS("prodnamej")%>  <%=shwchkcurr%><% Response.Write FormatNumber(showexchangepricej, 2)%> <% End if %> <% End if %> <% End if %>

<% if objPagingRS("crosssell1")<>"Select" then %> "> "> "> "> "> <% end if %> <% if objPagingRS("crosssell1")="Select" then %> <% end if %> "> <%if objPagingRS("prodpriceb")="0" then %> <% if chkcurr="GBP" then %> <% End if %> <% if chkcurr="" then %> <% End if %> <% if chkcurr="US$" then %> <% End if %> <% if chkcurr="Euro" then %> <% End if %> <% End if %> <%if objPagingRS("prodpriceb")="0" then %> "> <% End if %> "> "> "> "> ">

<% 'Response.Write vbTab & vbTab & "