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%>
  <% Do While Not Rst.EOF %> <% Rst.MoveNext Loop Rst.Close Con.Close Set Rst = Nothing Set Con = Nothing %>
Rep No.
Description
(In the matter of)
Appellant / Respondents
Order
Dated
<%Call getRepNo()%>
<%=Rst.Fields("Descr").Value%>
App. <%=Rst.Fields("App_Name").Value%> <%SetDate(rst.Fields("RepDt").value)%>
Res. <%=Rst.Fields("Res_Name").Value%>



Download
 
For viewing documents in pdf format Please Download Acrobat Reader

ABOUT US PHOTO GALLERY ORDERS RULES AND REGULATIONS PRESS RELEASE COMPLAINTS OTHER LINKS CONTACT US HOME