Web Dataaccess

[Guest fsoudbakhsh]

Hello,

Bellow VB script job is to select Pin number from the web database (Access file) and pass it to result variable call SQLS.

 

I don't received any error when I run this scripts in VG but VG doesn't get any result variable from this script.

 

I am not sure which one is not working correctly? VG or my VB script!

 

I do have other VB scripts that does update, insert, and delete data from and into the web data base, and none of them has any problem.

 

If you can give me hint which one (Script or VG) has the problem and where the problem is I would be appreciated.

 

Thanks

Farzad

 

DIM VerfCNum, sqls

 

Set IE = CreateObject("InternetExplorer.Application")

With IE

.RegisterAsDropTarget = False

.Visible = False

.Silent = True

.Navigate("http://farzadinc.com/default.asp?pcuser=root&pcpass=passme")

While .Busy

WScript.Sleep 500

Wend

.Navigate("http://farzadinc.com/command.asp?sqls=select CNUM from CC where Deposit=50 and Balance = 50 and CurrancyType = 1")

While .Busy

WScript.Sleep 500

Wend

With .Document.Body

readWwwHtml = .InnerHTML

readWwwText = .InnerText

End With

End With

IE.Quit

Set IE = Nothing

set VG = CreateObject("VoiceGuide.CommandLink")

vg.Run_ResultReturn $RV_LINEID, "[VerfCNum]{" & sqls & "}"

set VG = Nothing

[SupportTeam]

The script is returning value of variable sqls in this command:

 

vg.Run_ResultReturn $RV_LINEID, "[VerfCNum]{" & sqls & "}"

 

but sqls is not set anywhere... so $RV[VerfCNum] would be holding a blank value after the script returns..

 

maybe the script should be returning the readWwwText variable, like this:

 

vg.Run_ResultReturn $RV_LINEID, "[VerfCNum]{" & readWwwText & "}"

 

That way $RV[VerfCNum] would be holding the value of variable readWwwText...