نشان دادن تعداد رکوردهایی که با مقدار combo مساوی هستند در داخل textbox

[صنم]

سلام
من توی فرمم یه combo و یک textbox دارم می خوام هر موقع که مقدار combo عوض میشه تعداد رکوردهایی که در db با این مقدار برابر هستند در textbox نشان داده شوند .این تابع رو نوشتم ولی مقدار متغیر "n" همواره در مقدار sql برابر صفر هست کسی می تونه این مشکل منو حل کنه؟


<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--


Sub shomareh_doreh_onclick

'document.form1.numberperson.value=document.form1. shomareh_doreh.value

<%

set con=server.CreateObject("adodb.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("gavahi_gostaresh.mdb")+";Persist Security Info=False"
set rst=server.CreateObject("adodb.recordset") %>
n=document.form1.shomareh_doreh.value
<%strsql="select * from person where shomareh_sabt_doreh like '"& n&"' "%>
'strsql="select * from person"

<%rst.open strsql,con,1,3
if rst.RecordCount >=0 then %>
'c=<% =rst.recordcount%>
'document.form1.numberperson.value=n
document.form1.numberperson.value=<%=rst.recordcount%>
<%end if%>
'response.write(rst.recordcount)

<%rst.close
con.close%>

End Sub
-->

</script>

[لوک خوش شانس]

<%

set con=server.CreateObject("adodb.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("gavahi_gostaresh.mdb")+";Persist Security Info=False"
set rst=server.CreateObject("adodb.recordset") %>
n=document.form1.shomareh_doreh.value
<%strsql="select * from person where shomareh_sabt_doreh like '"& n&"' "%>
'strsql="select * from person"

<%rst.open strsql,con,1,3
if rst.RecordCount >=0 then %>
'c=<% =rst.recordcount%>
'document.form1.numberperson.value=n
document.form1.numberperson.value=<%=rst.recordcount%>
<%end if%>
'response.write(rst.recordcount)

<%rst.close
con.close%>

End Sub
-->

</script>

خطی که آبی شده در کد رو نگاه کن
این خط چیه ؟؟؟ چی کار میکنه ؟؟؟ چرا داخل کد ASP نیست ...

[صنم]

<%

set con=server.CreateObject("adodb.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("gavahi_gostaresh.mdb")+";Persist Security Info=False"
set rst=server.CreateObject("adodb.recordset") %>
n=document.form1.shomareh_doreh.value
<%strsql="select * from person where shomareh_sabt_doreh like '"& n&"' "%>
'strsql="select * from person"

<%rst.open strsql,con,1,3
if rst.RecordCount >=0 then %>
'c=<% =rst.recordcount%>
'document.form1.numberperson.value=n
document.form1.numberperson.value=<%=rst.recordcount%>
<%end if%>
'response.write(rst.recordcount)

<%rst.close
con.close%>

End Sub
-->

</script>

خطی که آبی شده در کد رو نگاه کن
این خط چیه ؟؟؟ چی کار میکنه ؟؟؟ چرا داخل کد ASP نیست ...

این خط مقدار فعلی combobox رو در داخل متغیر n میریزد. ولی وقتی این خط رو داخل <%%> می گذارم error می دهد که :
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
وقتی هم این رو <%%> برمی دارم n صفر میشه .

[لوک خوش شانس]

چرا خودتو تو دردسر میندازی .
این برنامه ای که نوشتی کار نمی کنه . فکر نمی کنم اینطوری بتونی به هدفت برسی .

فکر کنم که شما یه چیزی مثل این می خوای .
وقتی که مقدار یه کامبوبکس عوض شد یه اطلاعاتی رو از دیتابیس برداره و نمایش بده دیگه .

خوب چرا از onchange استفاده نمی کنی .؟


<select name='second' id='second' onchange='loader();'><option value='Select1'>Select1<option value='Select2'>Select2</select>

وقتی که مقدارش عوض میشه یه اسکریپت رو فراخونی میکنه و اجرا میشه . بعد شما هر کاری که می خواستی انجام بده .

[صنم]

میشه بگین توی javascript کدهای اتصال به بانک اطلاعاتی رو چه جوری می نویسند؟

[لوک خوش شانس]

مگه خودت تو یه تابع جاوا اسکریپت از ASP استفاده نکردی . خوب اینجا هم همین کار رو انجام بده

[صنم]

مگه خودت تو یه تابع جاوا اسکریپت از ASP استفاده نکردی . خوب اینجا هم همین کار رو انجام بده
نه تابع بالایی vbscript هست وقتی از این دستورات در jscript استفاده می کنم درست جواب نمیده ؟

[لوک خوش شانس]

اصلاً چرا این طوری نوشتی کدشو ...

کد VB که نوشتی درسته ؟ در حالت معمولی کار میکنه

[صنم]

اصلاً چرا این طوری نوشتی کدشو ...

کد VB که نوشتی درسته ؟ در حالت معمولی کار میکنه
حالا می گی من چی کار کنم ؟

[لوک خوش شانس]

از Java استفاده کن .