Here is a code in VB that I like to translate to VBscript:
Private Sub Start_Click()
Dim router As New CoPeripheralRouterLib.PeripheralRouter
Dim stationID As Variant
stationID = ""
router.Init (stationID)
returnStatus = router.Run("Web Contact Channel", "CustomerEvent",
stationID)
MsgBox "Run status = " + Str$(returnStatus)
Dim varValue As Variant
varValue =
router.server.GetVariableValue("Customer.FirstName")
MsgBox "Customer.FirstName = " + varValue
router.Disconnect
Set router = Nothing
End Sub
Thanks for your help,
---AL
------------------------ Yahoo! Groups Sponsor --------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
