<%
'To switch between different upload components:
'	* Comment the line with the component currently in use.
'	* Uncomment the line with the required component.


Dim strUploadComponent

'Persists AspUpload
'http://www.aspupload.com/
'strUploadComponent = "PersistsAspUpload"

'aspSmartUpload
'http://www.aspsmart.com/aspSmartUpload/
strUploadComponent = "AspSmartUpload"

'Dundas Upload
'http://aspalliance.com/dundas/default.aspx
'strUploadComponent = "DundasUpload"

'ABCUpload
'http://www.websupergoo.com/abcupload-1.htm
'strUploadComponent = "ABCUpload"


'Auxiliary functions

Function GetUploadUrl
	GetUploadUrl = strUploadComponent + ".asp"
End Function

Function GetGalleryUrl
	GetGalleryUrl = "gallery.asp?returnUrl=" & Server.URLEncode("default.asp?uploadUrl=" & GetUploadUrl())
End Function
%>
