<% 'scwidth = Request.QueryString("ScreenWidth") 'session(scwidth) = scwidth 'scheight = Request.QueryString("ScreenHeight") 'session(scheight) = scheight If session("Aheight") <= 600 Then picfac = .586 fontApx = 8 Innov = 100 elseif (session("Aheight") <= 768) and (session("Aheight") > 480) Then picfac = .75 fontApx = 10 Innov = 100 else picfac = 1 fontApx = 12 Innov = 125 End If yr = Year(Now()) mo = Month(Now()) da = Day(Now()) wd = Weekday(Now()) if len(mo)<2 then mo = "0" & mo if len(da)<2 then da = "0" & da anewday = FormatDateTime(now,1) ItsADate = (mo &"/" & da & "/" & yr & "") tableAh = 61 * picfac tdAW = 225 * picfac InnovH = Innov * picfac InnovW = 278 * picfac awvlogow = 125 * picfac newdayw = 234 * picfac fscrollH = 50 * picfac tdBH = 36 * picfac tdCH = 26 * picfac W350 = 350 * picfac H65 = 65 * picfac H50 = 50 * picfac W235 = 235 * picfac H350 = 350 * picfac W200 = 200 * picfac H325 = 325 * picfac W265 = 265 * picfac H100 = 100 * picfac %>