|
<%
' get diplays
CountryOrRegionTitle = ""
set rs = Server.CreateObject("ADODB.recordset")
if (tid = "country") then
query = "SELECT Country as Display FROM [Countries] " & _
" WHERE " & _
" [Real_Id] = " & uid
elseif (tid = "region") then
query = "SELECT region as Display FROM [Regions] " & _
" WHERE " & _
" [RegionId] = " & uid
end if
rs.Open query, conn
do until rs.EOF
CountryOrRegionTitle = rs.Fields("Display")
rs.MoveNext
loop
set rs = Server.CreateObject("ADODB.recordset")
query = "SELECT * FROM [Formats] " & _
" WHERE " & _
" [Format_Id] = " & formatId
rs.Open query, conn
strOut = ""
do until rs.EOF
formatTitle = rs.Fields("Title")
rs.MoveNext
loop
set rs = Server.CreateObject("ADODB.recordset")
if (tid="country") then
query = "SELECT * FROM [BTBAndBTC] " & _
" WHERE " & _
" [country_Id] = " & uid & _
" AND [Format_Id] = " & formatId
elseif (tid="region") then
query = "SELECT * FROM [BTBAndBTC] " & _
" WHERE " & _
" [region_Id] = " & uid & _
" AND [Format_Id] = " & formatId
end if
rs.Open query, conn
do until rs.EOF
btb = rs.Fields("btb")
btc = rs.Fields("btc")
rs.MoveNext
loop
set rs = Server.CreateObject("ADODB.recordset")
if (tid="country") then
query = " SELECT format(sum(QuantityPerCountry.Quantity), '#,###') AS BTBBTCtotal " & _
" FROM QuantityPerCountry " & _
" WHERE (((QuantityPerCountry.List_Id)=1 Or (QuantityPerCountry.List_Id)=2) " & _
" AND ((QuantityPerCountry.Format_Id)=" & formatid & ") " & _
" AND ((QuantityPerCountry.Country_Id)=" & uid & " )) "
elseif (tid="region") then
query = " SELECT format(sum(QuantityPerRegion.Quantity), '#,###') as BTBBTCtotal " & _
" FROM QuantityPerRegion " & _
" WHERE (((QuantityPerRegion.List_Id)=1 Or (QuantityPerRegion.List_Id)=2) " & _
" AND ((QuantityPerRegion.Format_Id)= " & formatId & ") AND ((QuantityPerRegion.Region_Id)=" & uid & ")) "
end if
rs.Open query, conn
do until rs.EOF
TotalBTBandBTC = rs.Fields("BTBBTCtotal")
rs.MoveNext
loop
fid = Request.QueryString("fid")
if (fid = 1) then
infoclass = "info2"
elseif (fid = 2) then
infoclass = "info5"
elseif (fid = 3) then
infoclass = "info3"
end if
%>
<% Response.Write(CountryOrRegionTitle) %> |
<% Response.Write(formatTitle) %> |
|
|
|
|
<%Response.Write(TotalBTBandBTC ) %> |
BtB <% Response.Write(BtB)%> |
BtC <% Response.Write(BtC)%> |
|
|
|
|
|
Masterfiles |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "0" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "0" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_Name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Avid Readers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "97" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "97" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Business Decision-Makers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "64" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "64" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Esoterics Enthusiasts |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "156" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "156" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Instant Wealth Seekers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "118" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "118" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Luxury Lovers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "133" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "133" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Ready Buyers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "124" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "124" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Travellers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "53" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "53" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Technology Update Watchers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "169" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "169" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Healthy Living Aspirants |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "174" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "174" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Business Connections |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "4" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "4" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Business Indices |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "36" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "36" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Eurasia Liaisons |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "45" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "45" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Financial Security Schemers |
<%
set rs = Server.CreateObject("ADODB.recordset")
displayname = ""
if tid = "country" then
query = "SELECT * FROM [vwQuantities] " & _
" WHERE " & _
" [ListParent_Id] = " & "77" & _
" AND [Country_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
elseif tid = "region" then
query = "SELECT * FROM [vwQuantitiesPerRegion] " & _
" WHERE " & _
" [ListParent_Id] = " & "77" & _
" AND [Region_Id] = " & uid & _
" AND [Format_Id] = " & formatId & _
" ORDER BY SortOnDropDown "
end if
rs.Open query, conn
strOut = ""
do until rs.EOF
x=0
strOut = strOut & ""
strOut = strOut & "" & rs.Fields("Quantity") & " | "
strOut = strOut & "" & rs.Fields("List_name") & " | "
strOut = strOut & " "
rs.MoveNext
loop
Response.Write(strOut)
%>
|
Print this page |
|
|
|
|