<% set conn = server.CreateObject("ADODB.Connection") conn.Open dbcon tp = trim(Request.QueryString("tp")) if tp="" then tp="kepolisian" if tp = "kepolisian" then tjn = "KEPOLISIAN" elseif tp = "komersial" then tjn = "KOMERSIAL" elseif tp = "kelkes" then tjn = "KELUARGA & KESEHATAN" else tjn = "UMUM" end if %> : : : PARAMA SATWIKA : : :
 
  SITUS <%=tjn%>  
 
<% sql = "select * from tbl_situs where jenis='" & tp & "' order by id desc" set rst = server.CreateObject("ADODB.recordset") rst.open sql,conn,1,2 if not rst.eof then do Response.Write "" & rst("nama") & "
" & rst("keterangan") & "

" rst.movenext loop while not rst.eof else Response.write "

Data belum ada...

" end if rst.close set rst=nothing %>
 
     
 
<% conn.close set conn=nothing %>