ciao a tutti, non riesco a capire perchè non mi visualizza i record del mio db
praticamente mi dovrebbe restituire tutti gli arrivi di un residence in base alla data che gli inserisco nel form



<form action="lista_arrivi.asp" method="post" name="anagrafica_dal">
arrivi dal <input name="arrivi_var" id="arrivi_var" size="15">
presso la struttura da un form inserisco la variabile "dal" e "struttura"<input name="dove_var" id="dove_var" size="15">
<input name="submit" type="submit" value="Calcola">
</form>
</html>

e poi questo file dovrebbe darmi i risultati

<%
dim arr_var2, dove_var2

' Conversione delle date in formato US
Function Data_US(Data_IT)
' formato MM/GG/AAAA
Data_US=mid(Data_it,4,2)&"/"&Mid(Data_it,1,2)&"/"&Mid(Data_it,7,4)
end Function

'data arrivo
arr_var2 = Data_US(Request.Form("arrivi_var"))
'arrivo presso struttura
dove_var2 = Request.Form("dove_var")

response.write(arr_var2 & "
")
response.write(dove_var2 & "
")
'response.write(al_var2)
dim sql_select
Dim rs
Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/guestbookOP.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
sql_select = "select * from book where dal = #" & arr_var2 & "# and struttura = " & dove_var2 & ""
rs.Open sql_select, Conn

'response.write(arr_var2 & "
")
'response.write(al_var2 & "
")
'response.write(tipologia_var2 & "
")

Do while RS.EOF
%>
<%
Dim cognome
cognome=rs("cognome")
response.write(cognome)
%>


<%
Dim struttura
struttura=rs("struttura")
response.write(struttura)
%>



<%
RS.MoveNext
Loop

rs.close
set rs=nothing
conn.close
set conn=nothing

%>

INVCE MI DICE

08/12/2006
Baia d Oro

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'dal = #08/12/2006# and struttura = Baia d Oro'.

/listini/arrivi/lista_arrivi.asp, line 27


grazie del vostro aiuto, daniele.:question