<%@ LANGUAGE="VBSCRIPT" %> <% id = FormatTextHTML(request.QueryString("id")) sid = FormatTextHTML(request.QueryString("sid")) topic = FormatTextHTML(request.QueryString("topic")) if sid>0 then id=sid flag=1 end if if topic = "Iditarod" then Installment = "Persuasive" if topic = "Women" then Installment = "Persuasive" if topic = "women" then Topic = "Women" if topic = "Other" then Installment = "Persuasive" if topic = "Persuasive" then Installment = "Persuasive" If Installment = "Persuasive" then Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM wh_historymakers where id = " & id 'Response.Write(strsql) 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 id = " & id 'Response.Write(strsql) rs.Open strSQL, "DSN=dotcom", 1 ,3 end if %> <% 'Response.Write(strsql) If NOT rs.EOF AND NOT rs.BOF Then firstname = rs("firstname") lastinitial = rs("lastinitial") grade = rs("grade") state = rs("state") If Installment = "Persuasive" then country = rs("imm_Country") else country = rs("Country") end if oral_history = rs("oral_history") title = rs("title") end if checkTopic = "" if len(trim(topic))>0 then checkTopic = topic & ", " end if htmlTitle = checkTopic & title & ", by " & firstname & " " & lastinitial & "., Grade " & grade & ", " & state %> <% 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%> <%'topic = replace(Request.QueryString("topic")," ","%20")%>
			Publish <%=rs("state")%> <%if flag>0 then%> <%topic=rs("topic") topic=lcase(topic) topic = replace(topic," ","%20")%> <%else%> <%end if%> By <%=firstname%> <%= lastinitial%>. Grade <%=grade%>, <%=state%> <%if topic="Immigration" then%> Country of Origin: <%= country%> <%end if%> <%= oral_history%> Back to &tsid=<%=rs("topic")%>"><%=rs("topic")%> Back to &tsid=<%=topic%>"><%=rs("state")%>

<%rs.close set rs = nothing%> <% doFooter %>