|
<% 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 %>
|