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