Clover Park Technical College

<%@LANGUAGE="VBSCRIPT"%> <% Set conn = Server.CreateObject("ADODB.Connection") 'response.write(Application("sConn")) conn.open Application("sConn") set rs = conn.execute("StProc_GetHomePage 1006") arrContent = rs.getrows() ' 0,0 = about ' 0,1 = calendar ' 0,2 = cptp spotlight ' 0,3 = news 'for i = 0 to uBound(arrContent,2) ' response.write(arrContent(0,i) & "-" & arrContent(2,i) & "
") 'next sAbout = replace(arrContent(2,0),"''","'") sCalendar = replace(arrContent(2,1),"''","'") sSpotlight = replace(arrContent(2,2),"''","'") sNews = replace(arrContent(2,3),"''","'") set rs = nothing 'Links = DocType 1002 set rsSnowDay = conn.execute("SELECT bIsSnowDay FROM tblSchools WHERE bIsDistrict <> 0") iIsSnowDay = rsSnowDay("bIsSnowDay") set rsSnowDay = nothing select case iIsSnowDay case 1 sSnowDayMsg = "" & _ "

" case 2 sSnowDayMsg = "" & _ "

" case 3 sSnowDayMsg = "" & _ "

" case else sSnowDayMsg = "" end select conn.close() set conn = nothing %> Clover Park Technical College

<%= sCalendar %>


<%= sNews %>		<%= sSpotlight %>

<%= sSnowDayMsg %>

<%= sAbout %>

4500 Steilacoom Blvd SW, Lakewood, WA 98499 - Phone: 253-589-5678