<% Dim conn Dim rst, CnStr, Sql Sub Phone() Dim Ph1, Ph2, Ph3, Var Ph1 = rst.Fields("Ph1") Ph2 = rst.Fields("Ph2") Ph3 = rst.Fields("Ph3") If Len(Ph1) > 0 And Len(Ph2) > 0 And Len(Ph3) > 0 Then Var = "Telephone No.(s) : " Var = Var & Ph1 & " / " & Ph2 & " / " & Ph3 Response.Write("
" & Var) ElseIf Len(Ph1) > 0 And Len(Ph2) > 0 Then Var = "Telephone No.(s) : " Var = Var & Ph1 & " / " & Ph2 Response.Write("
" & Var) ElseIf Len(Ph1) > 0 Then Var = "Telephone No. : " Var = Var & Ph1 Response.Write("
" & Var) End If End Sub Sub Fax() Dim F1, F2, Var F1 = rst.Fields("Fax1") F2 = rst.Fields("Fax2") If Len(F1) > 0 And Len(F2) > 0 Then Var = "Fax No.(s) : " Var = Var & F1 & " / " & F2 Response.Write("
" & Var) ElseIf Len(F1) > 0 Then Var = "Fax No. : " Var = Var & F1 Response.Write("
" & Var) End If End Sub Sub EMail() Dim E1, E2, Var E1 = rst.Fields("EMAIL1") E2 = rst.Fields("EMAIL2") If Len(E1) > 0 And Len(E2) > 0 Then Var = "Email ID(s) : " Var = Var & "" & E1 & " / " Var = Var & "" & E2 & "" Response.Write("
" & Var) ElseIf Len(E1) > 0 Then Var = "Email ID : " Var = Var & "" & E1 & "" Response.Write("
" & Var) ElseIf Len(E2) > 0 Then Var = "Email ID : " Var = Var & "" & E2 & "" Response.Write("
" & Var) End If End Sub Sub Web() Dim Web Web = rst.Fields("website") If Len(web) > 0 Then Response.Write(" Website : " & web & "" ) End If End Sub Sub CM() Dim CM CM = rst.Fields("CM") If Len(CM) Then Dim P1, P2, P3, Mob, Res, Email, Nos P1 = rst.Fields("C_PH1") P2 = rst.Fields("C_PH2") P3 = rst.Fields("C_PH3") Mob = rst.Fields("C_Moblie") Res = rst.Fields("C_Res") Email = rst.Fields("C_Email") IF Len(P1) > 0 AND Len(P2) > 0 AND Len(P3) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 & " / " Nos = Nos & P3 ElseIF Len(P1) > 0 AND Len(P2) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 ElseIF Len(P1) > 0 Then Nos = "Tel No. : " & P1 ElseIF Len(P2) > 0 Then Nos = "Tel No. : " & P2 ElseIF Len(P3) > 0 Then Nos = "Tel No. : " & P3 End If IF Len(Res) > 0 Then Nos = Nos & "
Res. No. : " & Res End If IF Len(Mob) > 0 Then Nos = Nos & "
Mob. : " & Mob End If Response.Write"
Chairman
" Response.Write("
" & CM & "
") Response.Write("
") Response.Write(Nos) If Len(Email) > 0 Then Response.Write("
Email : ") Response.Write("" & Email & "") End If Response.Write("
") End IF End Sub Sub Mem() Dim Mem(3), cnt, Flag For cnt = 1 to 3 Mem(cnt) = Trim(rst.Fields("M" & cnt)) Next For cnt = 1 to 3 If Len(Mem(Cnt)) > 0 Then Flag = True End If Next Response.Write("
Member
") If Flag Then For cnt = 1 to 3 If Len(Mem(Cnt)) > 0 Then Response.Write("
" & Mem(cnt) & "
") Response.Write("
") Call MemNos("M" & cnt) Response.Write("
") End If Next else Response.Write("


") End If End Sub Sub MemNos(mNo) Dim P1, P2, P3, Mob, Res, Email, Nos P1 = rst.Fields(mNo & "_PH1") P2 = rst.Fields(mNo & "_PH2") P3 = rst.Fields(mNo & "_PH3") Mob = rst.Fields(mNo & "_Mobile") Res = rst.Fields(mNo & "_Res") Email = rst.Fields(mNo & "_Email") IF Len(P1) > 0 AND Len(P2) > 0 AND Len(P3) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 & " / " Nos = Nos & P3 ElseIF Len(P1) > 0 AND Len(P2) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 ElseIF Len(P1) > 0 Then Nos = "Tel No. : " & P1 ElseIF Len(P2) > 0 Then Nos = "Tel No. : " & P2 ElseIF Len(P3) > 0 Then Nos = "Tel No. : " & P3 End If IF Len(Res) > 0 Then Nos = Nos & "
Res. No. : " & Res End If IF Len(Mob) > 0 Then Nos = Nos & "
Mob. : " & Mob End If Response.Write(Nos) If Len(Email) > 0 Then Response.Write("
Email ID : ") Response.Write("" & Email & "") End If Response.Write("
") End Sub Sub Sec() Dim Sec Sec = rst.Fields("Sec") Response.Write("
Secretary
") If Len(Sec) Then Dim P1, P2, P3, Mob, Res, Email, Nos P1 = rst.Fields("S_PH1") P2 = rst.Fields("S_PH2") P3 = rst.Fields("S_PH3") Mob = rst.Fields("S_Mobile") Res = rst.Fields("S_Res") Email = rst.Fields("S_Email") IF Len(P1) > 0 AND Len(P2) > 0 AND Len(P3) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 & " / " Nos = Nos & P3 ElseIF Len(P1) > 0 AND Len(P2) > 0 Then Nos = "Tel No. : " & P1 & " / " Nos = Nos & P2 ElseIF Len(P1) > 0 Then Nos = "Tel No. : " & P1 ElseIF Len(P2) > 0 Then Nos = "Tel No. : " & P2 ElseIF Len(P3) > 0 Then Nos = "Tel No. : " & P3 End If IF Len(Res) > 0 Then Nos = Nos & "
Res. No. : " & Res End If IF Len(Mob) > 0 Then Nos = Nos & "
Mob. : " & Mob End If Response.Write("
" & sec & "
") Response.Write("
") Response.Write(Nos) If Len(Email) > 0 Then Response.Write("
Email ID : ") Response.Write("" & Email & "") End If Response.Write("
") else Response.Write("


") End IF End Sub Sub Addr() Response.Write(rst.Fields("Addr")) Call Phone() Call Fax() Call Email() Call Web() End Sub %>
<% CnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & Server.MapPath(dbpath) & ";" & _ "JET OLEDB:Database password =" & dbpwd Set conn = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.RecordSet") conn.Open(CnStr) Sql = "SELECT * FROM ERC ORDER BY FName" rst.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText %> <% Dim FN, vID Response.Write"
" Do until rst.EOF FN = rst.Fields("FName") vID = "#" & rst.Fields("ERCID") Response.Write"") Loop Response.Write "

" rst.MoveFirst Do until rst.EOF vID = "" Response.Write vID & "
" Response.Write "
" Response.Write "
" & rst.Fields("FName") & "
" Response.Write "
" Call Addr() Response.Write "
" Response.Write "
" Response.Write "
" Call CM() Response.Write "
" Response.Write "
" Call Mem() Response.Write "
" Response.Write "
" Call Sec() Response.Write "
" Response.Write "
" Response.Write "

" rst.MoveNext Loop rst.close conn.close %>
 
Contact Us
  Electricity Regulatory Commissions
   
About Us
Photo Gallery
Electricity Act, 2003
Rules & Regulations
Press Release
Events for the month
Selected RoP
Orders
FOCA
Annual Reports
GoM Notifications
Other Links

MERCINDIA
Website
Search