سوال

[ghasedak_tanha]

سلام بچه ها خسته نباشید من یه فایل asp دارم که باید این کار رو انجام بده
من یه برنامه سرچ دارم و یک دیتابیس اکسس وداخل اون اطلاعاتی راجع به اتوبوسها و مسیر های آنها
من می خوام وقتی مبدا و مقصد رو به اون بدم از داخل بانک اطلاعاتی بگرده و باقی مشخصات رو نشون بده ولی اون این کار رو نمی کنه اینم فایلم اگه میشه کمکم کنید ممنون می شم


[LEF<%
dim cnUsers,rsUsers,i
Set cnUsers=Server.CreateObject("ADODB.Connection")
cnUsers.open "Provider=Microsoft.Jet.OLEDB.4.0;data source="+server.MapPath("db1.mdb")
set rsUsers=server.CreateObject("ADODB.Recordset")
rsUsers.Open "SELECT * FROM Table1 WHERE cstr(mabda)='"+Request.Form ("mabda")+"' & cstr(maghsad)='"+Request.Form ("maghsad")+"' " ,cnUsers
while not rsusers.EOF
Response.Write (rsusers("&shomareh="));
Response.Write (rsusers(sh_khat));
Response.Write (rsusers("&masafat="));
Response.Write (rsusers(masafat));
Response.Write (rsusers("&mabda="));
Response.Write (rsusers(mabda));
Response.Write (rsusers("&maghsad="));
Response.Write (rsusers(maghsad));
Response.Write (rsusers("&noe khat="));
Response.Write (rsusers(noe khat));
Response.Write (rsusers("&noe bus="));
Response.Write (rsusers(noe bus));
Response.Write (rsusers("&masir raft="));
Response.Write (rsusers(masir raft));
Response.Write (rsusers("&masir bargasht="));
Response.Write (rsusers(masir bargasht));

rsusers.MoveNext
i=i+1
wend
%>T][/LEFT]

 

[amirlol]

این فایل رو + فایل دیتابیس رو بزار اینجا