'Option explicit
' <%
' **********************************************************************
' SCRIPT NAME:		    Laserfiche Connection
' PROGRAMMER:	            Gary Schreader
' **********************************************************************

Dim app as LFApplication
Dim serv as LFServer
Dim db as LFDatabase
Dim conn as LFConnection



' Creates a Laserfiche Server application object.
set app = CreateObject("LFSO80.Application")


' Retrieves the server.
set serv = app.GetServerByName("SCCSRV18")


' Gets the repository from the server.
set db = serv.GetDatabaseByName("SCC-Circuit-Clerk")


' Creates a Laserfiche Server connection object.
set conn = CreateObject("LFSO80.Connection")


' Sets the user name and password.
conn.UserName = "ICJ"
conn.Password = "magic"


' Connects to repository.
conn.Create db