<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '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 : 29-Jun-09
  No
 Code
 Description
Import Rate
Export Rate
Previous
Current
Previous
Current
Start Date:
 22/6/2009
End Date:
 28/6/2009
Start Date:
 29/6/2009
End Date:
 5/7/2009
Start Date:
 22/6/2009
End Date:
 28/6/2009
Start Date:
 29/6/2009
End Date:
 5/7/2009
1 AED
DINAR
0.9586
0.9586
0.9586
0.9586
2 AUD
AUSTRALIA DOLLAR
2.8440
2.8418
2.7860
2.7837
3 BDT
TAKA
0.0515
0.0518
0.0505
0.0507
4 BND
BRUNEI DOLLAR
2.4365
2.4452
2.3882
2.3967
5 BUK
KYAT
0.5506
0.5538
0.5397
0.5428
6 CAD
DOLLAR
3.1952
3.1513
3.1316
3.0886
7 CHF
SWISS FRANC
3.2783
3.2821
3.2121
3.2158
8 CNY
YUAN RENMIBI
0.5184
0.5214
0.5082
0.5111
9 DKK
KRONER
0.6669
0.6647
0.6537
0.6516
10 EUR
RO CURRENCY
4.9655
4.9489
4.8672
4.8509
11 FJD
LLAR FIJI
1.7062
1.7190
1.6725
1.6850
12 GBP
POUND STERLING
5.7595
5.8260
5.6448
5.7101
13 HKD
DOLLAR
0.4571
0.4598
0.4480
0.4507
14 IDR
RUPIAH
0.0004
0.0003
0.0003
0.0003
15 INR
RUPEE
0.0753
0.0749
0.0738
0.0734
16 IRR
RIAL
0.0004
0.0004
0.0004
0.0004
17 JOD
DINAR
5.0045
5.0316
4.9053
4.9319
18 JPY
YEN
0.0361
0.0368
0.0354
0.0361
19 KES
SCHILLING
0.0454
0.0457
0.0445
0.0448
20 KRW
WON
0.0028
0.0028
0.0028
0.0028
21 KWD
DINAR
12.2992
12.3683
12.0557
12.1234
22 LBP
LUBNAN POUND
0.0024
0.0024
0.0023
0.0023
23 LKR
SRI LANKA
0.0308
0.0310
0.0302
0.0303
24 LYD
DINAR
2.8339
2.8410
2.7778
2.7847
25 MXN
PESO
0.2670
0.2670
0.2670
0.2670
26 NGN
NAIRA
0.0238
0.0240
0.0233
0.0236
27 NOK
KRONER
0.5566
0.5558
0.5455
0.5448
28 NZD
DOLLAR
2.2361
2.2567
2.1907
2.2109
29 PGK
KINA
1.2429
1.2429
1.2429
1.2429
30 PHP
PESO
0.0747
0.0741
0.0733
0.0726
31 PKR
RUPEE
0.0440
0.0441
0.0430
0.0431
32 QAR
RIYAL
0.9675
0.9675
0.9675
0.9675
33 SAR
RIYAL
0.9448
0.9503
0.9261
0.9315
34 SEK
KRONER
0.4592
0.4546
0.4501
0.4456
35 SGD
DOLLAR
2.4403
2.4462
2.3919
2.3977
36 THB
BAHT THAILAND
0.1037
0.1043
0.1016
0.1022
37 TWD
N.TAIWAN DOLLAR
0.1082
0.1084
0.1060
0.1063
38 USD
DOLLAR
3.5432
3.5636
3.4729
3.4928
39 VND
DONG
0.0002
0.0002
0.0002
0.0002
40 ZAR
RRAND
0.4383
0.4404
0.4296
0.4317