Terry,
1) Do you actually have a line in your script that calls the "visit" function?
2) You should use parentheses around the parameters on the COM object method call:
m_visit.configure(g_sitename,g_domainname, _
"DRIVER=SQL Server;DATABASE=dbname;UID=Userid;PWD=password;SERVER=localhost", _
g_appdir)
>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")
> m_visit.configure g_sitename,g_domainname,"DRIVER=SQL Server;DATABASE=dbname;UID=Userid;PWD=password;SERVER=localhost",g_appdir
>END IF
>
>END Function