为何出现这样的错误!!

[fangxianghua9801]

sql = "select * from Products where ID in ("getID.Substring(0,getID.Length-1))")"运行是出现这样的错误:
ASP服务器发现运行时错误：
错 误 码：0x800A0401
错误代码：sql = "select * from Products where ID in ("getID.Substring(0,getID.Length-1))")"
错误描述：语句未结束
文件名称：e:\procrm\shopcart1.asp
所在行号：12

[fangxianghua9801]

ding

[fangxianghua9801]

ding

[peak_weng]

sql = "select * from Products where ID in ('"+getID.Substring(0,getID.Length-1))+"')"

[swordragon]

sql = "select * from Products where ID in (" + getID.Substring(0,getID.Length-1) + ")"

[zhy0101]

"的问题

[fangxianghua9801]

<%@ language=vbscript %>
<%
dim StrId,sql
StrId=request("itemno")+","
Session("StrId")=StrId
if len(CStr(Session("StrId")))<>0 then
dim getID
getID=CStr(Session("StrId"))
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("myDB/Datasource.mdb")
'sql = "select * from Products where ID="& getID' where ID in ("+getID.Substring(0,getID.Length-1)+")"
sql = "select * from Products where ID in ('"+getID.Substring(0,getID.Length-1))+"')"
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
%>
以上使我的源代码,我想实现:sql="select * from Products where ID in (3,8,9)"这样的效果
StrId=request("itemno")+","是接收上页传递的ID值且在后面添上","最终通过此函数getID.Substring(0,getID.Length-1))实现(3,8,9)效果

[fangxianghua9801]

ASP服务器发现运行时错误：
错 误 码：0x800A0401
错误代码：sql = "select * from Products where ID in ("+getID.Substring(0,getID.Length-1))+")"
错误描述：语句未结束
文件名称：e:\procrm\shopcart1.asp
所在行号：12

[swordragon]

sql = "select * from Products where ID in ('"+getID.Substring(0,getID.Length-1))+"')"