<% @ Language = VBScript %>
<HTML>
<HEAD>
<Meta name = "GENERATOR" Content = "Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'The variable gets the current published story
Dim xchapter
Strfilename = server. MapPath ("story.txt ")
Set conlink = server. CreateObject ("MSWC. NextLink ")
Ith = conlink. GetListCount ("story.txt ")
If cint (ith)> 0 then
The number of links in 'sale linked file story.txt determines what chapter is to be published Currently
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 = size = 2> Welcome to Jielong
<FONT color = crimson face = "" size = 4> question </FONT>
</FONT> </STRONG>
</P>
<P> <FONT> Chapter <% = xchapter %>
<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 is the story of the continued connection.
<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>
