Select 0800 1300 1600 1800 2100
Select 0700 1200 1500 1700 2000 2200
Select
Select <% CurrTime = time() Dim WordArray , TimeArray WordArray = Split(CurrTime, " ") TimeArray = Split(WordArray(0), ":") IF WordArray(1) = "PM" AND cInt(TimeArray(0)) <> 12 THEN TimeArray(0) = cInt(TimeArray(0))+12 END IF IF WordArray(1)= "AM" AND cInt(TimeArray(0)) >= 2 AND cInt(TimeArray(0)) < 4 THEN %> Karachi <% ELSE IF WordArray(1)= "AM" AND cInt(TimeArray(0)) >= 5 AND ((cInt(TimeArray(0))*100)+cInt(TimeArray(1))) <= 630 THEN %> Larkana <% ELSE IF WordArray(1)= "AM" AND cInt(TimeArray(0)) >= 7 AND cInt(TimeArray(0)) < 8 THEN %> Khairpur <% ELSE IF WordArray(1)= "AM" AND ((cInt(TimeArray(0))*100)+cInt(TimeArray(1))) >= 815 AND ((cInt(TimeArray(0))*100)+cInt(TimeArray(1))) <= 945 THEN %> Bahawalpur <% ELSE IF WordArray(1)= "PM" AND cInt(TimeArray(0)) >= 12 AND cInt(TimeArray(0)) < 14 THEN %> Multan <% END IF END IF END IF END IF END IF %> NBS FM 101 FM 94 <% IF WordArray(1)= "PM" AND cInt(TimeArray(0)) >= 13 AND cInt(TimeArray(0)) < 15 THEN %> world service <% ELSE %> FM 93 <% END IF%>
