Some Help In Vbs

[Guest omar_f]

hi

i need to develop a script whic do the following :

first it ask the user to leave a message(which is a question that will be answer by

his message will stor in database which will show the path of the message) after that the script will generate a number that will be told to the caller after saving his message so he can use this number to know the answer to his question ,and every thing tell now is ok ,the following vbs do all the story for the number

 

 

 

 

Const adOpenForwardOnly = 0

Const adOpenKeyset = 1

Const adOpenDynamic = 2

Const adOpenStatic = 3

 

 

'***********************************************

 

 

 

set vg = CreateObject("VoiceGuide.CommandLink")

set cn = CreateObject("ADODB.Connection")

set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\alqadi\Desktop\omar test\Copy of add.mdb"

 

msgbox("ok")

 

set rs.ActiveConnection = cn

rs.Open "SELECT A FROM Table1 ", cn, adOpenStatic

 

'if rs.RecordCount > 0 then

rs.movelast

vg.Admin_TraceLogAdd $RV_LINEID, 5, "vbs records found OK"

iA = rs.Fields("A").Value

' sID = rs.Fields("ID").Value

 

' *******************************************8

maxi=iA

iA = ((iA + 7)*5)-13

sID =iA

cc = sID

'msgbox("UPDATE Table1 SET ID=" & sID & " WHERE A=" & maxi)

cn.Execute "UPDATE Table1 SET ID=" & sID & " WHERE A=" & maxi

'else

 

 

' vg.Admin_TraceLogAdd $RV_LINEID, 5, "vbs no records found"

'end if

 

 

cn.Close

Set rs = Nothing

Set cn = Nothing

Set vg = Nothing

 

 

msgbox("cc= " & cc)

 

////////////////////////////////////

the problem is i need that the Say Numbers will speak the "cc" how can i do that

thanks

[SupportTeam]

i need that the Say Numbers will speak the "cc" how can i do that

You need to return the value of CC back to VoiceGuide as a Result Variable and then specify that Result Variable in the Say Number module.

 

Easiest way is to use the RvSet COM function.

 

Add this line to you VBScript after the cc is set:

 

vg.RvSet $RV_LINEID, "TheMagicNumber", cc

 

you can then use this RV:

 

$RV[TheMagicNumber]

 

In the Say Number module.

[Guest omar_f]

thank you for your reply but when i do that the after finishing the vbs it hungup the call

i will send and attach. file

New_Folder.rar

[SupportTeam]

A trace capturing the call would be good here, but I think I see what the problem is - your VBScript is not returning any result back to VoiceGuide and you only have the Success path leaving from the VBScript module.

 

If you do not return any result then VG looks fro a Fail path.

 

Either return a result back to VG (use the Run_ResultReturn COM command) or specify a Fail path going to the Say numbers module...

 

Read: http://www.voiceguide.com/vghelp/html/modVbs.htm

 

You may also use brackets in the function call, changing:

 

vg.RvSet $RV_LINEID, "TheMagicNumber", cc

 

to:

 

vg.RvSet($RV_LINEID, "TheMagicNumber", cc)