<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'this is a function to validate the date field. 'instruction:- '1) include this file to your asp file ' ' '2) in your date field ' eg: <% 'use for ListReceiveJobK1 and ListReceiveJobK2, ListSendEFT.asp function ValidateDate if session("startDate")="" and session("dateEnd")="" then if Request.Form("endDate") = "" then dateC = "January 19,2010" dateEnd = cdate(dateC) else dateEnd = cdate(Request.Form("endDate")) end if dayE = day(dateEnd) monthE = month(dateEnd) yearE = year(dateEnd) dateEnd = dayE&"/"&monthE&"/"&yearE if Request.Form("startDate") = "" then dateA = "January 19,1900" dateB = CDate(dateA) dateB = day(dateB)&"/"&month(dateB)&"/"&year(dateB) session("startDate") = month(dateB)&"/"&day(dateB)&"/"&year(dateB) session("dateEnd") = month(dateEnd) &"/"&day(dateEnd)&"/"&year(dateEnd) else dateA = cdate(Request.Form("startDate")) dateA = day(dateA)&"/"&month(dateA)&"/"&year(dateA) session("startDate") = month(dateA)&"/"&day(dateA)&"/"&year(dateA) session("dateEnd") = month(dateEnd) &"/"&day(dateEnd)&"/"&year(dateEnd) end if end if end function 'this function is use to make sure the date is in mm/dd/yyyy format 'i put in process file eg.saving, editing mostly on declaration part function VDate(dateI) if not(isNull(dateI) or dateI = "") then dateI = day(dateI)&"/"&month(dateI)&"/"&year(dateI) dateI = month(dateI)&"/"&day(dateI)&"/"&year(dateI) VDate = dateI else VDate = "" end if end function 'this function is use to make date format in dd/mm/yyyy function TDate(DateValue) if not(isNull(DateValue) or DateValue = "") then dateJ = day(DateValue)&"/"&month(DateValue)&"/"&year(DateValue) TDate = dateJ else TDate = "" end if end function 'Function TransformDate(i) ' YD = year(i) ' MD = month(i) ' DD = day(i) ' TransformDate = DD&"/"&MD&"/"&YD 'end function Function TransformDate(i) if i <>"" then YD = year(i) if (len(month(i))<2) then MD = "0"&month(i) else MD = month(i) end if if(len(day(i))<2) then DD = "0"&day(i) else DD = day(i) end if TransformDate = DD&"/"&MD&"/"&YD end if end function Function TransformTime(o) H = Hour(o) M = Minute(o) S = Second(o) TransformTime = H &":"& M &":"& S end function %> DNX
<% '----------------------------------------------- ' .:: Developed ::. ' Module : Menu ' Start date : 31st Oct 2003 ' End date : 31st Oct 2003 ' By : Zuraida Mohammad Rezuan ' Teras Teknologi Sdn Bhd '----------------------------------------------- '---------- Get cookies ---------- Dim cksUserID,cksUserROC,goSeek cksUserID = request.cookies("cUserID") cksUserROC = request.cookies("cUserROC") '--------- Get privilege --------- if len(cksUserID) <> 0 then Dim SQLpriv,RsPriv SQLpriv = "SELECT user_type FROM acct_info WHERE userid='"&cksUserID&"'" Set RsPriv = Server.CreateObject("ADODB.Recordset") RsPriv.Open SQLpriv,connObj,3,3 end if %> DNX
  <%if len(cksUserID) <> 0 then%> <%'goSeek = func1_menuName(RsPriv(0)) 'response.write(goSeek)%> <%end if%>
<% function func1_menuName(strPriv) if strPriv = "0" then func1_menuName = "| "&""&"Create user " func1_menuName = func1_menuName & " "&"| Rate Maintenance " func1_menuName = func1_menuName & " "&"| Feedback List " func1_menuName = func1_menuName & " "&"| Create shipping Schedule " elseif strPriv = "1" then func1_menuName = "| Create user "&" " elseif strPriv = "4" then func1_menuName = "" end if end function %>
Exchange Rate 
Note : This exchange rate will be updated every working Friday of the week.
Last Updated : 17-Nov-08
  No
 Code
 Description
Import Rate
Export Rate
Previous
Current
Previous
Current
Start Date:
 10/11/2008
End Date:
 16/11/2008
Start Date:
 17/11/2008
End Date:
 23/11/2008
Start Date:
 10/11/2008
End Date:
 16/11/2008
Start Date:
 17/11/2008
End Date:
 23/11/2008
1 AED
DINAR
0.9566
0.9566
0.9566
0.9566
2 AUD
AUSTRALIA DOLLAR
2.3319
2.4170
2.2829
2.3665
3 BDT
TAKA
0.0525
0.0523
0.0514
0.0513
4 BND
BRUNEI DOLLAR
2.4053
2.4190
2.3574
2.3709
5 BUK
KYAT
0.5596
0.5555
0.5485
0.5445
6 CAD
DOLLAR
2.8767
3.0223
2.8182
2.9609
7 CHF
SWISS FRANC
3.1413
3.0602
3.0779
2.9985
8 CNY
YUAN RENMIBI
0.5265
0.5234
0.5160
0.5131
9 DKK
KRONER
0.6160
0.6136
0.6038
0.6019
10 EUR
RO CURRENCY
4.5889
4.5689
4.4980
4.4784
11 FJD
LLAR FIJI
1.9757
1.9954
1.9365
1.9559
12 GBP
POUND STERLING
5.7807
5.6626
5.6617
5.5464
13 HKD
DOLLAR
0.4645
0.4611
0.4551
0.4519
14 IDR
RUPIAH
0.0003
0.0003
0.0003
0.0003
15 INR
RUPEE
0.0732
0.0750
0.0716
0.0734
16 IRR
RIAL
0.0004
0.0004
0.0004
0.0003
17 JOD
DINAR
5.0824
5.0473
4.9818
4.9473
18 JPY
YEN
0.0372
0.0363
0.0364
0.0356
19 KES
SCHILLING
0.0450
0.0460
0.0441
0.0451
20 KRW
WON
0.0026
0.0027
0.0026
0.0027
21 KWD
DINAR
13.3784
13.2224
13.1135
12.9606
22 LBP
LUBNAN POUND
0.0024
0.0024
0.0024
0.0023
23 LKR
SRI LANKA
0.0332
0.0325
0.0324
0.0318
24 LYD
DINAR
2.7765
2.7625
2.7216
2.7078
25 MXN
PESO
0.2822
0.2822
0.2822
0.2822
26 NGN
NAIRA
0.0306
0.0304
0.0300
0.0298
27 NOK
KRONER
0.5328
0.5293
0.5223
0.5188
28 NZD
DOLLAR
2.0630
2.1194
2.0192
2.0747
29 PGK
KINA
0.0442
1.3337
0.0433
1.3337
30 PHP
PESO
0.0733
0.0737
0.0718
0.0723
31 PKR
RUPEE
0.0442
0.0441
0.0433
0.0432
32 QAR
RIYAL
0.9653
0.9653
0.9653
0.9653
33 SAR
RIYAL
0.9600
0.9523
0.9410
0.9335
34 SEK
KRONER
0.4643
0.4594
0.4547
0.4499
35 SGD
DOLLAR
2.4158
2.4090
2.3678
2.3611
36 THB
BAHT THAILAND
0.1033
0.1021
0.1012
0.1001
37 TWD
N.TAIWAN DOLLAR
0.1081
0.1088
0.1060
0.1066
38 USD
DOLLAR
3.6007
3.5743
3.5279
3.5024
39 VND
DONG
0.0002
0.0002
0.0002
0.0002
40 ZAR
RRAND
0.3530
0.3618
0.3460
0.3547