如何用数据记录中的值给变量付值？

[yuanl]

我先打开一个数据表table1,
然后，根据table1中的某一字段的值，来查询第二个表。
cTSql = "select * from table where ID="&cPcode
Set Rst = Server.CreateObject("ADODB.RecordSet")
Rst.CursorType = 3
Rst.Open cTSql, mydb
If Rst.Eof Then Response.Write "无目录"
cCODE=Rst("CODE")

cSql = "select * from table2 where tcode='"&cCODE&"' order by SEND_TIME DESC"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.CursorType = 3
Rs.Open cTSql, mydb
这样，测试时，提示错误

[baikaishui_0825]

try it:
cTSql = "select * from table where ID="&cPcode
Set Rst = Server.CreateObject("ADODB.RecordSet")
Rst.Open cTSql,mydb,1,1
If Rst.Eof Then
Response.Write "无目录"
Else
cCODE=Rst("CODE")
End If
Rst.Close
If cCODE<>"" Then
cSql = "select * from table2 where tcode='"&cCODE&"' order by SEND_TIME DESC"
Rs.Open cTSql, mydb,1,1
End If

[iexapl]

Rst.CursorType = 3什么意思?
我不知道这个

[iexapl]

cTSql = "select * from table where ID="&cPcode
Set Rst = Server.CreateObject("ADODB.RecordSet")
Rst.Open cTSql,mydb,1,1
If Rst.Eof Then
Response.Write "无目录"
Else
cCODE=Rst("CODE")
End If
Rst.Close
If cCODE<>"" Then
Set Rs = Server.CreateObject("ADODB.RecordSet")
cSql = "select * from table2 where tcode='"&cCODE&"' order by SEND_TIME DESC"
Rs.Open cTSql, mydb,1,1
End If

[yuanl]

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

latelist.asp，行55

cSql = "select * from table2 where tcode='"&cCODE"' order by SEND_TIME DESC"
-----------------------------------------------------------^
提示的错误

[iexapl]

tcode='"&cCODE"'应为:tcode='"&cCODE&"'

[enjsky]

1、Rst.CursorType = 3 这个没用，去掉
2、tcode='"&cCODE"'应为:tcode='"&cCODE&"'