Sql Deyim Hatasi

[beyuzar]

Merhaba Arkadaslar.

Kisaca;
Bir sayfada takvimim var (myLittleCalendarObj) ve kullanici bu takvimde tikladigi tarihi (ornegin : 26.07.2006 gibi) myLittleCalendarObj.mlcDate ile alarak birdegiskene atiyorum.

daha sonra veritabanindaki rezervasyon tablosunun icinde kayitli olan rezervasyonlardan istedigim kriterdekilerini görüntülüyorum.

Fakat problem su ki benim takvimdeki kullanicinin tikladigi tarihe uyan rezervasyon kayitlarini goruntuleyemiyorum.
Yani rezervasyon tablosundaki kayitli rezervasyonlardankullanicinin tiklamis oldugu ornegin 26.07.2006 olanlarini gosteremiyorum.
Anladigim kadariyla bir tip hatasi var Where deyimindeki kiyaslamalarda tipler uyusmuyor ama tam olarak cozemedim.Yanlis da yonlendiriyor olabilirim.

Asagidaki kodlari inceleyerek bana yardimci olabilirseniz cok sevinirim.

---

<%
Dim tkgun1
tkgun1= (myLittleCalendarObj.mlcDate)
'myLittleCalendarObj.mlcDate kullanicinin tikladigi aktif tarihtir

Set ObjProducts_MasaR = Createobject("ADODB.Recordset")
ObjProducts_MasaR.open " SELECT TblRezervasyon.ComID, TblRezervasyon.ProdID, TblCustomers.StrCustomerName, TblRezervasyon.StrComments, TblRezervasyon.StrPoint, TblRezervasyon.StrDate, TblRezervasyon.StrTime, TblRezervasyon.Ssifirbir, TblRezervasyon.Sbiriki, TblRezervasyon.Sikiuc, TblRezervasyon.Sucdort "_
&" FROM TblCustomers INNER JOIN TblRezervasyon ON TblCustomers.CustomerID = TblRezervasyon.CustomerID "_
&" WHERE (((TblRezervasyon.ProdID)=" & Request("ProdID") & ")) AND (((TblRezervasyon.StrDate)=tkgun1))"_
&" ORDER BY TblRezervasyon.ComID DESC", ObjConn , 1 , 3

If ObjProducts_MasaR.EOF And ObjProducts_MasaR.BOF Then %>
<b>herhangi bir rezervasyon bulunmamaktadır.</b>
<%
Else
Do While Not ObjProducts_MasaR.EOF
%>
<%=ObjProducts_MasaR("StrComments")%><br>
<%=ObjProducts_MasaR("StrCustomerName")%><br>
<%=ObjProducts_MasaR("StrDate")%> <br>
<%=ObjProducts_MasaR("StrTime")%><br>
<%=ObjProducts_MasaR("ProdID")%><br>
<%=ObjProducts_MasaR("StrPoint")%><br>
<%=ObjProducts_MasaR("Ssifirbir")%><br>
<%=ObjProducts_MasaR("Sbiriki")%><br>
<%=ObjProducts_MasaR("Sikiuc")%><br>
<%=ObjProducts_MasaR("Sucdort")%><br><br>

<%
ObjProducts_MasaR.MoveNext
Loop
End If
%>


burda herhangi bir kayit bulamiyor.Oysa ki yukaridaki Sql deyiminde WHERE den sonra ;

&" WHERE (((TblRezervasyon.ProdID)=" & Request("ProdID") & ")) AND (((TblRezervasyon.StrDate)=Ali))"_

degilde asagidaki gibi ;

&" WHERE (((TblRezervasyon.ProdID)=" & Request("ProdID") & ")) "_

yazdigimda istedigim butun rezervasyonlari goruntuleyebiliyorum ama bu seferde o eleyip goruntuledigim kayitlar arasindan istedigim tarihdekileri (kullanicinin tiklamis oldugu aktif tarihteki yani myLittleCalendarObj.mlcDate deki tarihi) goruntuleyemiyorum.

Yardimci olursaniz cok sevinirim. Simdiden Cok tesekkurler..