<% if request.form("kategori")="" then strkondisi="where Bimbingan.Kd_tesis=Tesis.Kd_tesis" else strkondisi="where Bimbingan.Kd_tesis=Tesis.Kd_tesis and Bimbingan.Kd_dosen='" & request.form("kategori") & "'" end if dim con1,rst1 set con1=server.createobject("ADODB.Connection") con1.open "university", "","" strsql="select Bimbingan.Kd_dosen,Tesis.NIM,Tesis.Judul from Bimbingan,Tesis" set rst1=server.createobject("ADODB.Recordset") rst1.open strsql,con1 response.write "