<form method="post" action="tddia/tddia_search.asp">
<div align="center"><span class="conteudo">Dia:</span>
<select name="p_dia" class="conteudo">
<option value="0">__</option>
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<span class="conteudo">Mês:</span>
<select name="p_mes" class="conteudo">
<option value="0">_________</option>
<option value="1">Janeiro</option>
<option value="2">Fevereiro</option>
<option value="3">Março</option>
<option value="4">Abril</option>
<option value="5">Maio</option>
<option value="6">Junho</option>
<option value="7">Julho</option>
<option value="8">Agosto</option>
<option value="9">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" value="OK" class="bodytxt" style="border-style: solid; border-width: 1; background-color: ffffcc" name="submit">
</div>
</form>
e esta pg para busca:
<%
p_dia = Request.Form("p_dia")
p_mes = Request.Form("p_mes")
set usuariosDB = server.createObject("ADODB.Connection")
usuariosDB.open "almanaque"
sql = "select tododiadata.his_month, "
sql = sql & "tododiadata.his_link "
sql = sql & "From tododiadata "
sql = sql & "Where tododiadata.his_month = '"& p_mes &"'"
set tddiaset = usuariosDB.Execute(sql)
while not tddiaset.EOF
Response.Write tddiaset("his_link")
tddiaset.MoveNext
wend
tddiaset.Close
set tddiaset = Nothing
usuariosDB.close
set usuariosDB = Nothing
%>
está acontecendo este erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/almanaque/tddia/tddia_search.asp, line 15
alguem tem ideia de como posso resolver?