PageRenderTime 12ms CodeModel.GetById 2ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

/beta/admin/editGL.asp

http://github.com/khaneh/Orders
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%>