• Home
• Discussion Forum
• Admin/Circle Login
• Photo Gallery
• Media Gallery
• Funds
• Contact

Our General Secretary

"The best way to predict the future is to create it....."

Best Regards R P Shahu (GS AIGETOA)

VISION AIGETOA : AIGETOA HAS CLEAR VISION FOR THE BEST INTEREST OF QUALIFIED EXECUTIVES AND OUR BELOVED ORGANIZATION. click here for details

News & Events

" Complete your Subscription in time. Last date for Payment is 30th June 2015. Click here for Payment"
<% dim strdatabasepath ,Con,RS strdatabasepath = server.MapPath ("database/news.mdb") set Con = Server.CreateObject("ADODB.Connection") Con.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&strdatabasepath Con.mode = 1 Con.open Set RS=Server.CreateObject("ADODB.Recordset") RS.Open "Select * from news order by dated desc,sno desc",Con,3,3 DIM i DIM b i=0 While not RS.EOF if i<10 then i=i+1 %>

Date Posted : <% Response.Write(Day(RS(1).value))%> <% Response.Write(MonthName(Month(RS(1).value)))%> <% Response.Write(Year(RS(1).value)) %>

<% b=RS(2).value %> <%Response.Write("

Subject : "+b+"

") a=RS(3).value Response.Write("

"+a+"

") else RS.MoveLast ENd IF RS.MoveNext Wend RS.Close Set RS=Nothing Con.close Set Con=Nothing %>

   Read more....

 

<% Function iWords(sInput) 'Declare variables Dim myWordArray myWordArray = Split(sInput ," ") FOR I=0 TO UBOUND(myWordArray) iWords=iWords & myWordArray(I) next End Function %> <% Dim sText, iWordCount strdatabasepath = server.MapPath ("database/cat.mdb") set Con = Server.CreateObject("ADODB.Connection") Con.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&strdatabasepath Con.open Set RS=Server.CreateObject("ADODB.Recordset") RS.Open "Select * from CAT",Con,3,3 Set RS1=Server.CreateObject("ADODB.Recordset") %> <%While not RS.EOF%> <%sText =trim(RS(0).value)%> <% RS.MoveNext Wend RS.CLOSE SET RS=NOTHING SET RS1=NOTHING CON.CLOSE SET CON=NOTHING %>

ONLINE REGISTRATION

MEMBER'S LOGIN

 HRM NO.  :  
 Password: 
 forgot password?         

<% DIM POLL_VOTE,QUEST strdatabasepath = server.MapPath ("database/polls.mdb") set Con1 = Server.CreateObject("ADODB.Connection") Con1.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&strdatabasepath Con1.open Set RS=Server.CreateObject("ADODB.Recordset") RS.Open "SELECT * FROM poll order by date asc", Con1,3,3 WHILE NOT RS.EOF if trim(rs(5).value)="POSTED" THEN POLL_VOTE="YES" QUEST=RS(1).VALUE END IF RS.MoveNext WEND RS.CLOSE SET RS=NOTHING CON1.CLOSE SET CON1=NOTHING IF TRIM(POLL_VOTE)<>"" THEN %>

POLLING VOTES

<% END IF dim y,n,bth,YY,nn,bb,POLL_VIEW,tot strdatabasepath = server.MapPath ("database/polls.mdb") set Con1 = Server.CreateObject("ADODB.Connection") Con1.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&strdatabasepath Con1.open Set RS=Server.CreateObject("ADODB.Recordset") RS.Open "SELECT * FROM poll order by date asc", Con1,3,3 'Response.Write(Day(RS(1).value))%> <% 'Response.Write(MonthName(Month(RS(1).value)))%> <% 'Response.Write(Year(RS(1).value)) WHILE NOT RS.EOF if trim(rs(5).value)="CLOSED" THEN POLL_VIEW="YES" QUEST=RS(1).VALUE y=RS(2).VALUE n=RS(3).VALUE bth=RS(4).VALUE tot=CInt(y)+CInt(n)+CInt(bth) 'YY= "YES " & Y & "%" 'nn= "NO " & n & "%" 'bb= "NONE " & bth & "%" END IF RS.MoveNext WEND RS.Close Set RS=Nothing Con1.Close Set Con1=Nothing YY="YES " & Round((y/tot)*100) & "%" nn="NO " & Round((n/tot)*100) & "%" bb="NONE " & Round((bth/tot)*100) & "%" tot=0 IF TRIM(POLL_VIEW)<>"" THEN %>

CLOSED POLL RESULT

<%End If%>