Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP COM on ASP
Message
From
09/08/2001 09:32:22
 
 
To
08/08/2001 22:45:48
Victor Lapid
Phil. Long Distance Tel. Co.
Manila, Philippines
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00541653
Message ID:
00541736
Views:
42
>Hi to All,
>
> Any example or source code that can be used in creating VFP COM (insert,delete,update a VFP table) on ASP? I've seen one example in WestWIND, but I need more resources.
>
> TIA.

Vick,

Make sure you compile your VFP project as a single threaded COM server.

Here is an example from one of my ASP's:

LEvalFromDate = trim(LFromMonth) & '/01/' & trim(LFromYear)
LEvalToDate = trim(LToMonth) & '/01/' & trim(LToYear)

' Getting the path of DmReport.Dbc from the WebServer
LcDbcPath = Server.MapPath('/dmsreport/dmreport.dbc')
LcDbcPath = trim(lcDbcPath)

' Working with COM component
Set oServer1 = Server.CreateObject('ServiceAging.ServiceAgingClass')
Set oCursor1 = oServer1.ServiceAgingFunction(LcDbcPath,LPartnerName,LEvalFromDate,LEvalToDate)

IF oCursor1.Eof then
Response.write('
No records found which match your search criteria
')
lresults = False
Set oServer1 = nothing
Set oCursor1 = nothing
Response.End
End IF

Do While Not oCursor1.Eof
'
(HTML code here for displaying results)
'
oCursor1.MoveNext
Loop

Set oCursor1 = Nothing
Set oServer1 = Nothing
'

Good luck!

-JT
Jeff Trockman, MCP
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform