<%g = Request.QueryString("gun") if g = "" then gun = 1 else gun = cint(g) if gun>4 or gun<1 then gun = 1 %>
<%for i=1 to 4%> <%if gun=i-1 then renk1="gri" else renk1="byz"%> <%if gun=i then renk2="gri" else renk2="byz"%> <%if gun=i then renk="gri" else renk="byz"%> <%if i=1 then renk2="ilk" if gun<>1 then renk1="byz" else renk1="gri" end if%> <%next%>
Day <%=i%>

<% ct = chr(34) for i=1 to 4 if (i=gun) then bgrenk = "#D9D9D9" else bgrenk = "#FFFFFF" Response.Write(""%> <%next%>
")%>Day <%=i%><%="