%
title="Школа Бизнеса МАОВ: Специальности и цены"
keywords="бизнес-специальности, бизнес-программы, бизнес-обучение, цена, прайс лист, прайс, объем, срок"
description="Школа Бизнеса МАОВ: Специальности и цены"
call maov_entire_header (title, keywords, description,"")
maov_maps ("") %>
<% maov_header ("") %>
|
|
|
|
|
<%' ШКОЛА БИЗНЕСА %>
|
| индекс |
наименование
специальности (программы обучения) |
обьем(а/ч) |
срок(мес) |
цена (руб.)* |
| утро |
день |
вечер |
<%
' -- Get a Recordset Object
Set PriceDBObject = Server.CreateObject("ADODB.Recordset")
Set FSO = CreateObject("Scripting.FileSystemObject")
' -- Retrieve the database information
PriceDBObject.Open "SELECT * FROM Kursnew WHERE Type=3 ORDER BY INDEX, duration", "DSN=PriceDB"
tag=0
Do While Not PriceDBObject.EOF
href = PriceDBObject("href")
duration = PriceDBObject("duration")
name = PriceDBObject("name")
nameEng = PriceDBObject("nameeng")
Index = PriceDBObject("index")
' Set file= FSO.Getfile("C:\Inetpub\wwwroot\maovorg_new\Files\spec" & Index & ".doc")
' trt = file.size/1024
' trt = round(trt,0)
select case duration
case 1
DurText = " (углубленный курс)"
FullIndex = Index '& "/" & duration
case 2
DurText = " (базовый курс)"
FullIndex = Index '& "/" & duration
case else
DurText = ""
FullIndex = Index
end select
if nameEng <> "" then
FullName = name & " " & nameEng ' & "" & DurText
else
FullName = name' & DurText
end if
' namestr = "" & FullName & ""
namestr = "" & FullName & ""
if tag=0 then
color="#FFFFFF"
tag=1
else
color="#d6dee9"
tag=0
end if
%>
| ><%=FullIndex%> |
>
|
><%=PriceDBObject("hours")%> |
><%=PriceDBObject("monthweek")%> |
><%=PriceDBObject("priceM")%> |
><%=PriceDBObject("priceD")%> |
><%=PriceDBObject("priceE")%> |
<%
PriceDBObject.MoveNext
Loop
PriceDBObject.Close
Set file= FSO.Getfile("c:\Inetpub\wwwroot\maovorg_new\Files\MAOV_SB.zip")
trt = file.size/1024
trt = round(trt,0)
%>
|
|
|
| |
<% maov_buttommenu ()%>
|
|