SMAN 1 Cikarang Pusat | Kabupaten Bekasi 


Guru dan Karyawan SMAN 1 Cikarang Pusat

<% SQL = "SELECT * FROM db_guru ORDER BY id" Set RsCmp = Server.CreateObject("adodb.recordset") iPageSize = 10 If Request("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request("page")) End If RsCmp.PageSize = iPageSize RsCmp.CacheSize = iPageSize RsCmp.Open SQL, Cn, 3, 1, &H0001 iPageCount = RsCmp.PageCount iRecCount = RsCmp.recordCount I = 1 If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "

Data Perusahaan tidak ditermukan... Silahkan gunakan kata kunci (keyword lain)

" Else RsCmp.AbsolutePage = iPageCurrent iRecordsShown = 0 list_guru() End If Set RsCmp = Nothing %> <%Sub list_guru()%> <% Do While iRecordsShown < iPageSize And Not RsCmp.EOF%>
.jpg" alt="<%=Rscmp("nama_lengkap")%>" class="img-polaroid"/>

<%=Rscmp("nama_lengkap")%>

NIP : <%=Rscmp("nip")%>
Pangkat - Jabatan : <%=Rscmp("pangkat")%> - <%=Rscmp("jabatan")%>
Pendidikan terakhir : <%=Rscmp("Pendidikan_terakhir")%> (<%=Rscmp("jurusan")%>) tahun <%=Rscmp("tahun_kelulusan")%>
Tempat tanggal lahir : <%=Rscmp("tempat_tgl_lahir")%>
<% I = I + 1 iRecordsShown = iRecordsShown + 1 RsCmp.MoveNext %> <%Loop %> <%end sub%> <%If iPageCount > 1 Then%> <%End If%>