<%@ Language=VBScript %> <%OPTION EXPLICIT%> <% Dim SQL, curarea, Last_Name, First_Name,gradelevel_lowgrade,gradelevel_highgrade,store_url,SQLAuthors,rsCareaAuthor Dim rsCarea, Author_id,careaID,product_description, border_id,product_id, preproduct_id,authors, t,name_of_product,firstCha curarea=request.QueryString("curarea") careaID=request.QueryString("careaID") if curarea ="" then curarea="Early Reading" careaID=1 end if t=1 %> Scholastic Professional <% doMenu %>
Browse Books & More by Curriculum: <%=replace(curarea,"-", "&")%>
<% SQL="sp_get_TPCurriculum " & careaID 'response.write SQL set rsCarea=Con.EXECUTE(SQL) Do WHILE NOT rsCarea.EOF product_id=rsCarea("product_id") name_of_product=rsCarea("name_of_product") product_description=FormatHTMLText(rsCarea("product_description")) gradelevel_lowgrade=rsCarea("gradelevel_lowgrade") gradelevel_highgrade=rsCarea("gradelevel_highgrade") if trim(rsCarea("border_id")) <> "" then border_id="(Item # " & trim(rsCarea("border_id")) & ")" store_url=rsCarea("store_url") SQLAuthors="sp_get_TPCurriculumAuthors " & product_id 'response.write SQLAuthors set rsCareaAuthor=Con.EXECUTE(SQLAuthors) Do WHILE NOT rsCareaAuthor.EOF If NOT rsCareaAuthor.EOF then Last_Name=rsCareaAuthor("Last_Name") First_Name=rsCareaAuthor("First_Name") firstCha=ucase(mid(Last_Name,1,1)) authors=authors &"; " & First_Name & " " & Last_Name & "" End if rsCareaAuthor.movenext loop rsCareaAuthor.close set rsCareaAuthor=nothing %> <% authors="" rsCarea.movenext loop rsCarea.close set rsCarea=nothing %>
" border="0">  

<%=name_of_product%>
<%=product_description%>
Grades <%=gradelevel_lowgrade%>– <%=gradelevel_highgrade%>
<%=mid(authors,2)%>
<%=border_id%>

 
    Back to Top
     
<% doFooter %>