%@ 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
%>
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
%>