พี่ครับมันไม่แสดงข้อมูลออกมาทั้งที่ใน mysql แสดงข้อมูลอ่ะครับ

<% session.CodePage ="65001"%>

<!--#include file="userheader.asp" -->
<!--#include file="usermenu.asp" -->
<!-- start -->
   <td class="f2" >
<table style="width:100%">
<!-- start -->
<%
	Dim sqlr,recr
	sqlr="select * from unit,officer where unit.unitid=officer.unitid and unitengname like '%" & Request.QueryString("medicine") & "%' and officer.of_tname between 'ผ' and 'ฮ' ORDER BY of_tname DESC " <<<-----ตรงถ้าลบ and officer.of_tname between 'ผ' and 'ฮ' ข้อมูลก็แสดงขึ้น
	Set recr=Server.CreateObject("ADODB.Recordset")
	recr.open sqlr,con
	If Not recr.EOF then
%>
<div class="head">	<%=recr.fields("unitname").value%>	</div> <hr />
<div class="nameh1">	ข้อมูลสาขาวิชา	</div>
<div class="tab1">
<%=recr.fields("unitdetail").value%>
</div>
 <br>

<div class="nameh1">	การบริการของสาขาวิชา	</div>
<div class="tab1">
กำลังทำการปรับปรุงข้อมูลค่ะ 
</div>
 <br>
 
 <div class="nameh1">	ติดต่อ / สอบถาม </div>
<div class="tab1">
<%=recr.fields("contact").value%>
</div>
 <br>
 <div class="nameh1">	บุคลากรประจำสาขาวิชา	</div>
  <% While Not recr.EOF %>
<table border="1" width="80%" bordercolor="#ffffff" cellpadding="2" cellspacing="0">
	<tr>
	<%If recr.fields("of_pic").value="-" Then %>
			<td width="90px" align="right"><img src="../images/emppic/blank.gif" border="0" width="110" height="150"></td>
	<%
		Else 
	%>
		<td width="90px" align="right"><img src="../images/emppic/<%=recr.fields("of_pic").value%>" border="0" width="110" height="150"></td>
	<%
	End if
	%> 
		
		<td class="table1">			
			<b><%=recr.fields("of_tname").value & " " & recr.fields("of_name").value%> 	</b>	<br/>
		</td>
	</tr>
</table>
	<%
	recr.movenext
	Wend
	End if
	%>
<br>
<div class="t2"><img src="../images/b_back.gif" border="0" onclick="javascript:history.back(-1)"></div>
<br><br>
  <!-- end -->
</table> 
   </td>
<!-- end -->

</tr>
</table>
<!-- end -->
<!--#include file="footer.asp"-->