 |
 |
|
World
Trade Center,Center No.1,13th Floor,Cuffe Parade, Colaba, Mumbai-400
005
Telephone No. : 091-22-2216 3964/65/69 , Fax : 091-22-2216 3976 Email : mercindia@mercindia.org.in |
|
For viewing documents in pdf
format Please Download Acrobat
Reader
|
Abbreviations used on this page Rep - Representation App - Appellant Res - Respondent |
|
Orders Issued by The Ombudsman |
||||||||||||||||||
| <% Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adCmdText = &H001 Dim Con, CnStr, Rst 'Dim PgSz, PgCnt, PgCur,Cnt Dim strURL, DT1, DT2, vYear strURL = Request.ServerVariables("URL") ' If Request.QueryString("page") = "" Then ' PgCur = 1 ' Else ' PgCur = CInt(Request.QueryString("page")) ' End If If Request.QueryString("Yr") = "" Then vYear = Year(Now) Else vYear = Request.QueryString("Yr") End If Sub SetDate(Dt) Dim dd, mm, vDt If Len(DAY(Dt))=1 then dd = "0" & DAY(Dt) Else dd = DAY(Dt) End If If Len(MONTH(Dt))=1 then mm = "0" & MONTH(Dt) Else mm = MONTH(Dt) End If if Len(Dt) > 0 Then vDt = dd & "/" & mm & "/" & YEAR(Dt) Response.Write(vDt) Else Response.Write("----") End If End Sub Sub getRepNo() Dim vREPNO, vPDF vREPNO = Rst.Fields("RepNo").Value vPDF = Rst.Fields("PDF").Value Response.Write("" & vREPNO & "") End Sub %> <% dim strSQL DT1 = "#1/1/" & vYear & "#" DT2 = "#12/31/" & vYear & "#" strSQL = "SELECT * FROM Ord_Omb WHERE RepDt BETWEEN " & DT1 & " AND " & DT2 & " Order By RepDt DESC" CnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("db\MERCDB.mdb") Set Con = Server.CreateObject("ADODB.Connection") Con.Open(CnStr) Set Rst = Server.CreateObject("ADODB.RecordSet") Rst.Open strSQL, Con, adOpenStatic, adLockReadOnly, adCmdText %> | ||||||||||||||||||
|
ORDERS FOR THE YEAR <%=VYEAR%>
|
Total Orders
<%=Rst.RecordCount%>
|
|||||||||||||||||
|
||||||||||||||||||
|
Download
|
|
 |
For viewing documents in pdf format Please Download Acrobat Reader |
