With a code on page has understood.
'm_visit.Configure'"g_sitename", "g_domainname"; "Driver={SQL Server};Server=localhost;Database=jocoffee;Uid=joc offeeWeb;Pwd=eermlate; Session"
Entered into one line.
 Now there was a problem with the notice on reception of the order.
Gives out the message on a mistake at attempt of compilation dll a file:The variable is not certain.
I result a code in object PipelineNotifyOwner

Option Explicit

' Indicate that this is a connector object...
Implements IConnector

' ID - return the ID of the connector...
Public Property Get IConnector_ID() As String
 IConnector_ID = GUID_PipelineNotifyOwner
End Property

' Name - return the name of the connector...
Public Property Get IConnector_Name() As String
 IConnector_Name = "PipelineNotifyOwner"
End Property

' Process - tell the connector to go ahead and start working...
Public Function IConnector_Process(ByVal Processor As OrderProcessor, _
        ByRef RunNextConnector As Boolean) As Boolean
  'On Error GoTo Problem

 ' first thing we have to do is notify Jo that there is a new order...
 Processor.SendEMail Me, PNO_NotifyOwner, _
   "Order Received - Part ID " & Processor.PartID, _
   "Owner", "owner@" & Processor.MailDomain, _
   "An order was received."

 ' second thing we have to do is notify the customer...
 Dim CustomerName As String
 Dim CustomerEMail As String
 Processor.GetCustomerContact CustomerName, CustomerEMail
 If CustomerName <> "" And CustomerEMail <> "" Then

 ' get the email address...
 Processor.SendEMail Me, PNO_NotifyCustomer, _
     "Your order has been received!", _
     CustomerName, CustomerEMail, _
     "Your order, reference " & Processor.PartID & " was received!"

 ' tell the processor to update the status of the part...
 Processor.SetPartStatus 1

 ' now update the status of the master order...
 Processor.SetOrderStatus 1

 ' tell the processor that we want to move onto stage 2...
 RunNextConnector = True

 ' indicate success...
 IConnector_Process = True

 Else
 Processor.AddAudit Me, PNO_NoCustomer, False
 End If

 ' jump over the error handler...
 GoTo Finish

Problem:

 ' flag the error...
 Processor.RecordError "Process", Me

Finish:

End Function
The mistake is allocated by red color.

Thanks