<%@ Language=VBScript %> <% OPTION EXPLICIT Dim conn, rs, rs2, iscomma, pid, isstop Dim tempcurrency, tempstart, tempend, templength, tempcost1, tempcost2 Dim temploc, tempname, tempnumber Set conn = Server.CreateObject("ADODB.Connection") conn.Open("Driver=SQL Server;User Id=Educasian;"&_ "PASSWORD=aajmr;SERVER=DATAPIPE-A4NUPK"&_ ";database=Educasian") %> EducAsian Study, Travel and Work in China: Chinese Language Programs (Print)
<% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Beijing' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Shanghai' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Kunming' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Qingdao' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Dalian' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Hangzhou' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Xian' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %> <% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, NUMBER, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, DBLOFF, "&_ "SGLOFF, TRPLAPT, DBLAPT FROM PROGRAMS INNER JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONLINK.LOCATIONID = "&_ "LOCATIONS.LOCATIONID WHERE LOCATIONS.NAME='Tianjin' "&_ "AND PROGRAMS.TYPE='Chinese Language' ORDER BY NUMBER") while not rs.eof %> <% rs.movenext wend %>
Chinese Language Programs:
Classes focussing on speaking, listening, reading and writing Mandarin Chinese for four hours in the morning, and optional classes, lectures and sightseeing trips offered in the afternoon.
(Click on the Course Code for more information.)		 Program Fees (in US$)
Includes: Tuition, Visa, accommodations, books and all study materials, insurance, local sightseeing, pre-departure orientation package, airport pickup and drop off, airport taxes, all program related travel in China, etc.
(Click on course for more specific information.)
Course
Code		 Course Dates Length
(weeks)		 On-Campus
Standard
Double/Single		 On-Campus
Budget
Double/Single		 Hotel
Double/Single		 Apartment
3 Bedroom
2 Bedroom
BEIJING
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
SHANGHAI
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
KUNMING
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
QINGDAO
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
DALIAN
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
HANGZHOU
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
XIAN
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
TIANJIN
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
<% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, "&_ "NUMBER, PROGRAMS.NAME AS PROGNAME, CONVERT(char(11),startdate,100) AS "&_ "startdate, CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLOFF, SGLOFF, LOCATIONS.HREF AS LOCHREF, "&_ "LOCATIONS.NAME AS LOCNAME FROM PROGRAMS LEFT JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONS.LOCATIONID = "&_ "LOCATIONLINK.LOCATIONID WHERE PROGRAMS.TYPE = "&_ "'Study and Travel' ORDER BY PROGRAMS.NUMBER") while not rs.eof iscomma = 0 pid = rs("PROGID") tempnumber = rs("NUMBER") tempname = rs("PROGNAME") tempstart = rs("startdate") tempend = rs("finishdate") templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if tempcost1 = rs("DBLOFF") if tempcost1>0 then tempcost1=FormatCurrency(tempcost1,0) else tempcost1="N/A" end if tempcost2 = rs("SGLOFF") if tempcost2>0 then tempcost2=FormatCurrency(tempcost2,0) else tempcost2="N/A" end if %> <% wend %>
Study & Travel Programs 2002
These programs combine rigorous Mandarin Chinese language study in multiple locations with extensive travel, sightseeing, special lectures and many other activities to offer participants a unique and more complete China experience. (Click on the Course Code for more information.)		 Program Fees (US$)
Course # Course Name Locations Course Dates Length Double Single
<%=tempnumber%> <%=tempname%> <% isstop = 0 while isstop = 0 if iscomma = 1 then %> / <% end if iscomma = 1 %>"><%=rs("LOCNAME")%><% rs.movenext if rs.eof then isstop = 1 else if rs("PROGID") <> pid then isstop = 1 end if end if wend %> <%=tempstart%> - <%=tempend%> <%=templength%> <%=tempcost1%> <%=tempcost2%>
<% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, "&_ "NUMBER, PROGRAMS.NAME AS PROGNAME, CONVERT(char(11),startdate,100) AS "&_ "startdate, CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLOFF, SGLOFF, LOCATIONS.HREF AS LOCHREF, "&_ "LOCATIONS.NAME AS LOCNAME FROM PROGRAMS LEFT JOIN "&_ "LOCATIONLINK ON PROGRAMS.PROGRAMID = LOCATIONLINK.PROGRAMID "&_ "INNER JOIN LOCATIONS ON LOCATIONS.LOCATIONID = "&_ "LOCATIONLINK.LOCATIONID WHERE PROGRAMS.TYPE = "&_ "'Business' ORDER BY PROGRAMS.NUMBER") while not rs.eof iscomma = 0 pid = rs("PROGID") tempnumber = rs("NUMBER") tempname = rs("PROGNAME") tempstart = rs("startdate") tempend = rs("finishdate") templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if tempcost1 = rs("DBLOFF") if tempcost1>0 then tempcost1=FormatCurrency(tempcost1,0) else tempcost1="N/A" end if tempcost2 = rs("SGLOFF") if tempcost2>0 then tempcost2=FormatCurrency(tempcost2,0) else tempcost2="N/A" end if %> <% wend %>
Business Programs 2002
These programs combine Mandarin Chinese language study with courses taught in English on Chinese history, culture, business and economics. (Click on the Course Code for more information.)		 Program Fees (US$)
Course # Course Name Locations Course Dates Length Double Single
<%=tempnumber%> <%=tempname%> <% isstop = 0 while isstop = 0 if iscomma = 1 then %> / <% end if iscomma = 1 %>"><%=rs("LOCNAME")%><% rs.movenext if rs.eof then isstop = 1 else if rs("PROGID") <> pid then isstop = 1 end if end if wend %> <%=tempstart%> - <%=tempend%> <%=templength%> <%=tempcost1%> <%=tempcost2%>
<% Set rs=conn.Execute("SELECT PROGRAMS.PROGRAMID AS PROGID, "&_ "NUMBER, PROGRAMS.NAME AS PROGNAME, "&_ "CONVERT(char(11),startdate,100) AS startdate, "&_ "CONVERT(char(11),finishdate,100) as finishdate, "&_ "CLASSLENGTH, DBLON, SGLON, DBLBGT, SGLBGT, "&_ "DBLOFF, SGLOFF, TRPLAPT, DBLAPT FROM "&_ "PROGRAMS WHERE PROGRAMS.TYPE='Wu-Shu' "&_ "ORDER BY PROGRAMS.NUMBER ") while not rs.eof %> <% rs.movenext wend rs.close set rs=nothing conn.close set conn=nothing %>
Internship Programs 2002
These programs combine Mandarin Chinese language study with courses taught in English on Chinese history, culture, business and economics followed by a 6-8 week internship with a business in China. (Click on the Course Code for more information.)		 Program Fees (US$)
Course # Course Name Locations Course Dates Length Double Single
"><%=rs("NUMBER")%> <%=rs("startdate")%> - <%=rs("finishdate")%> <% templength=rs("CLASSLENGTH") if templength<0 then templength = "N/A" else templength = templength&" weeks" end if %><%=templength%> <% tempcurrency=rs("DBLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLON") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLBGT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("DBLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("SGLOFF") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> <% tempcurrency=rs("TRPLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%> / <% tempcurrency=rs("DBLAPT") if tempcurrency>0 then tempcurrency=FormatCurrency(tempcurrency,0) else tempcurrency="N/A" end if %><%=tempcurrency%>
Martial Arts / Wushu Programs 2002
These courses allow participants to focus on sujects such as Tai Ji Quan, Tai Ji Sword, Chang Quan, San Da, Tae Kwon Do and others. Chinese classes can be taken simultaneously. (Click on the Course Code for more information.)
 Program Fees (in US$)
Includes: Tuition, Visa, accommodations, books and all study materials, insurance, local sightseeing, pre-departure orientation package, airport pickup and drop off, airport taxes, all program related travel in China, etc.
(Click on course for more specific information.)
Course
Code		 Course Dates Length
(weeks)		 On-Campus
Standard
Double/Single		 On-Campus
Budget
Double/Single		 Hotel
Double/Single		 Apartment
3 Bedroom
2 Bedroom
3wsbjsp20w Mar - Jun 20 weeks $ /$ $ / $ $ / $ $ / $
3wsbjfa20w Sep - Jan 20 weeks $ /$ $ / $ $ / $ $ / $
Culture Programs 2002
These programs combine Mandarin Chinese language study with courses taught in English on Chinese history, culture, and minority studies. (Click on the Course Code for more information.)		 Program Fees (US$)
Course # Course Name Locations Course Dates Length Double Single
7bjkmtb15wsp Chinese Culture and Sociology Beijing / Kunming / Tibet Mar 1 - Jun 12 15 weeks $9,995 $10,995
Teach In China Programs 2002
These courses allow participants to teach English to all levels of Chinese students and earn valuable experience.(Click on the Course Code for more information.)
 Program Fees (US$)
Course # Course Name Location Course Dates Length Standard Housing
7tszsp Teach In Shenzhen Shenzhen Aug 23 - Jun 30 44 weeks
7t2002 Teach in China 2002 Throughout China Year Round 10-44 weeks $1,095
Homestay Programs 2002
These courses allow participants to live with a Chinese family and become totally immersed in Chinese culture. (Click on the Course Code for more information.)
 Program Fees (US$)
Course # Course Name Locations Course Dates Length Room
5kmsp18w Kunming Homestay Kunming Mar - Jun weeks $,
5kmfa18w Kunming Homestay Kunming Sep - Jan weeks $,