<%@ LANGUAGE="VBSCRIPT" %> <% sid = FormatTextHTML(request.QueryString("sid")) sort= FormatTextHTML(request.QueryString("sort")) tsid = replace(Request.QueryString("tsid"),"%20"," ") strFilename=Request.ServerVariables ("script_name") if tsid = "Iditarod" then topic = "Iditarod" Installment = "Persuasive" end if if tsid = "Women" then topic = "Women" Installment = "Persuasive" end if if tsid = "Other" then topic = "Other" Installment = "Persuasive" end if if topic = "women" then topic = "Women" end if if tsid = "Persuasive" then topic = "Persuasive" Installment = "Persuasive" end if if Installment = "Persuasive" then if sort="" then sort="firstname" 'First go round end if if sid<>"" then 'Selected State or topic Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM wh_historymakers where state = '"& sid &"' and status= 2 order by "& sort header=sid rs.Open strSQL, "DSN=network;UID=network;PWD=olives1234;APP=WW", 1 ,3 else 'Set rs = Server.CreateObject("ADODB.Recordset") 'strSQL = "SELECT * FROM ww_2001 where topic = '"& tsid &"' and hold=1 order by firstn" header=tsid if header="WWII" then Header="World War II" end if if sort="" then sort="firstname" 'First go round end if if sid<>"" then 'Selected State or topic Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM ww_2001 where state = '"& sid &"' and hold= 1 order by "& sort header=sid rs.Open strSQL, "DSN=dotcom;UID=dotcom;PWD=well1234;APP=WW", 1 ,3 else 'Set rs = Server.CreateObject("ADODB.Recordset") 'strSQL = "SELECT * FROM ww_2001 where topic = '"& tsid &"' and hold=1 order by firstn" header=tsid if header="WWII" then Header="World War II" end if end if end if end if %> <% doMenu %>

"> <% if topic = "Persuasive" then %> <% end if %> <% if topic = "Iditarod" then %> <% end if %> <% if topic = "Women" then %> <% end if %> <% if topic = "" then %> <% end if %> <% if topic = "Immigration" then %> <% end if %> <% if topic = "My%20Family" then %> <% end if%> <% if topic = "WWII" then %> <% end if %> <% if topic = "Other" then %> <% end if%> <% if topic = "Research" then %> <% end if%> <% if topic = "researchstart" then %> <% end if%>
			Publish <%if sid<>"" then%> <%=sid%> Click the red arrows to sort by student name, grade, or title. Click the student's name to read the selection <%If Installment = "Persuasive" then%> <%else%> <%end if%> <% If Installment = "Persuasive" then do while not rs.EOF%> <% rs.MoveNext loop rs.close set rs=nothing else do while not rs.EOF%> <% rs.MoveNext loop rs.close set rs=nothing end if else dim astates, hold(10000), found(10000) aStates = Array( "Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", _ "Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", _ "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", _ "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", _ "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire", _ "New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", _ "Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", "South Carolina", _ "South Dakota", "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", _ "West Virginia", "Wisconsin", "Wyoming", "Guam", "Puerto Rico", "Virgin Islands", _ "Alberta", "British Columbia", "Manitoba", "New Brunswick", "Newfoundland ", _ "Nova Scotia", "Northwest Territories", "Ontario", "Prince Edward Island", _ "Quebec", "Saskatchewan", "Yukon", "Other" ) tsid=replace(tsid,"%20"," ") 'Response.Write tsid If Installment = "Persuasive" then Set rs1 = Server.CreateObject("ADODB.Recordset") strSQL1 = "SELECT * FROM wh_historymakers where topic = '"& tsid &"' and status=2 order by state" 'strSQL1 = "SELECT state FROM ww_2001 where hold=1 order by state" rs1.Open strSQL1, "DSN=Network;UID=Network;PWD=olives1234;APP=WW", 1 ,3 do while not rs1.EOF count=count+1 hold(count)=rs1("state") ' Bring into array rs1.MoveNext loop rs1.Close set rs1=nothing for intloop1=1 to count statelu=hold(intloop1) For intLoop = 0 To 65 if statelu = astates(intloop) then 'Found State null so unique fit=fit+1 found(fit)=astates(intloop) astates(intloop)="" end if next next else Set rs1 = Server.CreateObject("ADODB.Recordset") strSQL1 = "SELECT * FROM ww_2001 where topic = '"& tsid &"' and hold=1 order by state" 'strSQL1 = "SELECT state FROM ww_2001 where hold=1 order by state" rs1.Open strSQL1, "DSN=dotcom;UID=dotcom;PWD=well1234;APP=WW", 1 ,3 do while not rs1.EOF count=count+1 hold(count)=rs1("state") ' Bring into array rs1.MoveNext loop rs1.Close set rs1=nothing for intloop1=1 to count statelu=hold(intloop1) For intLoop = 0 To 65 if statelu = astates(intloop) then 'Found State null so unique fit=fit+1 found(fit)=astates(intloop) astates(intloop)="" end if next next end if%> Student Grade Title or Nominee Student Grade Title &topic=<%=tsid%>"><%=rs("firstname")%> <%=rs("grade")%> <%=rs("Imm_name")%><%= " " %><%=rs("Imm_country")%><%=rs("Title")%> "><%=rs("firstname")%> <%=rs("grade")%> <%=rs("title")%> <%If Installment = "Persuasive" then for show=1 to fit Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM wh_historymakers where topic = '"& tsid &"' and status=2 and state = '"& found(show) &"' order by firstname" 'Response.Write strsql rs.Open strSQL, "DSN=network;UID=network;PWD=olives1234;APP=WW", 1 ,3 %> <% do while not rs.EOF %> <% rs.MoveNext loop 'rs.movefirst %> <% next 'rs.close set rs=nothing else for show=1 to fit Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM ww_2001 where topic = '"& tsid &"' and hold=1 and state = '"& found(show) &"' order by firstname" 'Response.Write strsql rs.Open strSQL, "DSN=dotcom;UID=dotcom;PWD=well1234;APP=WW", 1 ,3 %> <% do while not rs.EOF %> <% rs.MoveNext loop 'rs.movefirst %> <% next 'rs.close set rs=nothing end if end if %> <%=found(show)%> Student Grade Title &topic=<%=topic%>"><%=rs("firstname")%> <%=rs("grade")%> <%=rs("Imm_name")%><%= " " %><%=rs("Imm_country")%><%=rs("Title")%> <%=found(show)%> Student Grade Title &topic=<%=tsid%>"><%=rs("firstname")%> <%=rs("grade")%> <%=rs("title")%> <% doFooter %>