<%
' Copyright (C) 1998-2005 CyberStrong Internet Services, Inc. All Rights Reserved
'
' This file has been seeded with unique information at point of sale and
' is traceable to its purchaser.
'
' Your license agreement forbids the removal of this notice.
%>

<%

' UserExit - Process user calls from shopping cart.
'            Returns TRUE if the exit was handled, FALSE otherwise.

Public Function UserExit(ByVal ExitID, ByVal Conn, ByVal UserVal1, ByVal UserVal2, ByVal UserVal3, ByRef ReturnValue)
	
	cstRegNum       = "457720"
	cstBuildNum     = "004752"
	cstDatabaseName = "L5XL7L1D.mdb"
	
	Select Case ExitID
		
		Case usrGetDBPath
			' Returns path to MSAccess database. Uncomment and/or modify one:
			
			   ReturnValue = RootPath & "database/" & cstDatabaseName ' Simple Path
			 ' ReturnValue = "/data/" & cstDatabaseName               ' Relative to Web Root Folder
			 ' ReturnValue = "d:/inetpub/myweb/" & cstDatabaseName    ' Full Path
			 ' ReturnValue = "DSN=eShop"                              ' System DSN
			
			cstServerType = "MSAccess"
			UserExit      = True
			
		Case usrGetConnectString
			ReturnValue   = "Driver={SQL Server};Server=ServerName;Database=DataBaseName;UID=UserID;PWD=Password"
			cstServerType = "SQL"
			UserExit      = False
			
		Case usrGetAdminFolderName
			ReturnValue = "admin"
			UserExit    = True
			
		Case Else
			UserExit = False
	End Select

End Function

%>