65 lines
1.9 KiB
Plaintext
65 lines
1.9 KiB
Plaintext
<%
|
|
Response.Expires = 0
|
|
%>
|
|
<html>
|
|
<!--
|
|
Add/delete links ( attachments, linked bugs ) for a given bug
|
|
|
|
Form : bugid=# ( bug # )
|
|
type=# ( link type: 3 = attach file, 1= related bugs, 0=duplicate, 6=dependent
|
|
linkedbug=#
|
|
action=add/del
|
|
tokenid=TokenId for links table updates
|
|
linkid=#
|
|
-->
|
|
<head>
|
|
</head>
|
|
<body bgcolor=#c0c0c0>
|
|
<%
|
|
Set Conn = Server.CreateObject("ADODB.Connection")
|
|
Set Comm = Server.CreateObject("ADODB.Command")
|
|
Set RS = Server.CreateObject("ADODB.Recordset")
|
|
Conn.Open Session("DSN")
|
|
Set Comm.ActiveConnection = Conn
|
|
RS.CursorType = adOpenStatic
|
|
Set RS.Source = Comm
|
|
|
|
|
|
Response.Write "Updating database..."
|
|
|
|
Select Case Request.Form("action")
|
|
case "add"
|
|
Conn.BeginTrans
|
|
Comm.CommandText = "Select IsNull(Max(LinkID)+1,1) from links"
|
|
RS.Open
|
|
lid = RS(0)
|
|
RS.Close
|
|
|
|
v = "insert into links(LinkID, BugID, FileName, OriginalName, LinkedBugID, DataString, TokenID, Type, fDeleted, Rev) VALUES(" & lid & ", " & Request.Form("bugid") & ", '', '', " & Request.Form("linkedbug") & ", '', " & Request.Form("tokenid") & ", " & Request.Form("type") & ", 0, 1)"
|
|
rem Response.Write v
|
|
Conn.Execute v
|
|
Conn.CommitTrans
|
|
|
|
case "del"
|
|
v = "delete from links where LinkID=" & Request.Form("linkid")
|
|
rem Response.Write v
|
|
Conn.Execute v
|
|
|
|
case "delattach"
|
|
rem Comm.CommandText = "Select Filename from links where LinkID=" & Request.Form("linkid")
|
|
rem RS.Open
|
|
rem fn = RS(0)
|
|
rem RS.Close
|
|
v = "delete from links where LinkID=" & Request.Form("linkid")
|
|
rem Response.Write v
|
|
Conn.Execute v
|
|
end select
|
|
|
|
Conn.Close
|
|
%>
|
|
</body>
|
|
<script FOR=window EVENT=onload() language="JavaScript">
|
|
history.back();
|
|
</script>
|
|
</html>
|