<%@ Language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<%
' The variable to get the current published story is the first few chapters
Dim xchapter
Strfilename=server. MapPath ("Story.txt")
Set Conlink=server. CreateObject ("MSWC.") Nextlink ")
Ith=conlink. GetListCount ("Story.txt")
If CInt (ith) >0 Then
' Determine what chapter is currently being published based on the number of links in the link file story.txt
Xchapter=cint (ITH) +1
Else
Xchapter=1
End If
%>
<form action= "afterpost.asp" Method=post target=mainframe id=form1 name=form1>
<p ><STRONG>
<font color=mediumslateblue face= Young round size=2> Welcome to the story Solitaire
<font color=crimson face= "" Size=4> topics </FONT>
</FONT></STRONG>
</P>
<P><FONT> <%=xchapter%> Chapter II
<input id=text1 name=title style= "HEIGHT:21PX; width:80% "></FONT></P>
<P><FONT> author
<input id=text2 name=author></font></p>
<P> the following story content for the renewal
<input id=submit1 name=submit1 type=submit value= send >
</P>
<P>
<textarea id=textarea1 name=content style= "HEIGHT:162PX; width:81.85% ">
</TEXTAREA>
</P>
<P> </P>
</FORM>
</BODY>
</HTML>