<% '''This vote application was code 5 years ago and modify to fit this porject.''' submitID=trim(FormatTextHTML(request.querystring("submitID"))) votedID=request.Cookies("votedID") if order="" or order="title" then order="YourEditorial" elseif order="firstname" then order="FirstName" end if 'Get the Editorial Body set rsDetail=server.CreateObject("ADODB.RecordSet") SQLDetail="select * from tbFREditorial where submitID=" & submitID rsDetail.open SQLDetail, "DSN=dotcom", 1,3 'Get the list of article set rs=server.CreateObject("ADODB.RecordSet") SQL="select submitID, YourEditorial, FirstName, LastInitial from tbFREditorial where intStatus = 2 order by " & order rs.open SQL, "DSN=dotcom", 1,3 TotalRecord=rs.RecordCount HalfRecord=round(TotalRecord/2) %> Inkheart: Speak Your Mind | Scholastic.com <% doMenu %>
Inkheart by Cornelia Funke
Explore
Explore
Speak Your Mind



The Southern Italy Times
All the news that’s fit to print etc. <%=FormatDateTime(Date(),1)%>

<%=rsDetail("YourEditorial")%>

<% response.write (rsDetail("YourTopic") & "

") response.write (rsDetail("YourOpinio") & "

") response.write (rsDetail("OpposingReason") & "

") response.write (rsDetail("SumUp") & "

") %>



<% If instr(votedID, ","&submitID&",") then%>
Do you agree with the opinion expressed in this editorial?

Yes-<%=getVoteString(1)%>

No-<%=getVoteString(2)%>
<%else%>
Do you agree with the opinion expressed in this editorial?
Yes No
<%end if%>

The Italian Coast Gazette
Spotlight Editorials Lead Reporter
<% do until rs.EOF if not rs.EOF and not rs.BOF then %> <% end if rs.moveNext loop set rs=nothing %>
"><%=rs("YourEditorial")%>  by  <%=rs("FirstName")%> <%=rs("LastInitial")%>
<% doFooter %>