<% Dim Rsinf,intID intID = Trim(Request.QueryString("id")) If intID = "" Or Not IsNumeric(intID) Then intID = getFSID(6) If intID = 0 Then Response.Write("Nothing.") End If Else intID = CLng(intID) End If Set Rsinf = Conn.Execute("Select * From ArticleSort Where ID=" & intID) If Not Rsinf.EOF Then %>
<%=Rsinf("SortName")%>
 
<%=Rsinf("Intro")%>


<% Else Response.Write("Error:  Record is not found.") End If ClearObj(Rsinf) %>