|
| ID |
Article |
|
<%
dim conn as New SqlConnection(connectionstr)
dim mycommand as New SqlCommand("xlaANMsp_edit_article_relate",conn)
mycommand.Parameters.Add( "@articleid" , articleid)
mycommand.Parameters.Add( "@relatedid", relatedid)
mycommand.Parameters.Add( "@kill", kill)
mycommand.CommandType = CommandType.StoredProcedure
mycommand.connection = conn
conn.open()
dim dr as SqlDataReader=mycommand.ExecuteReader()
do while dr.read()
%>
| " target="_blank"><%=dr("articleid")%> |
" target="_blank"><%=dr("headline")%>
<%=dr("summary")%> |
);">
 |
<%
loop
dr.close()
conn.close()
%>