%@ 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") %>