Create a COM server out of this and use that in your ASP page.
oVFPServer = createobject('myVFPServer.MyClass')
cPhoneticStr = oVFPServer.ParseName(Name, Type, Key2Return)
VFP Server
define class myclass as session olepublic
procedure ParseString
parameters m.NameIn, m.xType , m.Key2Return
DECLARE INTEGER matcher IN ISTDLL32 ;
STRING,STRING,STRING,STRING,;
STRING,STRING,STRING,STRING
m.namein = m.namein+space(256-len(m.namein))
m.nameout =space(256)
m.rulebase =space(250)
m.pheonetic=space(250)
m.keycount =space(2)
m.keystack =space(300)
m.rangetable=space(750)
m.xi = matcher( @Service , @Namein , @nameout , @rulebase , ;
@pheonetic, @keycount , @keystack , @rangetable )
return substr(keystack, 10*Key2Return-9 ,10)
endproc
enddefine
HTH.
>I have a web page using ASP that queries a data set. I have a DLL which creates a pheonetic representation of the incoming name. I need to send the variables to the routine and get the result back. In VFP, I do use this procedure:
>
>parameters m.NameIn, m.xType , m.Key2Return
>
>DECLARE INTEGER matcher IN ISTDLL32 ;
> STRING,STRING,STRING,STRING,;
> STRING,STRING,STRING,STRING
>
> m.namein = m.namein+space(256-len(m.namein))
> m.nameout =space(256)
> m.rulebase =space(250)
> m.pheonetic=space(250)
> m.keycount =space(2)
> m.keystack =space(300)
> m.rangetable=space(750)
>
>m.xi = matcher( @Service , @Namein , @nameout , @rulebase , ;
> @pheonetic, @keycount , @keystack , @rangetable )
>
>return substr(keystack, 10*Key2Return-9 ,10)
Larry Miller
MCSD
LWMiller3@verizon.netAccumulate learning by study, understand what you learn by questioning. -- Mingjiao