fecha

[pussy]

bueno mi problema es que quiero validar un formulario para cita medica, que no se repita ni fecha ni hora mi codigo son:


<%
primero=request.form("sucursal")
codigo= Trim(Request.Form("cedula_med"))
palabra= Trim(Request.Form("especialidad"))
palabra2= Trim(Request.Form("cedula_paciente"))
palabra3= Trim(Request.Form("fecha"))
palabra4= Trim(Request.Form("hora"))

Dim xxx,yyy
set xxx = Server.CreateObject("ADODB.Connection")
set yyy = Server.CreateObject("ADODB.Recordset")
xxx.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\tesis\tesis.mdb"
m="SELECT * FROM agenda_cita Where fecha=" & palabra3 & " and hora=" & palabra4 & " "
yyy.Open m, xxx, 1, 2
If yyy.BOF And yyy.EOF Then
Response.Write ("Lo céntimo la hora seleccionada ya esta tomad por favor selecciones otra")
else
Response.Write ("existe")
end if
%>

pro me sale el siguiente problema y por mas que reviso no se cual es se agradeseria su ayuda:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'fecha=11/04/2009 and hora=07:00'.
/tesis/analisis_pedido.asp, línea 20