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 & "<br>")
response.write(dove_var2 & "<br>")
'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 & "<br>")
'response.write(al_var2 & "<br>")
'response.write(tipologia_var2 & "<br>")

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

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


<%
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

bene, non mi dà più errore ma, allo stesso tempo, non mi stampa i campi cognome ecc..,

riassumo il codice. cosa può essere??? puoi fare una prova su www.viagginelsalento.it/arrivi

scrivendo dal 15/07/2006 presso Open, il record esiste e lo vedi da http://www.viagginelsalento.it/listini/dettaglio.asp


<%
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 = Request.Form("arrivi_var")
'arrivo presso struttura
dove_var2 = Request.Form("dove_var")

response.write(arr_var2 & "<br>")
response.write(dove_var2 & "<br>")
'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("OP.mdb")

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

Dim tot

tot=0
if rs.eof then
response.write "recordset vuoto !"
else
conta=0
Do while RS.EOF
%>
<%
Dim cognome
cognome=rs("cognome")
response.write(cognome)
%><br>

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


<%
RS.MoveNext
Loop
end if

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

%>