 |
|
 |
|
|
<% Dim Rshot,intID intID = Trim(Request.QueryString("id")) If intID = "" Or Not IsNumeric(intID) Then intID = getFSID(7) If intID = 0 Then Response.Write("Nothing.") Else intID = CLng(intID) End If Set Rshot = Conn.Execute("Select * From ArticleSort Where ID=" & intID) If Not Rshot.EOF Then %>
<% Else Response.Write("Error: Record is not found.") End If ClearObj(Rshot) %> |
|
