PageRenderTime 27ms CodeModel.GetById 16ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

/beta/order/ManagerReports.asp

http://github.com/khaneh/Orders
ASP | 579 lines | 523 code | 49 blank | 7 comment | 55 complexity | 2c27129914d312d7a9ddd94cacd600ba MD5 | raw file
  1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2'Order (2)
  3PageTitle="����� ������"
  4SubmenuItem=6
  5if not Auth(2 , 7) then NotAllowdToViewThisPage()
  6%>
  7<!--#include file="top.asp" -->
  8<!--#include File="../include_farsiDateHandling.asp"-->
  9<!--#include File="../include_JS_InputMasks.asp"-->
 10<STYLE>
 11	.GetCustTbl {font-family:tahoma; background-color: #DDDDDD; width:630; direction: RTL; }
 12	.GetCustTbl td {padding:2; font-size: 9pt; height:25;}
 13	.GetCustInp { font-family:tahoma; font-size: 9pt;}
 14	.CusTableHeader {background-color: #33AACC; text-align: center; font-weight:bold;}
 15	.CustContactTable {font-family:tahoma; width:100%; border:1 solid black; direction: RTL; background-color:#CCCCCC;}
 16	.CustContactTable td {padding:5;}
 17	.CustTable {font-family:tahoma; width:80%; border:1 solid black; direction: RTL; background-color:black;}
 18	.CustTable td {padding:5;}
 19	.CustTable a {text-decoration:none;color:#000088}
 20	.CustTable a:hover {text-decoration:underline;}
 21	.CusTD1 {background-color: #CCCC66; text-align: left; font-weight:bold;}
 22	.CusTD2 {background-color: #DDDDDD; direction: LTR; text-align: right; font-size:9pt;}
 23	.CusTD3 {background-color: #DDDDDD; text-align: center; font-size:9pt;}
 24	.CusTD4 {background-color: #CCCC66; direction: LTR; text-align: center; font-size:9pt;}
 25	.CustTable4 {font-family:tahoma; direction: RTL; width:100%; height:100%; background-color:#C3DBEB;}
 26	.GenInput { border: 1 solid black; font-family:tahoma; font-size: 9pt;}
 27	.searchTable {background-color: #330099; border: 2 dashed #330099}
 28	.searchTable th {background-color: #BBBBBB; font-weight:normal; font-size:9pt;}
 29	.searchTable td {background-color: #EEEEEE;}
 30</STYLE>
 31<%
 32
 33ResultsInPage =	request("ResultsInPage")
 34FromDate	=	request("FromDate")
 35ToDate		=	request("ToDate")
 36AllowedPercent=	request("AllowedPercent")
 37Ord			=	request("Ord")
 38CurrentPage =	request("p")
 39
 40
 41if FromDate		= ""	then	FromDate = shamsiToday()
 42if ToDate		= ""	then	ToDate = shamsiToday()
 43
 44if request("checkDate")="on" OR request("act")="" then checkDate=True
 45
 46if request("CopyShop")="" then
 47	CopyShop=	-1
 48else
 49	CopyShop=	cint(request("CopyShop"))
 50end if
 51
 52if request("approve")="" then
 53	approve=	-1
 54else
 55	approve =	cint(request("approve"))
 56end if
 57
 58if request("issue")="" then
 59	issue=	0
 60else
 61	issue =		cint(request("issue"))
 62end if
 63
 64if request("void")="" then
 65	void=	0
 66else
 67	void =		cint(request("void"))
 68end if
 69
 70if request("creator")="" then
 71	creator=	0
 72else
 73	creator =	cint(request("creator"))
 74end if
 75
 76
 77if ResultsInPage="" then
 78	ResultsInPage=	50
 79else
 80	ResultsInPage =	cint(ResultsInPage)
 81end if
 82
 83
 84if AllowedPercent="" then
 85	AllowedPercent=	10
 86else
 87	AllowedPercent =	cint(AllowedPercent)
 88end if
 89
 90
 91%>
 92<br>
 93<FORM METHOD=POST ACTION="?act=show">
 94<INPUT TYPE="hidden" Name="p" Value="<%=CurrentPage%>">
 95<INPUT TYPE="hidden" Name="ord" Value="<%=Ord%>">
 96<TABLE align=center border=0 bgcolor=#0 cellspacing=1 cellpadding=2 class="searchTable">
 97<TR>
 98	<TH colspan=3 height=25 align=center bgcolor=#CCCCCC>�����</TD>
 99</TR>
100<TR>
101	<TD title="����� ����� ������"><INPUT <%if checkDate then response.write "checked"%> TYPE="checkbox" NAME="checkDate">�����</TD>
102	<TD>��  <INPUT class="GenInput" TYPE="text" NAME="FromDate" dir="LTR" value="<%=FromDate%>" size="10" onKeyPress="return maskDate(this);" onBlur="acceptDate(this);" maxlength="10"></TD>
103	<TD>��� <INPUT class="GenInput" TYPE="text" NAME="ToDate" dir="LTR" value="<%=ToDate%>" size="10" onKeyPress="return maskDate(this);" onBlur="acceptDate(this);" maxlength="10"></TD>
104</TR>
105<TR>
106	<TD>����� ���� &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;</TD>
107	<TD colspan=2>
108		<INPUT class="GenInput" TYPE="text" NAME="AllowedPercent" dir="LTR" value="<%=AllowedPercent%>" size="2" onKeyPress="return maskNumber(this);" maxlength="2">
109		%
110	</TD>
111</TR>
112<%
113	if Auth(2 , 8) then ' Can Change the conditions
114		checked1 = ""
115		checked2 = ""
116		checked3 = ""
117		if CopyShop = 1 then
118			checked1 = " checked"
119		elseif CopyShop = 0 then
120			checked2 = " checked"
121		else
122			checked3 = " checked"
123		end if
124%>
125		<TR>
126			<TD><INPUT TYPE="radio" NAME="CopyShop" Value="1" <%=checked1%>>߁� �ǁ</TD>
127			<TD><INPUT TYPE="radio" NAME="CopyShop" Value="0" <%=checked2%>>��� ߁� �ǁ</TD>
128			<TD><INPUT TYPE="radio" NAME="CopyShop" Value="-1"<%=checked3%>>����</TD>
129		</TR>
130<%
131		checked1 = ""
132		checked2 = ""
133		checked3 = ""
134		if approve = 0 then
135			checked1 = " checked"
136		elseif approve = 1 then
137			checked2 = " checked"
138		else
139			checked3 = " checked"
140		end if
141%>
142		<TR>
143			<TD><INPUT TYPE="radio" NAME="approve" Value="0" <%=checked1%>>����� ����</TD>
144			<TD><INPUT TYPE="radio" NAME="approve" Value="1" <%=checked2%>>����� ���</TD>
145			<TD><INPUT TYPE="radio" NAME="approve" Value="-1"<%=checked3%>>����</TD>
146		</TR>
147<%
148		checked1 = ""
149		checked2 = ""
150		checked3 = ""
151		if issue = 0 then
152			checked1 = " checked"
153		elseif issue = 1 then
154			checked2 = " checked"
155		else
156			checked3 = " checked"
157		end if
158%>
159		<TR>
160			<TD><INPUT TYPE="radio" NAME="issue" Value="0" <%=checked1%>>���� ����</TD>
161			<TD><INPUT TYPE="radio" NAME="issue" Value="1" <%=checked2%>>���� ���</TD>
162			<TD><INPUT TYPE="radio" NAME="issue" Value="-1"<%=checked3%>>����</TD>
163		</TR>
164<%
165		checked1 = ""
166		checked2 = ""
167		checked3 = ""
168		if void = 0 then
169			checked1 = " checked"
170		elseif void = 1 then
171			checked2 = " checked"
172		else
173			checked3 = " checked"
174		end if
175%>
176		<TR>
177			<TD><INPUT TYPE="radio" NAME="void" Value="0" <%=checked1%>>����� ����</TD>
178			<TD><INPUT TYPE="radio" NAME="void" Value="1" <%=checked2%>>����� ���</TD>
179			<TD><INPUT TYPE="radio" NAME="void" Value="-1"<%=checked3%>>����</TD>
180		</TR>
181<%
182		checked1 = ""
183		checked2 = ""
184		checked3 = ""
185		if void = 0 then
186			checked1 = " checked"
187		elseif void = 1 then
188			checked2 = " checked"
189		else
190			checked3 = " checked"
191		end if
192%>
193		<TR>
194			<TD>����� �����</TD>
195			<TD colspan="2">
196			<SELECT NAME="creator" style='font-family: tahoma,arial ; font-size: 8pt; width: 140px'>
197				<option value="0" style="color:blue;">*���*</option>
198<%				set RS_TEMP=Conn.Execute ("SELECT ID, RealName FROM Users WHERE Display=1 ORDER BY RealName") 
199				Do while not RS_TEMP.eof
200%>
201					<option value="<%=RS_TEMP("ID")%>" <%if RS_TEMP("ID")=creator then response.write " selected "%> ><%=RS_TEMP("RealName")%></option>
202<%
203				RS_TEMP.moveNext
204				Loop
205				RS_TEMP.close
206%>
207			</SELECT></TD>
208		</TR>
209<%
210	end if
211%>
212<TR>
213	<TD>����� �� ����</TD>
214	<TD colspan=2>
215		<INPUT class="GenInput" TYPE="text" NAME="ResultsInPage" dir="LTR" value="<%=ResultsInPage%>" size="2" onKeyPress="return maskNumber(this);" maxlength="4">
216	</TD>
217</TR>
218<TR>
219	<TD colspan=3 align=center><INPUT class="genButton" TYPE="submit" value="�����"></TD>
220</TR>
221</TABLE>
222</FORM>
223<% 
224
225'if request("act")="show" then
226
227	select case Ord
228	case "1":
229		order="Invoices.ID"
230	case "-1":
231		order="Invoices.ID DESC"
232	case "2":
233		order="Users.RealName"
234	case "-2":
235		order="Users.RealName DESC"
236	case "3":
237		order="Invoices.CreatedDate"
238	case "-3":
239		order="Invoices.CreatedDate DESC"
240	case "4":
241		order="InvoiceOrderRelations.[Order]"
242	case "-4":
243		order="InvoiceOrderRelations.[Order] DESC"
244	case "5":
245		order="InvStatus"
246	case "-5":
247		order="InvStatus DESC"
248	case "6":
249		order="TotalDiscount"
250	case "-6":
251		order="TotalDiscount DESC"
252	case "7":
253		order="TotalReverse"
254	case "-7":
255		order="TotalReverse DESC"
256	case "8":
257		order="TotalReceivable"
258	case "-8":
259		order="TotalReceivable DESC"
260	case else:
261		order="Invoices.CreatedDate DESC"
262		Ord=-3
263	end select
264
265	criteria=""
266	writeAND=""
267	if checkDate then
268		criteria = "(Invoices.CreatedDate >= '"& FromDate & "') AND (Invoices.CreatedDate <= '"& ToDate & "') "
269		writeAND=" AND "
270	end if
271
272	if CopyShop <> -1 then
273		if CopyShop = 1 then
274			tmp="(InvoiceOrderRelations.[Order] IS NULL) "
275		else
276			tmp="(InvoiceOrderRelations.[Order] IS NOT NULL) "
277		end if
278		criteria = criteria & writeAND & tmp
279		writeAND=" AND "
280	end if
281
282	if approve <> -1 then
283		criteria = criteria & writeAND & "(Invoices.Approved = '"& approve & "') "
284		writeAND=" AND "
285	end if
286
287	if issue <> -1 then
288		criteria = criteria & writeAND & "(Invoices.Issued = '"& issue & "') "
289		writeAND=" AND "
290	end if
291
292	if void <> -1 then
293		criteria = criteria & writeAND & "(Invoices.Voided = '"& void & "') "
294		writeAND=" AND "
295	end if
296
297	if creator <> 0 then
298		criteria = criteria & writeAND & "(Invoices.CreatedBy = '"& creator & "') "
299		writeAND=" AND "
300	end if
301
302	if writeAND="" then
303		criteria = "(1=1) "
304	end if
305
306%>
307	  <TaBlE class="CustTable4" cellspacing="2" cellspacing="2">
308	  <Tr>
309		<Td colspan="2" valign="top" align="center">
310			<table class="CustTable" cellspacing='1' style='width:90%;'>
311				<tr>
312					<td colspan="9" class="CusTableHeader" style="text-align:right;">������ ��</td>
313				</tr>
314				<%
315				mySQL="SELECT Invoices.*, Users.RealName AS Creator, InvoiceOrderRelations.[Order], orderStatus.name as vazyat, " &_
316					"orderSteps.name as marhale, CONVERT(int, Invoices.Approved) + CONVERT(int, Invoices.Issued) * 2 AS InvStatus " &_
317					"FROM orders inner join orderStatus on orders.status = orderStatus.id "&_
318					"inner join orderSteps on orders.step = orderSteps.id RIGHT OUTER JOIN " &_
319					" InvoiceOrderRelations ON orders.id = InvoiceOrderRelations.[Order] RIGHT OUTER JOIN " &_
320					" Invoices INNER JOIN " &_
321					" Users ON Invoices.CreatedBy = Users.ID ON InvoiceOrderRelations.Invoice = Invoices.ID " &_
322					"WHERE " & criteria &_
323					"ORDER BY " & order
324'response.write mySQL
325				if ord<0 then
326					style="background-color: #33CC99;"
327					arrow="<br><span style='font-family:webdings'>6 6 6</span>"
328				else
329					style="background-color: #33CC99;"
330					arrow="<br><span style='font-family:webdings'>5 5 5</span>"
331				end if
332
333				Set RS1 = Server.CreateObject("ADODB.Recordset")
334
335				PageSize = ResultsInPage
336				RS1.PageSize = PageSize 
337
338				RS1.CursorLocation=3 'in ADOVBS_INC adUseClient=3
339				RS1.Open mySQL ,Conn,3
340				TotalPages = RS1.PageCount
341
342				if isnumeric(CurrentPage) then
343					CurrentPage=clng(CurrentPage)
344					if CurrentPage > TotalPages OR CurrentPage <= 0 then
345						CurrentPage = 1
346					end if
347				else
348					CurrentPage=1
349				end if
350
351				if not RS1.eof then
352					RS1.AbsolutePage=CurrentPage
353				end if
354
355				if RS1.eof then
356%>
357					<tr>
358						<td colspan="9" class="CusTD3">���</td>
359					</tr>
360<%
361				else
362%>					<tr	class="CusTD3" style="cursor:hand;" title="����� �����">
363						<td >#</td>
364						<TD onclick='go2Page(1,1);'  style="<%if abs(ord)=1 then response.write style%>"># ������	<%if abs(ord)=1 then response.write arrow%></TD>
365						<TD onclick='go2Page(1,2);'  style="<%if abs(ord)=2 then response.write style%>">����� �����<%if abs(ord)=2 then response.write arrow%></TD>
366						<TD onclick='go2Page(1,3);'  style="<%if abs(ord)=3 then response.write style%>">�����		<%if abs(ord)=3 then response.write arrow%></TD>
367						<TD onclick='go2Page(1,4);'  style="<%if abs(ord)=4 then response.write style%>"># �����	<%if abs(ord)=4 then response.write arrow%></TD>
368						<TD onclick='go2Page(1,5);'  style="<%if abs(ord)=5 then response.write style%>">�����		<%if abs(ord)=5 then response.write arrow%></TD>
369						<TD onclick='go2Page(1,-6);' style="<%if abs(ord)=6 then response.write style%>">�����		<%if abs(ord)=6 then response.write arrow%></TD>
370						<TD onclick='go2Page(1,-7);' style="<%if abs(ord)=7 then response.write style%>">�ѐ��		<%if abs(ord)=7 then response.write arrow%></TD>
371						<TD onclick='go2Page(1,-8);' style="<%if abs(ord)=8 then response.write style%>">����		<%if abs(ord)=8 then response.write arrow%></TD>
372
373					</tr>
374<%					tmpCounter = 0
375					SumDiscount = 0
376					SumReverse = 0
377					SumReceivable = 0
378					AlertColor="bgcolor=#FFAAAA"
379					Do while NOT RS1.eof AND RS1.AbsolutePage = CurrentPage
380						tmpCounter = tmpCounter + 1
381						if tmpCounter mod 2 = 1 then
382							tmpColor="#FFFFFF"
383							tmpColor2="#FFFFBB"
384						Else
385							tmpColor="#DDDDDD"
386							tmpColor2="#EEEEBB"
387						End if 
388
389						TotalPrice =		cdbl(RS1("TotalPrice"))
390						TotalDiscount =		cdbl(RS1("TotalDiscount"))
391						TotalReverse =		cdbl(RS1("TotalReverse"))
392						TotalReceivable =	cdbl(RS1("TotalReceivable"))
393						
394						if TotalPrice<>0 then
395							DiscountPercent =	cint(TotalDiscount * 100/TotalPrice)
396							ReversePercent  =	cint(TotalReverse * 100/TotalPrice)
397							ReceivablePercent=	100 - cint(TotalReceivable * 100/TotalPrice)
398						else
399							DiscountPercent = 0
400							ReversePercent  = 0
401							ReceivablePercent=0
402						end if
403
404						if DiscountPercent > AllowedPercent then
405							DiscountAlert=AlertColor
406						else
407							DiscountAlert=""
408						end if
409
410						if ReversePercent > AllowedPercent then
411							ReverseAlert=AlertColor
412						else
413							ReverseAlert=""
414						end if
415
416						if ReceivablePercent > AllowedPercent then
417							ReceivableAlert=AlertColor
418						else
419							ReceivableAlert=""
420						end if
421
422						if RS1("IsReverse") then
423							tmpColor="#FF9966"
424							SumDiscount =	SumDiscount - TotalDiscount
425							SumReverse =	SumReverse - TotalReverse
426							SumReceivable = SumReceivable - TotalReceivable
427						else
428							SumDiscount =	SumDiscount + TotalDiscount
429							SumReverse =	SumReverse + TotalReverse
430							SumReceivable = SumReceivable + TotalReceivable
431						end if
432
433						OrderNo=	RS1("Order")
434						OrderTxt=	RS1("vazyat") & " - " & RS1("Marhale")
435						if isnull(OrderNo) then 
436							OrderNo=	"<FONT COLOR='gray'>���� �����</FONT>"
437							OrderTxt=	"���� �����"
438						end if
439						InvStatus=	cint(RS1("InvStatus"))
440						InvStatusTxt=""
441					  '--
442						if InvStatus Mod 2 = 1 then
443							InvStatusTxt="<FONT COLOR='Green'>����� ���</FONT> - "
444						else
445							InvStatusTxt="<FONT COLOR='red'>����� ����</FONT> - "
446						end if
447						InvStatus=InvStatus \2
448						if InvStatus Mod 2 = 1  then
449							InvStatusTxt=InvStatusTxt & "<FONT COLOR='Green'>���� ���</FONT> "
450						else
451							InvStatusTxt=InvStatusTxt & "<FONT COLOR='red'>���� ����</FONT> "
452						end if
453					  '--
454%>
455						<TR bgcolor="<%=tmpColor%>" style="cursor: hand;" onMouseOver="this.style.backgroundColor='<%=tmpColor2%>'" onMouseOut="this.style.backgroundColor='<%=tmpColor%>'" onclick="window.open('../AR/AccountReport.asp?act=showInvoice&invoice=<%=RS1("ID")%>');">
456							<TD style="height:30px;"><%=tmpCounter%></TD>
457							<TD style="height:30px;"><%=RS1("ID")%></TD>
458							<TD><%=RS1("Creator")%>&nbsp;</TD>
459							<TD dir="LTR" align='right'><%=RS1("CreatedDate")%>&nbsp;</TD>
460							<TD dir="LTR" align='right' title="<%=OrderTxt%>"><%=OrderNo%>&nbsp;</TD>
461							<TD dir="LTR" align='right'><%=InvStatusTxt%>&nbsp;</TD>
462							<TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����" <%=DiscountAlert%>><%=Separate(TotalDiscount)%>&nbsp;</TD>
463							<TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" <%=ReverseAlert%>><%=Separate(TotalReverse)%>&nbsp;</TD>
464							<TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" <%=ReceivableAlert%>><%=Separate(TotalReceivable)%>&nbsp;</TD>
465						</TR>
466<%						RS1.moveNext
467					Loop
468
469					if TotalPages = 1 then
470
471						if SumPrice<>0 then
472							DiscountPercent =	cint(SumDiscount * 100/SumPrice)
473							ReversePercent  =	cint(SumReverse * 100/SumPrice)
474							ReceivablePercent=	100 - cint(SumReceivable * 100/SumPrice)
475						else
476							DiscountPercent = 0
477							ReversePercent  = 0
478							ReceivablePercent=0
479						end if
480
481						if DiscountPercent > AllowedPercent then
482							DiscountAlert=AlertColor
483						else
484							DiscountAlert=""
485						end if
486
487						if ReversePercent > AllowedPercent then
488							ReverseAlert=AlertColor
489						else
490							ReverseAlert=""
491						end if
492
493						if ReceivablePercent > AllowedPercent then
494							ReceivableAlert=AlertColor
495						else
496							ReceivableAlert=""
497						end if
498
499%>
500						<TR bgcolor="#BBBBBB">
501							<TD style="height:30px;" colspan="6" align="left">���:</TD>
502							<TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����" <%=DiscountAlert%>><%=Separate(SumDiscount)%>&nbsp;</TD>
503							<TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" <%=ReverseAlert%>><%=Separate(SumReverse)%>&nbsp;</TD>
504							<TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" <%=ReceivableAlert%>><%=Separate(SumReceivable)%>&nbsp;</TD>
505						</TR>
506<%
507					else
508						pageCols=20
509						'----------------------------------------SAM----------------------------------
510						if SumPrice<>0 then
511							DiscountPercent =	cint(SumDiscount * 100/SumPrice)
512							ReversePercent  =	cint(SumReverse * 100/SumPrice)
513							ReceivablePercent=	100 - cint(SumReceivable * 100/SumPrice)
514						else
515							DiscountPercent = 0
516							ReversePercent  = 0
517							ReceivablePercent=0
518						end if
519
520%>						<TR bgcolor='#BBBBBB'>
521							<TD style="height:30px;" colspan="6" align="left">��� ��� ����:</TD>
522							<TD dir="LTR" align='right' title="<%=DiscountPercent%>% �����"><%=Separate(SumDiscount)%>&nbsp;</TD>
523							<TD dir="LTR" align='right' title="<%=ReversePercent%>% �ѐ��" ><%=Separate(SumReverse)%>&nbsp;</TD>
524							<TD dir="LTR" align='right' title="<%=ReceivablePercent%>% ��� ���" ><%=Separate(SumReceivable)%>&nbsp;</TD>
525						</TR>
526						<TR class="RepTableTitle">
527							<TD bgcolor='#33AACC' height="30" colspan="9">
528							<table width=100% cellspacing=0 style="cursor:hand;color:#444444">
529							<tr>
530								<td style="height:25;border-bottom:1 solid black;" colspan=<%=pagecols%>>
531									<b>���� <%=CurrentPage%> �� <%=TotalPages%></b>
532									&nbsp;&nbsp;<a href="javascript:go2Page(<%=CurrentPage+1%>,0);">���� ��� &gt;</a>
533								</td>
534							</tr>
535							<tr>
536<%							for i=1 to TotalPages 
537								if i = CurrentPage then 
538%>									<td style="color:black;"><b>[<%=i%>]</b></td>
539<%								else
540%>									<td onclick="go2Page(<%=i%>,0);"><%=i%></td>
541<%								end if 
542								if i mod pageCols = 0 then response.write "</tr><tr>" 
543							next 
544
545%>							</tr>
546							</table>
547							</TD>
548						</TR>
549<%					end if
550				end if
551%>
552			</table>
553			<SCRIPT LANGUAGE="JavaScript">
554			<!--
555			function go2Page(p,ord) {
556				if(ord==0){
557					ord=<%=Ord%>;
558				}
559				else if(ord==<%=Ord%>){
560					ord= 0-ord;
561				}
562//				str='?act=show&FromDate='+escape('<%=FromDate%>')+'&ToDate='+escape('<%=ToDate%>')+'&Ord='+escape(ord)+'&p='+escape(p)
563//				window.location=str;
564				document.all.ord.value=ord;
565				document.all.p.value=p;
566				document.forms[0].submit();
567			}
568			//-->
569			</SCRIPT>
570
571		</Td>
572	  </Tr>
573	</TaBlE>
574	<br>
575<%
576'end if
577%>
578
579<!--#include file="tah.asp" -->