Public conn,rst,sql,genre,Cgenre
Const strconn="rovider=MSDAORA.1assword=ussdtest;User ID=ussdtest;Data Source=USSDTESTersist Security Info=True"
Set conn=createobject("Adodb.connection")
Set rst=createobject("Adodb.recordset")
sql="select * from JMBCASE"
conn.open strconn
rst.open sql,conn
rst.movefirst
'Environment.Value("Cgenre")=rst
genre=rst.fields("genre").value
Parameter("rst1")=rst
While not rst.eof
Select Case genre
Case 0
Dialog("移动商务平台测试工具").Restore
RunAction "话费查询USSD", oneIteration
Case 1
RunAction "银行话费查询", oneIteration
End Select
rst.movenext
Wend
conn.close
Set rst=nothing
Set conn=nothing