welcome | Alam Sekitar Malaysia Sdn Bhd : :

<% Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open conn_str Set dbRec = Server.CreateObject("ADODB.Recordset") dbRec.cursorlocation=adUseClient Set dbRec2 = Server.CreateObject("ADODB.Recordset") dbRec2.cursorlocation=adUseClient n_year=Request.QueryString("n_year") If IsNumeric(Request.QueryString("page")) Then iCurrentPage = CInt(Request.QueryString("page")) If iCurrentPage < 1 Then iCurrentPage = 1 Else iCurrentPage = 1 End If %> welcome | Alam Sekitar Malaysia Sdn Bhd : :

International Business

	Newspaper

	TV1 News

	PM's Signature

	Photo Gallery

<% sSQL = "SELECT DISTINCT gallery_year AS n_year FROM gallery WHERE status='A' ORDER BY gallery_year DESC" dbRec.Open sSQL, dbConn, adOpenForwardOnly, adLockReadOnly, adCmdText If NOT dbRec.EOF Then If n_year="" Then n_year=dbRec("n_year") %> <% sSQL = "SELECT * FROM gallery WHERE status='A' AND gallery_year=" & n_year & " ORDER BY sort_order,title" dbRec.Open sSQL, dbConn, adOpenForwardOnly, adLockReadOnly, adCmdText dbRec.PageSize = per_page If dbRec.PageCount > 0 Then dbRec.AbsolutePage = iCurrentPage Else iCurrentPage = 0 End If Do While dbRec.AbsolutePage = iCurrentPage AND NOT dbRec.EOF sSQL = "SELECT TOP 1 * FROM gallery_photo WHERE id=" & dbRec("id") & " ORDER BY pid ASC" dbRec2.Open sSQL, dbConn, adOpenForwardOnly, adLockReadOnly, adCmdText If NOT dbRec2.EOF Then photo=dbRec2("photo") Else photo="" End If dbRec2.CLose %> <% dbRec.MoveNext Loop If dbRec.PageCount > 1 Then Response.Write "" End If Set dbRec2 = Nothing dbRec.Close Set dbRec = Nothing dbConn.Close Set dbConn = Nothing %>

	Under Construction, Come Back Soon.



" If iCurrentPage <> 1 Then Response.Write "Previous Page" Else Response.Write "Previous Page" End If For iCount = 1 to dbRec.PageCount If iCount = 1 Then Response.Write " \| " End If If iCount = iCurrentPage Then Response.Write iCount & " \| " Else Response.Write "" & iCount & " \| " End If Next If iCurrentPage <> dbRec.PageCount Then Response.Write "Next Page" Else Response.Write "Next Page" End If Response.Write "

<% End If 'no gallery %>

Disclaimers