<%@ Language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<form action= "handlevote.asp" Target=mainframe method=post id=form1 name=form1>
<%
Response.Write "Reading new chapters <HR>"
Set Conlink=server. CreateObject ("MSWC.") Nextlink ")
Set Fsys=server. CreateObject ("Scripting.FileSystemObject")
If Fsys. FileExists (server. MapPath ("/project4_local") & "/new1/new.txt") Then
Ith=conlink. GetListCount ("New1/new.txt")
For I=1 to CInt (ith)
Response.Write "<input id=radio name=voteradio value=newchapter" & I & ". html type=radio>"
Response.Write "<a href=" & Conlink. GetNthURL ("New1/new.txt", i) & "? page=" & I & "Target=mainframe>" & Conlink. GetNthDescription ("New1/new.txt", i) & "<a><br>"
Next
Else
Response.Write "There's no new article at the moment."
End If
%>
<P></P>
<input type= "Submit" value= "vote" id=submit1 name=submit1>
Join you in the comments
<p><textarea id=textarea1 name=votecomment style= "height:100px; width:90% ">
</TEXTAREA></P>
</FORM>
</BODY>
</HTML>
