<% set mycon=Server.CreateObject("ADODB.Connection") mycon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\CyberSchool.mdb")) set school= mycon.execute("select * from pic where PicID =" & Request.QueryString("num")) set temp= mycon.execute("select * from cyberschools where ID =" & Request.QueryString("num")) school_name = temp("school_name") id = Request.QueryString("num") color = temp("school_color1") address = temp("address") state = temp("state") city = temp("city") content = temp("photo_gallery") %> <%=school_name%>
   <%=school_name%>
<%=content%>

<% while not school.EOF %>

<%=school("Heading1")%>

<%=school("Description1")%>


<% count = school("NumberOfPics1") for i = 1 to count source = school("PicID") & "_H1_" & i & ".jpg" %> <% next %>

<%=school("Heading2")%>

<%=school("Description2")%>


<% count = school("NumberOfPics2") for i = 1 to count source = school("PicID") & "_H2_" & i & ".jpg" %> <% next %>

<%=school("Heading3")%>

<%=school("Description3")%>


<% count = school("NumberOfPics3") for i = 1 to count source = school("PicID") & "_H3_" & i & ".jpg" %> <% next %>

<%=school("Heading4")%>

<%=school("Description4")%>


<% count = school("NumberOfPics4") for i = 1 to count source = school("PicID") & "_H4_" & i & ".jpg" %> <% next %>

<%=school("Heading5")%>

<%=school("Description5")%>


<% count = school("NumberOfPics5") for i = 1 to count source = school("PicID") & "_H5_" & i & ".jpg" %> <% next %> <% school.movenext Wend %>

Map to School

Main Page
Administration and Staff
Archives
Athletics
Calendar
Classroom Activities
Computer Lab
First Saturday 2001 - 2002
Library
Lunch Menu
Parent Teacher Organization
Photo Gallery

Special Programs

 

Feedback | Africana Studies | First Saturday | Murchison Center | Cyber Schools

<% mycon.close %>