Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VBScript Passing Parameters to VFP COM object
Message
From
26/08/2000 15:59:02
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
VBScript Passing Parameters to VFP COM object
Miscellaneous
Thread ID:
00409552
Message ID:
00409552
Views:
63
OK I still don't get it. I posted a thread recently about having troubles with a VFP COM object that is passing and ADO RS back to ASP.
The VFP COM object worked fine when called from VB6 and fine when called from VFP but failed when called from IIS.

Well I finally got it to work. I went back into the VFP COM Object and hard coded values that the object was setup to receive as parameters. Then called the object from ASP and it worked returning the RS that I wanted. Here is my VBScript line which is supposed to pass it's values to VFP. Why does'nt it work?


< %
const g_sitename = "Sitename"
const g_domainname = "MailDomain"
const g_appdir = "ComponentDir"

const Select_Departments = 0

const g_bodytag = _
"bgcolor=#ffffff leftmargin=0 topmargin=0 marginleft=0 margintop=0"

DIM m_visit

Function visit
DIM strMessage
IF IsEmpty(m_visit) Then
Set m_visit = Server.CreateObject("govt2bus.visit")
g_sitename,g_domainname,"DRIVER=SQL Server;DATABASE=Auctioneer;UID=G2BWeb;PWD=savemoney;SERVER=localhost",g_appdir
Set strMessage = m_visit.configure("G2B Commerce", "G2BCommerce.COM", "Driver=SQL Server;INITIAL CATALOG=Auctioneer;UID=G2BWeb;PWD=savemoney; SERVER=Comserver", "e:\auctioneer\bin")
END IF

' Return the Visit object back
SET visit = m_visit

End Function
Terry Rooks
Software Systems Architect
Microsoft Certified Solution Developer.Net

If at first you don't succeed, then skydiving definitely isn't for you.
Reply
Map
View

Click here to load this message in the networking platform