default_new.asp - This ASP code generates a table displayin…

/beta/home/default_new.asp

http://github.com/khaneh/Orders · ASP · 203 lines · 186 code · 14 blank · 3 comment · 18 complexity · b7e567816099f5bae8a7eec3e965def6 MD5 · raw file


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><% 

'Home (0)

PageTitle= "������ ������"

SubmenuItem=1

if not Auth(0 , 1) then NotAllowdToViewThisPage()



captionFGColor = "#C6C6D7"

captionBGColor = "#F4F4FE"

MsgBodyColor = "#F4F4FE" '"#FFFFEE"

UrgentMsgBodyColor = "#FFDDDD"

VeryUrgentMsgBodyColor = "yellow"

OrderReadyMsgBodyColor = "#33FF99" '#00CCFF

VeryUrgentMsgScrlColor = "#FFFFCC"

MsgMainColor = "#FFFFFF"



activeTabColor="#336699"

disableTabColor="#CCCCCC"



%>

<!--#include file="top.asp" -->

<!--#include File="../include_farsiDateHandling.asp"-->

<!--#include File="../include_JS_InputMasks.asp"-->

<%



panel = request("panel")

if panel="" then 

	panel=1

else

	panel=cint(panel)

end if



if request("act")="showItems" then

	response.buffer = false

end if



%>

<style>

	.MsgTable {font-family:tahoma; direction: RTL; background-color:gray; width:100%; border:none;}

	.MsgTable td {vertical-align:top;border-bottom:1px solid black;}

	.MsgTable a {text-decoration:none;color:#000088}

	.MsgTable a:hover {text-decoration:underline;}

	.CusTableHeader {background-color: #33AACC; text-align: center; font-weight:bold;}

	.CusTD3 {background-color: #DDDDDD; text-align: center; font-size:9pt;}

	.CusTD4 {background-color: #CCCC66; direction: LTR; text-align: center; font-size:9pt;}

	.CustTable4 {font-family:tahoma; direction: RTL; width:100%; background-color:#C3DBEB; border:4 solid <%=activeTabColor%>;}



	.CusTD1 {background-color: <%=activeTabColor%>; text-align: center; }

	.CusTD1 a {color:#FFFF00; font-size:9pt;}

	.CusTD2 {background-color: <%=disableTabColor%>; text-align: center; }

	.CusTD2 a {color:#888888; font-size:9pt;}

	.MsgBodyClass {width:100%;height:60px;overflow:auto;}

</style>

<SCRIPT LANGUAGE="JavaScript">

<!--

function selectAll(src){

	totalMsgIDs=document.getElementsByName("MsgIDs").length

	checked=src.checked

	for (i=0;i<totalMsgIDs;i++)

		document.getElementsByName("MsgIDs")[i].checked=checked;

}



//-->

</SCRIPT>

<table cellspacing=0 cellpadding=0 width="100%" style="border:4 solid <%=AppFgColor%>;">

<tr><td>

	<TABLE cellspacing=0 cellpadding=0 width="100%">

	<TR height='15'>

		<TD></TD>

	</TR>



	<TR class='alak' height='25'>

	<TD width=15 >&nbsp;</TD>

<%

		if panel=1 then styleClass="CusTD1" else styleClass="CusTD2" 

%> 

		<TD align=center class='<%=styleClass%>'><A HREF='?panel=1'>���� ��� ����</A></TD>



		<TD width=5 >&nbsp;</TD>

<%

		if panel=2 then styleClass="CusTD1" else styleClass="CusTD2" 

%> 

		<TD align=center class='<%=styleClass%>'><A HREF='?panel=2'>���� ��� ������� ���</A></TD>

	<TD width=400 >&nbsp;</TD>

	<TD width=* align=left>&nbsp;</TD>

	</TR>

</td></tr>

</table>

<TaBlE class="CustTable4" cellspacing="2" cellspacing="0" >

	<Tr>

	<Td valign="top" align="center">

		<FORM METHOD=POST ACTION="default.asp?act=changeStatus">

		<table class="MsgTable" cellspacing='1'>

<%

		selectTop=""

'		selectTop="TOP 20"

'		session("id") = 6



		if panel=1 then '���� ��� ����

			isSmall=0

		elseif panel=2 then '���� ��� ������ ���

			isSmall=1

		else 

			response.end

		end if

		MySQL = "SELECT " & selectTop & " Messages.*, Messages_1.MsgBody AS OrigMsgBody, Messages_1.MsgDate AS OrigMsgDate, Messages_1.MsgTime AS OrigMsgTime, Users.RealName AS Sender FROM Messages INNER JOIN Users ON Messages.MsgFrom = Users.ID LEFT OUTER JOIN Messages Messages_1 ON Messages.replyTo = Messages_1.id WHERE (Messages.MsgTo = '" & session("id") & "') AND (Messages.IsRead = 0) AND (Messages.IsSmall = " & IsSmall & ") ORDER BY Messages.id DESC"

		Set RS1 = conn.execute(mySQL)

		if not RS1.eof then

%>

			<tr>

				<td class="CusTD3"></td>

				<td class="CusTD3" rowspan=2><INPUT TYPE="checkbox" NAME="SelectAll" onclick="selectAll(this);"></td>

				<td class="CusTD3" colspan=4 style="text-align:right;">

					<SELECT NAME="MsgAct" style="font-family:tahoma;font-size:9pt;width:200px;">

						<option value="1">������� ���</option>

						<option value="2">��� ���</option>

						<option value="3">���� ���� ���</option>

					</SELECT>

					<INPUT TYPE="submit" Value="����� �����"class="genButton">

				</td>

			</tr>

			<tr>

				<td class="CusTD3">#</td>

				<td class="CusTD3">��</td>

				<td class="CusTD3">�����</td>

				<td class="CusTD3">����</td>

				<td class="CusTD3">����� ��</td>

			</tr>

<%

			tmpCounter=0

			Do while not RS1.eof 

				tmpCounter = tmpCounter + 1

				if tmpCounter mod 2 = 1 then

					tmpColor="#FFFFFF"

					tmpColor2="#FFFFBB"

				Else

					tmpColor="#DDDDDD"

					tmpColor2="#EEEEBB"

				End if 

				if RS1("Urgent")=0 then 

					tmpColor=MsgMainColor

				elseif RS1("Urgent")=2 then 

					tmpColor=VeryUrgentMsgBodyColor 

				elseif RS1("Urgent")=3 then 

					tmpColor=OrderReadyMsgBodyColor

				else 

					tmpColor=UrgentMsgBodyColor

				end if



				RelatedTable = "NaN"



				if trim(RS1("RelatedTable")) = "orders" then 

					RelatedTable="����� "

					RelatedLink = "../order/TraceOrder.asp?act=show&order=" & RS1("RelatedID")

				elseif trim(RS1("RelatedTable")) = "accounts" then 

					RelatedTable="����� "

					RelatedLink = "../CRM/AccountInfo.asp?act=show&SelectedCustomer="& RS1("RelatedID")

				elseif trim(RS1("RelatedTable")) = "invoices" then 

					RelatedTable="������ "

					RelatedLink = "../AR/AccountReport.asp?act=showInvoice&invoice=" & RS1("RelatedID")

				end if

%>

				<TR bgcolor="<%=tmpColor%>" onclick="javascript:void(0);">

					<TD dir="LTR" align='right'><%=tmpCounter%>&nbsp;</TD>

					<TD><INPUT TYPE="checkbox" NAME="MsgIDs" Value="<%=RS1("id")%>"></TD>

					<TD dir="LTR" align='right'><%=RS1("Sender")%>&nbsp;</TD>

					<TD dir="LTR" align='right'><%=RS1("MsgDate")%><br><%=RS1("MsgTime")%></TD>

					<TD>

						<div class="MsgBodyClass"><%=replace(RS1("MsgBody"),chr(13),"<br>")%>&nbsp;</div>

						<%if RS1("isReply") <> 0 then%>

							<div class="MsgBodyClass" style="border-top:1px solid gray;">�� ���� ���� ���� ��� (<%=RS1("OrigMsgTime")%> - <%=replace(RS1("OrigMsgDate"),"/",".")%>) �� ��� ���:<BR> <%=replace(RS1("OrigMsgBody"),chr(13),"<br>")%>&nbsp;</div>

						<%end if%>

					</TD>

					<TD><%if RelatedTable <> "NaN" then%>

						<A HREF="<%=RelatedLink%>" target="_blank"><%=RelatedTable%> <%=RS1("RelatedID")%></A>

						<%end if%> &nbsp;

					</TD>

				</TR>

<%

			RS1.moveNext

			Loop

			RS1.Close



			if selectTop<>"" and tmpCounter = briefQtty then

%>

			<tr>

				<td colspan="9" class="CusTableHeader" style="text-align:right;"><A HREF="?userID=<%=userID%>&showAll=on&panel=1">����� ���� ...</A></td>

			</tr>

<%

			end if

		else

%>

			<tr>

				<td colspan="9" class="CusTD3">���</td>

			</tr>

<%

		end if

%>

		</table>

		</FORM>

	</Td>

	</Tr>

</TaBlE>

<!--#include file="tah.asp" -->