View Single Post
  #13 (permalink)  
Old 10-09-2006, 01:09 PM
RickoT RickoT is offline
Registered User
 
Join Date: Oct 2006
Posts: 0
The code below is what creates all of my references... after that establishes the server criteria as well as creates the connection to the server itself

PHP Code:

Option Explicit
Public cvsApp 
As New cvsApplication
Public cvsConnAgent 
As New cvsConnection
Public cvsConnSkill 
As New cvsConnection
Public acsLog 
As Object
Public RepSkill 
As cvsReport
Public RepAgent 
As cvsReport
Public RepInfoSkill
Public RepInfoAgent
Public cvsCatalogSkill 
As New cvsCatalog
Public cvsCatalogagent 
As New cvsCatalog
Public cvsSrvSkill 
As cvsServer
Public cvsSrvAgent 
As cvsServer

Private Sub Form_Load
()
    
cvsApp.CreateServer "****""****""""157.209.119.34"False"ENU"cvsSrvAgentcvsConnAgent
    cvsApp
.CreateServer "****""****""""157.209.119.34"False"ENU"cvsSrvSkillcvsConnSkill
End Sub

Public Sub DoConnection
()
   
    
cvsConnAgent.Login "****""****""157.209.119.34""ENU"
    
cvsConnSkill.Login "****""****""157.209.119.34""ENU"
    
    
If BuildSkillReport True Then frmMain.chkSkillReportDone.Value Else frmMain.chkSkillReportDone 0
    
If BuildAgentReport True Then frmMain.chkAgentReportDone.Value Else frmMain.chkAgentReportDone 0
    
End Sub 
Reply With Quote