fork download 
  1. DO 
  2. if Request.Form("Action") = "CREATE" and strCreate = "Y" then 
  3. IF strPersonId <> "" then 
  4. for iLoop = 0 to UBound(astrSubTest) 
  5. if Request.Form(astrSubTest(iLoop) & "CodeID") <> "" then 
  6. if DBConnNextKey.Errors.Count > 0 then 
  7. for iLoop2 = 0 to DBConnNextKey.Errors.Count - 1 
  8. next 
  9. exit do 
  10. end if 
  11. if Request.Form(astrSubTest(iLoop) & "V") = "" then 
  12. else 
  13. end if 
  14. if DBConnU.Errors.Count > 0 then 
  15. exit for 
  16. end if 
  17. end if 
  18. next 
  19. if DBConnU.Errors.Count = 0 then 
  20. else 
  21. for iLoop2 = 0 to DBConnU.Errors.Count - 1 
  22. next 
  23. end if 
  24. End IF 
  25. end if 
  26. if Request.Form("Action") = "UPDATE" and strUpdate = "Y" then 
  27. IF strPersonId <> "" then 
  28. for iLoop = 0 to UBound(astrSubTest) 
  29. if Request.Form(astrSubTest(iLoop) & "ID") = "" then 'row does not exist 
  30. if Request.Form(astrSubTest(iLoop) & "CodeID") <> "" then 'Create 
  31. if DBConnNextKey.Errors.Count > 0 then 
  32. for iLoop2 = 0 to DBConnNextKey.Errors.Count - 1 
  33. next 
  34. exit do 
  35. end if 
  36. if Request.Form(astrSubTest(iLoop) & "V") = "" then 
  37. else 
  38. end if 
  39. end if 
  40. elseif Request.Form(astrSubTest(iLoop) & "CodeID") = "" then 'Delete 
  41. else 'Update 
  42. if Request.Form(astrSubTest(iLoop) & "V") = "" then 
  43. else 
  44. end if 
  45. end if 
  46. if strSQL <> "" then 
  47. end if 
  48. if DBConnU.Errors.Count > 0 then 
  49. exit for 
  50. end if 
  51. next 
  52. if DBConnU.Errors.Count = 0 then 
  53. else 
  54. for iLoop = 0 to DBConnU.Errors.Count - 1 
  55. next 
  56. end if 
  57. End IF 
  58. end if 
  59. if Request.Form("Action") = "DELETE" and strDelete = "Y" then 
  60. IF strPersonId <> "" then 
  61. for iLoop = 0 to UBound(astrSubTest) 
  62. if Request.Form(astrSubTest(iLoop) & "ID") <> "" then 'row exists 
  63. end if 
  64. next 
  65.  
  66. if DBConnU.Errors.Count = 0 then 
  67. else 
  68. for iLoop = 0 to DBConnU.Errors.Count - 1 
  69. next 
  70. end if 
  71. End IF 
  72. end if 
  73. LOOP UNTIL TRUE
Not running #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/we1o2
language:
PHP (php 7.3.5)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!