<% dim fileurl as string="" dim isasset as string="" dim conn as New SqlConnection(connectionstr) dim mycommand as New SqlCommand("xlaANMsp_edit_article_files",conn) mycommand.Parameters.Add( "@articleid" , articleid) mycommand.Parameters.Add( "@kill", kill) mycommand.CommandType = CommandType.StoredProcedure mycommand.connection = conn conn.open() dim dr as SqlDataReader=mycommand.ExecuteReader() if dr.read() then deletefile(dr("filename"),dr("urlfile")) dr.nextresult() do while dr.read() if dr("urlfile")=0 then fileurl="articlefiles/" & dr("articleid") & "-" & dr("filename") else fileurl=dr("filename") if instr(1,fileurl,"./articlefiles/r.asp?f=",1)<>0 then fileurl=replace(fileurl,"./articlefiles/r.asp?f=", appsettings.applicationurl & "articlefiles/r.aspx?f=",1,-1,1) if instr(1,fileurl,"../articlefiles/",1)<>0 then fileurl=replace(fileurl,"../articlefiles/", appsettings.applicationurl & "articlefiles/",1,-1,1) end if if dr("isasset")<>"" then isasset=" (Asset) " else isasset="" %> <% loop dr.close() conn.close() %>

Title : Comments : Upload File : File URL : <%if appsettings.aigurl<>"" then%> <%end if%> Width : Optional Height : Optional File Type : Image Video Audio File Flash Link Other Tag ID # : Auto 1 2 3 4 5 6 7 8 9 10
	File	Tag ID	Type	Edit	Delete
.gif" alt="<%=dr("filetype")%>" border=0>	<%=left(dr("filetitle"),255)%> <%=isasset%> <%=dr("filecomment")%>	<%=getreference(dr("filetype"),dr("tagid"),dr("isasset"))%>	<%=dr("filetype")%>	);">	);">