<%@ Language=VBScript %> <% cat=FormatTextHTML(request.querystring("cat")) if (RegExpValidation("alphac-numeric",cat) = True) then if cat="glr" then title="Guided & Leveled Reading" if cat="srwp" then title="Supplemental Reading & Writing Programs" if cat="bscc" then title="Best Selling Classroom Collections" else cat = "" end if Function FormatHTMLText (strASCII) FormatHTMLText = Trim(strASCII) FormatHTMLText = Replace(FormatHTMLText, "<","<") FormatHTMLText = Replace(FormatHTMLText, "'","'") FormatHTMLText = Replace(FormatHTMLText, "''",chr(34)) End Function %> Classroom Books: Special Offers | Scholastic
<%=title%>



<% '----------------------------------------------------------------- 'Loope through DB and display product information for this A to Z page '----------------------------------------------------------------- sql="sp_get_ClassroomOther '" & cat & "'" set RS =con.Execute(sql) If NOT RS.EOF and NOT RS.BOF then Do until RS.EOF if product_description2 <> "" then proDescription =FormatHTMLText(RS("product_description2")) else proDescription = FormatHTMLText(RS("product_description")) end if name_of_product=trim(rs("name_of_product")) product_microsite_url = trim(rs("product_microsite_url")) store_url = trim(rs("store_url")) add_image = trim(rs("add_image")) order_form_url=trim(rs("order_form_url")) %>
<%=name_of_product%>
<%=proDescription%>

<%if rs("product_microsite_url") <> "" then response.write ("Learn More
") end if if rs("store_url") <> "" then response.write ("Buy Now
") end if if rs("order_form_url") <> "" then response.write ("Download our Order Form (PDF)") end if%>


<% i=i+1 preFirstCha = firstCha rs.MoveNext Loop rs.close set rs = nothing else Response.write "0 result" end if ' end check EOF AND BOF '------------------------------------End-------------------------------------- %>