<% Dim Rsinf,intID,intPID intID = Trim(Request.QueryString("id")) If intID = "" Or Not IsNumeric(intID) Then Response.Write("Nothing.") Else intID = CLng(intID) 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) End If %>