|
|
|
| индекс |
наименование
специальности
(программа обучения) |
начало |
время |
объем (а/ч) |
срок
(мес.) |
<%
' -- Get a Recordset Object
Set PriceDBObject = Server.CreateObject("ADODB.Recordset")
Set ScheduleDBObject = Server.CreateObject("ADODB.Recordset")
dim tag, color, startDate, DayTime, indexF, sql, SDConst, DTConst, Uslovn
dim SDDay, SDMonth, SDYear, name, href, namestr
dim months(13)
months(1) = "янв"
months(2) = "фев"
months(3) = "мар"
months(4) = "апр"
months(5) = "мая"
months(6) = "июн"
months(7) = "июл"
months(8) = "авг"
months(9) = "сен"
months(10) = "окт"
months(11) = "ноя"
months(12) = "дек"
PriceDBObject.Open "SELECT * FROM Kursnew WHERE Type=3 ORDER BY INDEX, duration", "DSN=priceDB"
tag=0
startDate=""
DayTime=""
Do While Not PriceDBObject.EOF
href = PriceDBObject("href")
duration = PriceDBObject("duration")
name = PriceDBObject("name")
nameEng = PriceDBObject("nameeng")
Index = PriceDBObject("index")
select case duration
case 1
DurText = "
(углубленный курс)"
FullIndex = Index & "/" & duration
case 2
DurText = "
(базовый курс)"
FullIndex = Index & "/" & duration
case else
DurText = ""
FullIndex = Index
end select
FullName = name & "
" & nameEng '& "" & DurText
sql="SELECT * FROM schedule WHERE index='" & FullIndex & "' ORDER BY StartDate"
ScheduleDBObject.Open sql, "DSN=priceDB"
startDate=""
DayTime="| "
Do While Not ScheduleDBObject.EOF
DTConst = ScheduleDBObject("DayTime")
SDConst = ScheduleDBObject("StartDate")
if SDConst>=now-34 then
if len(SDConst)>0 then
SDDay = Day(SDConst)
SDMonth = Month(SDConst)
SDYear = Year(SDConst)
if SDDay < 10 then SDDay = "0" & SDDay
SDConstFull = SDDay & " " & months(SDMonth) & " " & SDYear
end if
Uslovn = ""
if ScheduleDBObject("IsOpenDate") and SDConst>=now then Uslovn = "*"
startDate = startDate & SDConstFull & Uslovn & " | | "
DayTime = DayTime & DTConst & " | | "
end if
ScheduleDBObject.MoveNext
loop
startDate = startDate & " |
"
DayTime = DayTime & " |
"
ScheduleDBObject.Close
' select case href
' case "#"
' namestr = name
' case "+"
' namestr = "" & Fullname & ""
namestr = "" & FullName & ""
' case else
' namestr = "" & name & ""
' end select
if tag=0 then
color="#FFFFFF"
tag=1
else
color="#d6dee9"
tag=0
end if
%>
| ><%=Index%> |
> <%=namestr%> |
><%=StartDate%> |
><%=DayTime%> |
><%=PriceDBObject("hours")%> |
><%=PriceDBObject("monthweek")%> |
<%
PriceDBObject.MoveNext
StartDate=""
DayTime=""
Loop
PriceDBObject.Close
%>
Звездочкой "*" обозначены условные
даты начала занятий, которые могут быть уточнены по мере
комплектования групп
|
|
|
|
