/beta/admin/editGL.asp
ASP | 559 lines | 420 code | 47 blank | 92 comment | 28 complexity | 2fd6a78bb4bed3a7c0e0fe9736ca5f59 MD5 | raw file
1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><% 2' Admin 3PageTitle= "������ ���� ��" 4SubmenuItem=9 5 6%> 7<!--#include file="top.asp" --> 8<!--#include File="../include_farsiDateHandling.asp"--> 9<!--#include File="../include_JS_InputMasks.asp"--> 10 11<% 12 13' * * * * * * * * 14' * * * * * * * * 15' * * * * * * * * 16' * * * * * * * * 17' * * * * * * * * 18' * * * * * * * * 19' * * * * * * * * 20' * * * * * * * * Account 21' * * * * * * * * 22' * * * * * * * * 23' * * * * * * * * 24' * * * * * * * * 25' * * * * * * * * 26' * * * * * * * * 27' * * * * * * * * 28 29'----------------------------------------------------------------------------------------------------- 30'----------------------------------------------------------------------------- Edit GL Accounts submit 31'----------------------------------------------------------------------------------------------------- 32if request("act")="EditAccountSubmit" then 33 ACCID = request("ACCID") 34 name = request("name") 35 GroupID = request("GroupID") 36 accountType = request("accountType") 37 If request("tafsil")="on" Then 38 tafsil = 1 39 Else 40 tafsil = 0 41 End If 42 43 conn.Execute("UPDATE GLAccounts SET Name = N'"& name & "', HasAppendix = "&tafsil&", accountType=" & accountType & " WHERE (ID = "& ACCID & ") AND (GL = "& OpenGL & ")") 44 response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID 45 46'----------------------------------------------------------------------------------------------------- 47'------------------------------------------------------------------------------ Add GL Accounts submit 48'----------------------------------------------------------------------------------------------------- 49elseif request("act")="NewAccountSubmit" then 50 ACCID = request("ACCID") 51 name = request("name") 52 GroupID = request("GroupID") 53 54 Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE ID="& ACCID & " AND GL="& OpenGL ) 55 if not RS2.EOF then 56 response.write "<BR><BR><BR><BR><CENTER>���! ��� ����� ���� ���� ����" 57 response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountForms&GroupID="& GroupID & "&submit=������ ����'>�ѐ��</A></CENTER>" 58 response.end 59 else 60 conn.Execute("INSERT INTO GLAccounts (GLGroup, Name, GL, ID) VALUES ("& GroupID & ", N'"& name & "',"& OpenGL & ", "& ACCID & ")") 61 response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID 62 end if 63 64'----------------------------------------------------------------------------------------------------- 65'---------------------------------------------------------------- Add / Delete / Edit GL Accounts Form 66'----------------------------------------------------------------------------------------------------- 67elseif request("act")="editAccountForms" then 68 ACCID = request("ACCID") 69 submit = request("submit") 70 GroupID = request("GroupID") 71 72 Set RS2 = conn.Execute("SELECT * from GLAccountGroups where id="& GroupID & " and GL="& OpenGL ) 73 GroupName=RS2("name") 74 75 '======================================== ������ ���� 76 '==================================================== 77 if submit="������ ����" then 78 Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccounts WHERE GLGroup="& GroupID & " AND GL="& OpenGL ) 79 MaxID=RS2("MaxID") 80 if isnull(MaxID) then MaxID= GroupID 81 %> 82 <BR><BR> 83 <TABLE align=center> 84 <FORM METHOD=POST ACTION="editGL.asp?act=NewAccountSubmit"> 85 <TR> 86 <TD colspan=2 align=center><H3>������ ����</H3><BR> 87 �� ���� <%=GroupName%> (�� <%=GroupID%>)<BR><BR> 88 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 89 <INPUT TYPE="hidden" name="GroupID" value="<%=GroupID%>"> 90 <BR><BR><BR> 91 </TD> 92 </TR> 93 <TR> 94 <TD>����� ����</TD> 95 <TD><INPUT TYPE="text" NAME="ACCID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+1%>"></TD> 96 </TR> 97 <TR> 98 <TD>��� ����</TD> 99 <TD><INPUT TYPE="text" NAME="name"></TD> 100 </TR> 101 <TR> 102 <TD colspan=2 align=center> 103 <BR><BR> 104 <INPUT TYPE="submit" value="�����"class="GenButton"> 105 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=account&GroupID=<%=GroupID%>'"> 106 </TD> 107 </TR> 108 </FORM> 109 </TABLE> 110 <SCRIPT LANGUAGE="JavaScript"> 111 <!-- 112 document.all.name.focus(); 113 //--> 114 </SCRIPT> 115 <% 116 117 '======================================== ������ ���� 118 '==================================================== 119 elseif submit="������" then 120 Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE ID="& ACCID & " AND GL="& OpenGL ) 121 AccountName=RS2("name") 122 %> 123 <BR><BR> 124 <TABLE align=center> 125 <FORM METHOD=POST ACTION="editGL.asp?act=EditAccountSubmit"> 126 <TR> 127 <TD colspan=2 align=center><H3>������ ����</H3><BR> 128 �� ���� <%=GroupName%> (�� <%=GroupID%>)<BR><BR> 129 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 130 <INPUT TYPE="hidden" name="GroupID" value="<%=GroupID%>"> 131 <BR><BR><BR> 132 </TD> 133 </TR> 134 <TR> 135 <TD>����� ����</TD> 136 <TD><INPUT TYPE="text" NAME="ACCID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=ACCID%>" readonly></TD> 137 </TR> 138 <TR> 139 <TD>��� ����</TD> 140 <TD><INPUT TYPE="text" NAME="name" value="<%=AccountName%>" ></TD> 141 </TR> 142 <tr> 143 <td>�����</td> 144 <td><input type='checkbox' name='tafsil' <% If CBool(rs2("HasAppendix")) Then response.write " checked='checked' " %>></td> 145 </tr> 146 <tr> 147 <td>��� ����</td> 148 <td> 149 <select name="accountType"> 150<% 151set rs=Conn.Execute("select * from glAccountTypes") 152while not rs.eof 153%> 154 <option <%if rs2("accountType")=rs("id") then response.write " selected='selected' "%> value="<%=rs("id")%>"> 155 <%=rs("name")& " (" &rs("name_en")& ")"%> 156 </option> 157<% 158 rs.moveNext 159wend 160%> 161 </select> 162 </td> 163 </tr> 164 <TR> 165 <TD colspan=2 align=center> 166 <BR><BR> 167 <INPUT TYPE="submit" value="���"class="GenButton"> 168 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=account&GroupID=<%=GroupID%>'"> 169 </TD> 170 </TR> 171 </FORM> 172 </TABLE> 173 <% 174 175 176 '======================================== ��� ���� 177 '==================================================== 178 elseif submit="���" then 179 180 Set RS2 = conn.Execute("SELECT * FROM GLDocs INNER JOIN GLRows ON GLDocs.ID = GLRows.GLDoc WHERE (GLDocs.GL = "& OpenGL & ") AND (GLRows.GLAccount = "& ACCID & ")") 181 if not RS2.EOF then 182 response.write "<BR><BR><BR><BR><CENTER>���! �� ��� ���� ������ ��� ���� ����. ��� ��� �� ����� ����." 183 response.write "<BR><BR><A HREF='AccountInfo.asp?act=account&GroupID=" & GroupID & "'>�ѐ��</A></CENTER>" 184 response.end 185 else 186 conn.Execute("DELETE FROM GLAccounts WHERE (ID = "& ACCID & ") AND (GL = "& OpenGL & ")") 187 response.redirect "AccountInfo.asp?act=account&GroupID=" & GroupID 188 end if 189 190 end if 191 192' * * * * * * * * 193' * * * * * * * * 194' * * * * * * * * 195' * * * * * * * * 196' * * * * * * * * 197' * * * * * * * * 198' * * * * * * * * 199' * * * * * * * * Account Groups 200' * * * * * * * * 201' * * * * * * * * 202' * * * * * * * * 203' * * * * * * * * 204' * * * * * * * * 205' * * * * * * * * 206' * * * * * * * * 207 208 209'----------------------------------------------------------------------------------------------------- 210'----------------------------------------------------------------------- Edit GL Account Groups submit 211'----------------------------------------------------------------------------------------------------- 212elseif request("act")="EditAccountGroupSubmit" then 213 GroupID = request("GroupID") 214 name = request("name") 215 SuperGroupID = request("SuperGroupID") 216 217 conn.Execute("UPDATE GLAccountGroups SET Name = N'"& name & "' WHERE (ID = "& GroupID & ") AND (GL = "& OpenGL & ")") 218 219 if cint(request("accountType"))<>-1 then 220 conn.Execute("update glAccounts set accountType=" & request("accountType") &" where glGroup=" & groupID & " and gl=" & openGL) 221 end if 222 response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID 223'response.end 224'----------------------------------------------------------------------------------------------------- 225'------------------------------------------------------------------------ Add GL Account Groups submit 226'----------------------------------------------------------------------------------------------------- 227elseif request("act")="NewAccountGroupSubmit" then 228 GroupID = request("GroupID") 229 name = request("name") 230 SuperGroupID = request("SuperGroupID") 231 232 Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE ID="& GroupID & " AND GL="& OpenGL ) 233 if not RS2.EOF then 234 response.write "<BR><BR><BR><BR><CENTER>���! ��� �� ���� ���� ����" 235 response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountGroupForms&SuperGroupID="& SuperGroupID & "&submit=������ ����'>�ѐ��</A></CENTER>" 236 response.end 237 else 238 conn.Execute("INSERT INTO GLAccountGroups (GLSuperGroup, Name, GL, ID) VALUES ("& SuperGroupID & ", N'"& name & "',"& OpenGL & ", "& GroupID & ")") 239 response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID 240 end if 241 242'----------------------------------------------------------------------------------------------------- 243'---------------------------------------------------------- Add / Delete / Edit GL Account Groups Form 244'----------------------------------------------------------------------------------------------------- 245elseif request("act")="editAccountGroupForms" then 246 GroupID = request("GroupID") 247 submit = request("submit") 248 SuperGroupID = request("SuperGroupID") 249 250 Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL ) 251 SuperGroupName=RS2("name") 252 253 '======================================== ������ ���� 254 '==================================================== 255 if submit="������ ����" then 256 Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccountGroups WHERE GLSuperGroup="& SuperGroupID & " AND GL="& OpenGL ) 257 MaxID=RS2("MaxID") 258 if isnull(MaxID) then MaxID= SuperGroupID 259 %> 260 <BR><BR> 261 <TABLE align=center> 262 <FORM METHOD=POST ACTION="editGL.asp?act=NewAccountGroupSubmit"> 263 <TR> 264 <TD colspan=2 align=center><H3>������ ����</H3><BR> 265 �� �ѐ��� <%=SuperGroupName%> (�� <%=SuperGroupID%>)<BR><BR> 266 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 267 <INPUT TYPE="hidden" name="SuperGroupID" value="<%=SuperGroupID%>"> 268 <BR><BR><BR> 269 </TD> 270 </TR> 271 <TR> 272 <TD>����� ����</TD> 273 <TD><INPUT TYPE="text" NAME="GroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+100%>"></TD> 274 </TR> 275 <TR> 276 <TD>��� ���� </TD> 277 <TD><INPUT TYPE="text" NAME="name"></TD> 278 </TR> 279 <TR> 280 <TD colspan=2 align=center> 281 <BR><BR> 282 <INPUT TYPE="submit" value="�����"class="GenButton"> 283 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=groups&SuperGroupID=<%=SuperGroupID%>'"> 284 </TD> 285 </TR> 286 </FORM> 287 </TABLE> 288 <% 289 290 '======================================== ������ ���� 291 '==================================================== 292 elseif submit="������" then 293 Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE ID="& GroupID & " AND GL="& OpenGL ) 294 GroupName=RS2("name") 295 %> 296 <BR><BR> 297 <TABLE align=center> 298 <FORM METHOD=POST ACTION="editGL.asp?act=EditAccountGroupSubmit"> 299 <TR> 300 <TD colspan=2 align=center><H3>������ ����</H3><BR> 301 �� �ѐ��� <%=SuperGroupName%> (�� <%=SuperGroupID%>)<BR><BR> 302 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 303 <INPUT TYPE="hidden" name="SuperGroupID" value="<%=SuperGroupID%>"> 304 <BR><BR><BR> 305 </TD> 306 </TR> 307 <TR> 308 <TD>����� ����</TD> 309 <TD><INPUT TYPE="text" NAME="GroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=GroupID%>" readonly></TD> 310 </TR> 311 <TR> 312 <TD>��� ����</TD> 313 <TD><INPUT TYPE="text" NAME="name" value="<%=GroupName%>" ></TD> 314 </TR> 315 <tr> 316 <td>���� ���ȝ��</td> 317 <td> 318 <select name="accountType"> 319 <option value="-1" selected="selected">��� ����</option> 320<% 321set rs=Conn.Execute("select * from glAccountTypes") 322while not rs.eof 323%> 324 <option value="<%=rs("id")%>"> 325 <%=rs("name")& " (" &rs("name_en")& ")"%> 326 </option> 327<% 328 rs.moveNext 329wend 330%> 331 </select> 332 </td> 333 </tr> 334 <tr> 335 <td colspan="2">* �� ����� �� ��� ���� �� ����� ���� ����� ���ȝ�� �� ��� ��� ������ ��</td> 336 </tr> 337 <TR> 338 <TD colspan=2 align=center> 339 <BR><BR> 340 <INPUT TYPE="submit" value="���"class="GenButton"> 341 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp?act=groups&SuperGroupID=<%=SuperGroupID%>'"> 342 </TD> 343 </TR> 344 </FORM> 345 </TABLE> 346 <% 347 348 349 '======================================== ��� ���� 350 '==================================================== 351 elseif submit="���" then 352 353 Set RS2 = conn.Execute("SELECT * FROM GLAccounts WHERE (GL = "& OpenGL & ") AND (GLGroup = "& GroupID & ")") 354 if not RS2.EOF then 355 response.write "<BR><BR><BR><BR><CENTER>���! �� ��� ���� ������ ���� ���� ����. ��� ��� �� ����� ����." 356 response.write "<BR><BR><A HREF='AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID & "'>�ѐ��</A></CENTER>" 357 response.end 358 else 359 conn.Execute("DELETE FROM GLAccountGroups WHERE (ID = "& GroupID & ") AND (GL = "& OpenGL & ")") 360 response.redirect "AccountInfo.asp?act=groups&SuperGroupID=" & SuperGroupID 361 end if 362 363 end if 364 365 366' * * * * * * * * 367' * * * * * * * * 368' * * * * * * * * 369' * * * * * * * * 370' * * * * * * * * 371' * * * * * * * * 372' * * * * * * * * 373' * * * * * * * * Account Super Groups 374' * * * * * * * * 375' * * * * * * * * 376' * * * * * * * * 377' * * * * * * * * 378' * * * * * * * * 379' * * * * * * * * 380' * * * * * * * * 381 382 383'----------------------------------------------------------------------------------------------------- 384'----------------------------------------------------------------- Edit GL Account Super Groups submit 385'----------------------------------------------------------------------------------------------------- 386elseif request("act")="EditAccountSuperGroupSubmit" then 387 name = request("name") 388 SuperGroupID = request("SuperGroupID") 389 SuperGroupType = request("type") 390 391 conn.Execute("UPDATE GLAccountSuperGroups SET type="& SuperGroupType & ", Name = N'"& name & "' WHERE (ID = "& SuperGroupID & ") AND (GL = "& OpenGL & ")") 392 if cint(request("accountType"))<>-1 then 393 conn.Execute("update glAccounts set accountType=" & request("accountType") & "where gl=" & openGL & " and glGroup in (select id from GLAccountGroups where gl=" &openGL& " and glSuperGroup=" &SuperGroupID& ")") 394 end if 395 response.redirect "AccountInfo.asp" 396 397'----------------------------------------------------------------------------------------------------- 398'------------------------------------------------------------------ Add GL Account Super Groups submit 399'----------------------------------------------------------------------------------------------------- 400elseif request("act")="NewAccountSuperGroupSubmit" then 401 name = request("name") 402 SuperGroupID = request("SuperGroupID") 403 SuperGroupType= request("type") 404 405 Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL ) 406 if not RS2.EOF then 407 response.write "<BR><BR><BR><BR><CENTER>���! ��� �� �ѐ��� ���� ����" 408 response.write "<BR><BR><A HREF='AccountInfo.asp?act=editAccountSuperGroupForms&submit=������ �ѐ���'>�ѐ��</A></CENTER>" 409 response.end 410 else 411 conn.Execute("INSERT INTO GLAccountSuperGroups (type, Name, GL, ID) VALUES ("& SuperGroupType & ", N'"& name & "',"& OpenGL & ", "& SuperGroupID & ")") 412 response.redirect "AccountInfo.asp" 413 end if 414 415'----------------------------------------------------------------------------------------------------- 416'---------------------------------------------------- Add / Delete / Edit GL Account Super Groups Form 417'----------------------------------------------------------------------------------------------------- 418elseif request("act")="editAccountSuperGroupForms" then 419 submit = request("submit") 420 SuperGroupID = request("SuperGroupID") 421 422 '====================================== ������ �ѐ��� 423 '==================================================== 424 if submit="������ �ѐ���" then 425 Set RS2 = conn.Execute("SELECT MAX(id) AS MaxID FROM GLAccountSuperGroups WHERE GL="& OpenGL ) 426 MaxID=RS2("MaxID") 427 if isnull(MaxID) then MaxID= 0 428 %> 429 <BR><BR> 430 <TABLE align=center> 431 <FORM METHOD=POST ACTION="editGL.asp?act=NewAccountSuperGroupSubmit"> 432 <TR> 433 <TD colspan=2 align=center><H3>������ �ѐ���</H3><BR> 434 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 435 <BR><BR><BR> 436 </TD> 437 </TR> 438 <TR> 439 <TD>����� �ѐ���</TD> 440 <TD><INPUT TYPE="text" NAME="SuperGroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=MaxID+1000%>"></TD> 441 </TR> 442 <TR> 443 <TD>��� �ѐ��� </TD> 444 <TD><INPUT TYPE="text" NAME="name"></TD> 445 </TR> 446 <TR> 447 <TD>��� �ѐ���</TD> 448 <TD> 449 <SELECT NAME="type"> 450 <option value=1>������ (��� ���� ����)</option> 451 <option value=2>���� (��� �� ����)</option> 452 <option value=3>������ (��� �� ����)</option> 453 <option value=4>����� / ����</option> 454 <option value=5>����� / ���� </option> 455 </SELECT> 456 </TD> 457 </TR> 458 <TR> 459 <TD colspan=2 align=center> 460 <BR><BR> 461 <INPUT TYPE="submit" value="�����"class="GenButton"> 462 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp'"> 463 </TD> 464 </TR> 465 </FORM> 466 </TABLE> 467 <% 468 469 '====================================== ������ �ѐ��� 470 '==================================================== 471 elseif submit="������" then 472 Set RS2 = conn.Execute("SELECT * FROM GLAccountSuperGroups WHERE ID="& SuperGroupID & " AND GL="& OpenGL ) 473 SuperGroupName=RS2("name") 474 SuperGroupType=RS2("type") 475 %> 476 <BR><BR> 477 <TABLE align=center> 478 <FORM METHOD=POST ACTION="editGL.asp?act=EditAccountSuperGroupSubmit"> 479 <TR> 480 <TD colspan=2 align=center><H3>������ �ѐ���</H3><BR> 481 �� <%=OpenGLName%> (��� ���� <%=FiscalYear%>) 482 <BR><BR><BR> 483 </TD> 484 </TR> 485 <TR> 486 <TD>����� �ѐ���</TD> 487 <TD><INPUT TYPE="text" NAME="SuperGroupID" onkeypress="return maskNumber(this)" maxlength=5 value="<%=SuperGroupID%>" readonly></TD> 488 </TR> 489 <TR> 490 <TD>��� �ѐ���</TD> 491 <TD><INPUT TYPE="text" NAME="name" value="<%=SuperGroupName%>" ></TD> 492 </TR> 493 <TR> 494 <TD>��� �ѐ���</TD> 495 <TD> 496 <SELECT NAME="type"> 497 <option <% if SuperGroupType=1 then %>selected<% end if %> value=1>������ (��� ���� ����)</option> 498 <option <% if SuperGroupType=2 then %>selected<% end if %> value=2>���� (��� �� ����)</option> 499 <option <% if SuperGroupType=3 then %>selected<% end if %> value=3>������ (��� �� ����)</option> 500 <option <% if SuperGroupType=4 then %>selected<% end if %> value=4>����� / ����</option> 501 <option <% if SuperGroupType=5 then %>selected<% end if %> value=5>����� / ���� </option> 502 </SELECT> 503 </TD> 504 </TR> 505 <tr> 506 <td>���� ���ȝ��</td> 507 <td> 508 <select name="accountType"> 509 <option value="-1" selected="selected">��� ����</option> 510<% 511set rs=Conn.Execute("select * from glAccountTypes") 512while not rs.eof 513%> 514 <option value="<%=rs("id")%>"> 515 <%=rs("name")& " (" &rs("name_en")& ")"%> 516 </option> 517<% 518 rs.moveNext 519wend 520%> 521 </select> 522 </td> 523 </tr> 524 <tr> 525 <td colspan="2">* �� ����� �� ��� ���� �� ����� ���� ����� ���ȝ�� �� ��� ��� ������ ��</td> 526 </tr> 527 <TR> 528 <TD colspan=2 align=center> 529 <BR><BR> 530 <INPUT TYPE="submit" value="���"class="GenButton"> 531 <INPUT TYPE="button" value="������"class="GenButton" onclick="window.location='AccountInfo.asp'"> 532 </TD> 533 </TR> 534 </FORM> 535 </TABLE> 536 <% 537 538 539 '======================================== ��� �ѐ��� 540 '==================================================== 541 elseif submit="���" then 542 543 Set RS2 = conn.Execute("SELECT * FROM GLAccountGroups WHERE (GL = "& OpenGL & ") AND (GLSuperGroup = "& SuperGroupID & ")") 544 if not RS2.EOF then 545 response.write "<BR><BR><BR><BR><CENTER>���! �� ��� �ѐ��� ������ ���� ���� ����. ��� ��� �� ����� ����." 546 response.write "<BR><BR><A HREF='AccountInfo.asp'>�ѐ��</A></CENTER>" 547 response.end 548 else 549 conn.Execute("DELETE FROM GLAccountSuperGroups WHERE (ID = "& SuperGroupID & ") AND (GL = "& OpenGL & ")") 550 response.redirect "AccountInfo.asp" 551 end if 552 553 end if 554 555 556end if 557 558 559%>