Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<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>
|
