ID=REPLACE(ID,vbcrlf,"")
			sqlpath= "Select UrlName FROM ParkInfo WHERE OrgID = " & Session("OrgID")
			set RecOrgInfo=conn.execute(sqlpath)
			'response.write(sqlpath)
			'response.end
			If Not RecOrgInfo.EOF Then
				strUrlName = RecOrgInfo("UrlName")
			End If
			RecOrgInfo.Close
			Set RecOrgInfo = Nothing
			'response.write(strUrlName)
			'response.end
			Set fso = Server.CreateObject("Scripting.FileSystemObject")
			'Dim orgfolder
			'orgfolder = "c:\inetpub\sportsmanager\Documents\" & strUrlName
			'If fso.FolderExists(orgfolder) = false Then
			'	fso.CreateFolder(orgfolder)
			'End if
			strOrgDocPath = "\Documents\" & strUrlName & "\"
			

			Folder = "C:\Inetpub\sportsmanager\Documents\"&strUrlName&"\"
			
			TN_Image= Upload.UniqueName(Folder, TN_Image)
	
			If right(TN_Image,3)="bin" Then 
				TN_Image=""
			'	response.write("<BR>1<BR>")
			ELSE
			'	response.write("<BR>2<BR>")
			end if

			If TN_Image<>"" Then 
				Upload("TN_Image").SaveAs Folder & TN_Image
			'	response.write("<BR>"& TN_Image &"<BR>")
			ELSE
			'	response.write("<BR>TN_Image<BR>")
			end if