<%
'=========================================
if OpenConnection() = False then
ShowHTMLMessage("Terjadi kesalahan teknis yang berkaitan dengan koneksi database")
HaltProgram(True)
end if
'=========================================
%>
Organisasi Pemerintahan
<%
dim hasilInstansi
dim i
dim jhasil
dim jparuh
sql="select ID_instansi,nama_instansi from instansi where id_tipe_instansi=2 and published=1"
set rs=my_conn.execute(sql)
hasilInstansi=rs.getrows
rs.close
set rs=nothing
jbaris=ubound(hasilInstansi,2)
jparuh=cint(jbaris/2)
%>
