<%
Function persian_weekday(iYear, iMonth, iDay)
jdn = persian_jdn(iYear, iMonth, iDay)
jdn = ((jdn + 1) MOD 7)
persian_weekday = jdn + 2
if persian_weekday = 8 then
persian_weekday = 1
end if
End Function
Sub jdn_persian(jdn , iYear, iMonth, iDay)...