Mystik Australia has been in the
import and export business for over 9 years and is one
of the largest importers and wholesalers of new age items,
gift items, incense, and general merchandise in Australia.
We are suppliers to some of Australia's gift shops, discount
shops and market stalls all over Australia.
<%
dim pflag
dim rsprod
set rsprod=Server.CreateObject("ADODB.Recordset")
dim ssql
dim Currs
dim CurrValue
dim CurrABR
CurrValue=0
CurrABR="AUD"
ssql="SELECT Currency_Master.CurrencyName, Currency_Master.CurrencyABR, Currency_Master.CValue, Currency_Master.CActive, Conversion.PriceDisplay FROM Conversion, Currency_Master WHERE (((Currency_Master.CActive)=True))"
set Currs=server.CreateObject("ADODB.recordset")
Currs.open ssql,conn, 3, 1
if Currs.EOF=false then
if Currs("PriceDisplay")=true then
pflag=true
if not isnull(Currs("CValue")) then CurrValue=Currs("CValue")
if not isnull(Currs("CurrencyABR")) then CurrABR=Currs("CurrencyABR")
end if
end if
dim rsClient
set rsClient=server.CreateObject("ADODB.recordset")
if session("listid")>0 then
ssql="Select CurrencyABR from ListMaster_T where ListId=" & Session("ListID")
rsClient.open ssql,conn, 3, 1
if not rsClient.EOF then
CurrABR=rsClient("CurrencyABR")
end if
end if
if session("listid")=0 then
ssql="Select * from Product_Master where main='Y'"
else
sSQL="Select * from product_master inner join list_configuration_t on list_configuration_t.LC_ItemId= product_master.productid where product_master.main='Y' and list_configuration_t.LC_productflag=yes and list_configuration_t.LC_visible=yes and list_configuration_t.LC_listid=" & session("listid")
end if
dim pprice
set rsprod=conn.execute (ssql)
if not rsprod.eof then
%>
<%
if pflag=true then
if session("listid")=0 then
if not isnull(rsProd.fields("PPrice").value) then
pprice=(rsProd.fields("PPrice").value)
if CurrValue<> "" then pprice=csng(pprice)/csng(CurrValue)
end if
else
if not isnull(rsProd.fields("LC_Price").value) then
pprice=rsProd.fields("LC_Price").value
end if
end if
%>
<%
if pflag=true then
if session("listid")=0 then
if not isnull(rsProd.fields("PPrice").value) then
pprice=(rsProd.fields("PPrice").value)
if CurrValue<> "" then pprice=csng(pprice)/csng(CurrValue)
end if
else
if not isnull(rsProd.fields("LC_Price").value) then
pprice=rsProd.fields("LC_Price").value
end if
end if
%>
<%
if pflag=true then
if session("listid")=0 then
if not isnull(rsProd.fields("PPrice").value) then
pprice=(rsProd.fields("PPrice").value)
if CurrValue<> "" then pprice=csng(pprice)/csng(CurrValue)
end if
else
if not isnull(rsProd.fields("LC_Price").value) then
pprice=rsProd.fields("LC_Price").value
end if
end if
%>
<%
if pflag=true then
if session("listid")=0 then
if not isnull(rsProd.fields("PPrice").value) then
pprice=(rsProd.fields("PPrice").value)
if CurrValue<> "" then pprice=csng(pprice)/csng(CurrValue)
end if
else
if not isnull(rsProd.fields("LC_Price").value) then
pprice=rsProd.fields("LC_Price").value
end if
end if
%>