Originariamente inviato da danielix05
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
Rispondi quotando
