ทำไมนำค่าที่ได้จากการวนลูป ออกมาเป็น listbox ไปเทียบกับ DB แล้วตัวแปรกลายเป็นค่าว่างเทียบไม่ได้ '"&month_fueling&"'

<!--#include file="include/inc_connect_db.inc" -->
<form id="form1" name="form1" method="post" action="">
      <select name="month_fueling" >
<% 
Dim sql,rstemp,d1,month_fueling

Set rstemp = Server.CreateObject("ADODB.Recordset")
sql = "SELECT DISTINCT top 3 fill_date FROM wguses "
rstemp.open sql,sConn

While Not rstemp.EOF 
d1=rstemp.Fields ("fill_date").Value
%>

<option value="<% =d1 %>">
<% Response.write MonthName(Month(d1)) %> - <% Response.write Year(d1) %>
</option>

<%
rstemp.MoveNext 
Wend
%>
      </select>  
<input name="Submit" type="submit"  style="width:120px;" value="Search" />                 

</form>

นำไปเทียบกับ DB เพื่อ list รายการออกมา
<% 
sql1 = "SELECT *FROM wguses where YEAR(fill_date) = '"&month_fueling&"'  "
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open sql1,sConn
response.write sql1 &"<br>"
%>