Visual Basic Example

Option Explicit

Implements ICP_INTERFACELib.CPDocumentRender2

Private Const SOURCE_NAME As String = "SimplePlugin.Render2"

'' API to access DB info
Private Declare Function GetDBInfo Lib "CompositeDBInfo.dll" _
                                                (ByVal wszIID As String, _
                                                 ByVal wszConnectionString As String, _
                                                 ByRef plgDatabaseType As Long) As Long

Private Function CPDocumentRender2_RenderPreview(ByVal IID As String, ByVal TemplateGroupID As Long, ByVal TemplateID As Long, _
                                                 ByVal DocumentID As Long, ByVal Identifier As String, ByVal LCID As Long, _
                                                 ByVal StatusID As Long) As String
    CPDocumentRender2_RenderPreview = CPDocumentRender2_RenderPublic(IID, TemplateGroupID, TemplateID, DocumentID, Identifier, LCID)
End Function

Private Function CPDocumentRender2_RenderPublic(ByVal IID As String, ByVal TemplateGroupID As Long, ByVal TemplateID As Long, _
                                                ByVal DocumentID As Long, ByVal Identifier As String, ByVal LCID As Long) As String
On Error GoTo Errhandler
    Dim objCtx As ObjectContext
    Dim lgResult As Long
    Dim objRequest As Request
 '' variables to store DB Info
    Dim mConnectString As String
    Dim mDBServer As Long

'' Fetch Database info (mConnectString is the ADO Connection string)
    mConnectString = Space$(100)
    lgResult = GetDBInfo(IID, mConnectString, mDBServer)

'' Grab Object Context
    Set objCtx = GetObjectContext()
  
 '' Grab ASP Request object
    Set objRequest = objCtx.Item("Request")
  
 '' Build string based on data from Request object and display connectionstring
    '' NB! The connectionstring contains username and passwords - do not use this plugin in a unsafe environment!
    CPDocumentRender2_RenderPublic = "URL Parameter test = " & objRequest("test") & "<br>" & "DB Connectionstring = " & mConnectString
  
Errhandler:
    Set objRequest = Nothing
    Set objCtx = Nothing
  
    If Err.Number > 0 Then
        LogError "CPDocumentRender_RenderPublic"
    End If

End Function

Private Sub LogError(strFunctionInError As String)
    Dim objLogger As Log
    Set objLogger = New Log
    objLogger.LogSimpleError Err.Description, SOURCE_NAME & "." & strFunctionInError, LOG_EVENTLOG_ERROR_TYPE
    Set objLogger = Nothing
End Sub