%@ Language=VBScript %><%
d=date()
set rsp=con.execute("Select * from polling order by id desc")
set rsk=con.execute("Select top 5 * from news where country='kuwait' order by id desc ")
set rsw=con.execute("Select top 5 * from news where country='world' order by id desc ")
set rsi=con.execute("Select top 5 * from news where country='india' order by id desc ")
set rssobj=con.execute("Select * from Currencies")
eur = rssobj("EUR")
usd = rssobj("USD")
jpy = rssobj("JPY")
inr = rssobj("INR")
sar = rssobj("SAR")
gbp = rssobj("GBP")
set rst=con.execute("Select * from weather")
nl=""
'set rs1=con.execute("Select * from News Where country='kuwait' and smallimage<>'"&nl&"' order by id desc")
'set rs2=con.execute("Select * from News Where country='kuwait' and smallimage<>'"&nl&"' order by id desc")
'set rs3=con.execute("Select * from News Where country='world' and smallimage<>'"&nl&"' order by id desc")
set rs4=con.execute("Select * from News Where country='kuwait' order by id desc")
'#####################################################
'Prioratization
'#####################################################
set rs1=con.execute("Select * from News Where priority=1")
set rs2=con.execute("Select * from News Where priority=2")
set rs3=con.execute("Select * from News Where priority=3")
ptr1=rs1("kuna")
if ptr1<>"" then
cr1="Kuna"
else
ptr1=rs1("ani")
if ptr1<>"" then
cr1="ANI"
else
cr1="AFP"
end if
end if
ptr2=rs2("kuna")
if ptr2<>"" then
cr2="Kuna"
else
ptr2=rs2("ani")
if ptr2<>"" then
cr2="ANI"
else
cr2="AFP"
end if
end if
ptr3=rs3("kuna")
if ptr33<>"" then
cr3="Kuna"
else
ptr3=rs3("ani")
if ptr3<>"" then
cr3="ANI"
else
cr3="AFP"
end if
end if
'#####################################################
t1=rs1("news")
t2=rs2("news")
t3=rs3("news")
t4=rs4("news")
d1=left(rs1("detail"),100)
d2=left(rs2("detail"),100)
d3=left(rs3("detail"),100)
d4=left(rs4("detail"),100)
i1=rs1("id")
i2=rs2("id")
i3=rs3("id")
i4=rs4("id")
pic1=rs1("smallimage")
pic2=rs2("smallimage")
pic3=rs3("smallimage")
pic4=rs4("smallimage")
%>