145 lines
3.6 KiB
Plaintext
145 lines
3.6 KiB
Plaintext
<html>
|
|
<!--
|
|
update bug in RAID
|
|
|
|
QueryString : none
|
|
|
|
Form : bugid=bug# | CREATE
|
|
desc : text to be added at end of existing description
|
|
field names as present in bugs RAID table
|
|
|
|
-->
|
|
<head>
|
|
</head>
|
|
<body>
|
|
<!--#include virtual="/aspsamp/samples/adovbs.inc"-->
|
|
<%
|
|
dim all()
|
|
ReDim all(Request.Form.Count)
|
|
|
|
AddDesc = null
|
|
BugID =""
|
|
|
|
mx = 0
|
|
for each nm in Request.Form
|
|
if nm = "bugid" then
|
|
BugID = Request.Form(nm)
|
|
elseif nm = "action" then
|
|
elseif nm = "desc" then
|
|
AddDesc = Request.Form(nm) & chr(13) & chr(10)
|
|
else
|
|
all(mx) = nm
|
|
mx = mx + 1
|
|
end if
|
|
next
|
|
|
|
Set Conn = Server.CreateObject("ADODB.Connection")
|
|
Conn.CommandTimeout = 90
|
|
Conn.Open Session("DSN")
|
|
Set RS = Server.CreateObject("ADODB.Recordset")
|
|
Set Comm = Server.CreateObject("ADODB.Command")
|
|
Set Comm.ActiveConnection = Conn
|
|
|
|
Comm.CommandText = "Select DBColName,FriendlyName,XPos,YPos,Width,Height,HelpText,Type,fForcedEntry from flds"
|
|
Set RS.Source = Comm
|
|
RS.Open
|
|
FldArray = RS.GetRows()
|
|
RS.Close
|
|
|
|
if BugID = "CREATE" then
|
|
|
|
RS.CursorType = adOpenStatic
|
|
Set RS.Source = Comm
|
|
|
|
Conn.BeginTrans
|
|
Comm.CommandText = "Select IsNull(max(BugID)+1,1) from bugs"
|
|
RS.Open
|
|
bid = RS(0)
|
|
RS.Close
|
|
v = "INSERT INTO bugs(BugID,Description"
|
|
for i = 0 to mx - 1
|
|
v = v & "," & all(i)
|
|
next
|
|
v = v + ") VALUES (" & bid & ",'" & AddDesc & "'"
|
|
for i = 0 to mx - 1
|
|
typ = 0
|
|
for j = 0 to UBound(FldArray,2)
|
|
if FldArray(0,j) = all(i) then
|
|
typ = FldArray(7,j)
|
|
exit for
|
|
end if
|
|
next
|
|
|
|
rem if type us numeric then do not use ''
|
|
|
|
if typ = 2 then
|
|
v = v & "," & Request.Form(all(i))
|
|
else
|
|
v = v & ",'" & Request.Form(all(i)) & "'"
|
|
end if
|
|
next
|
|
v = v + ")"
|
|
rem Response.Write v
|
|
Conn.Execute v
|
|
Conn.CommitTrans
|
|
|
|
ElseIf BugID <> "" then
|
|
|
|
Set uRS = Server.CreateObject("ADODB.Recordset")
|
|
uRS.ActiveConnection = Conn
|
|
|
|
base = 0
|
|
|
|
do while mx
|
|
if ( mx > 12 ) then
|
|
n = 12
|
|
else
|
|
n = mx
|
|
end if
|
|
|
|
fl = ""
|
|
|
|
for i = 0 to n - 1
|
|
if i > 0 then
|
|
fl = fl & ","
|
|
end if
|
|
fl = fl & all(base+i)
|
|
next
|
|
|
|
uRS.Source = "Select " & fl & " from bugs where BugID=" & BugID
|
|
uRS.CursorType = adOpenStatic
|
|
uRS.LockType = adLockOptimistic
|
|
uRS.Open
|
|
for i = 0 to n - 1
|
|
rem Response.Write all(base+i) &"," & Request.Form(all(base+i)) & "-"
|
|
uRS(all(base+i)).Value = Request.Form(all(base+i))
|
|
next
|
|
uRS.Update
|
|
uRS.Close
|
|
|
|
base = base + n
|
|
mx = mx - n
|
|
loop
|
|
|
|
if vbNull <> VarType(AddDesc) then
|
|
uRS.Source = "Select Description from bugs where BugID=" & BugID
|
|
uRS.CursorType = adOpenStatic
|
|
uRS.LockType = adLockOptimistic
|
|
uRS.Open
|
|
rem Response.Write uRS(0) & AddDesc
|
|
uRS("Description").Value = uRS(0) & AddDesc
|
|
uRS.Update
|
|
uRS.Close
|
|
end if
|
|
|
|
end if
|
|
|
|
Conn.Close
|
|
%>
|
|
<script FOR=window EVENT=onload() language="JavaScript">
|
|
// this will be executed only if execution was successful
|
|
window.close();
|
|
</script>
|
|
</body>
|
|
</html>
|