Image Uploader in tag

iu.addParam("AdditionalFormName", "frm");

<%@ Page Language="VB" MasterPageFile="~/MyMasterPage.master" AutoEventWireup="false" CodeFile="UploadImages.aspx.vb" Inherits="UploadImages" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CPHContent" Runat="Server">

<div class="UploadPhotosForm">
<br />
    <asp:Panel ID="pnlUploadImages" Visible="false" runat="server">

 
<div class="dialog" style="width:100%;">
 <div class="hdr"><div class="dialogheader">
    <asp:Literal ID="Literal2" runat="server" Text="<%$Resources:gLOSSARY,sELECT %>"></asp:Literal>
 </div><div class="cs"></div></div>
 
 <div class="bdy">
 
  <div class="cs">
   <div class="sc">
    <!-- content area -->
    <b>&nbsp;<asp:Literal Text="<%$Resources:Glossary,BoldFieldsMandatory %>" ID="Literal1" runat="server"></asp:Literal></b>    
    <hr class="dialogruler" />
    
        <div class="FormSection">
            <br />
            <div class="FormFieldSmallName">
                Select an album to upload your photos to:
            </div>
            <div class="FormFieldSmallValue">
<form id="frmextra" name="frmextra">
    Author: <input id="Author" type="text" size="50" value="" name="Author" />
</form>

                
            </div> 
            <br />        
            <div class="FormFieldBigName">
                Total photos in all your photoalbums: <asp:Label ID="lblTotalPhotos" Font-Bold="true" runat="server" Text=""></asp:Label><br />
                Photoslots remaining: <asp:Label ID="lblPhotoSlotsRemaining" Font-Bold="true" runat="server" Text=""></asp:Label><br />
                <br />    
                VIP members have a maximum of <asp:Label ID="lblMaxVIPPhotos" Font-Bold="true" runat="server" Text=""></asp:Label> photos <br /><br />
                
                Allowed extensions: *.jpg;*.jpeg;*.bmp;*.gif;*.jpe<br /><br />                
            </div>
            <br />
            <div class="FormFieldBigName">
<script type="text/javascript">
// Aurigma Image Uploader
//<![CDATA[
//Create JavaScript object that will embed Image Uploader to the page.
var iu = new ImageUploaderWriter("ImageUploader1", 640, 400);



//For ActiveX control full path to CAB file (including file name) should be specified.
iu.activeXControlCodeBase = "../ImageUploader4.cab";
iu.activeXControlVersion = "4,1,1,0";

//For Java applet only path to directory with JAR files should be specified (without file name).
iu.javaAppletCodeBase = "../";
iu.javaAppletCached = true;
iu.javaAppletVersion = "2.1.1.0";

iu.showNonemptyResponse = "off";

//Configure appearance.
iu.addParam("PaneLayout", "TwoPanes");
iu.addParam("ShowDebugWindow", "true");
iu.addParam("AllowRotate", "false");
iu.addParam("BackgroundColor", "#ccccff");

iu.addParam("UploadSourceFile","false")
iu.addParam("FileMask","*.jpg;*.jpeg;*.bmp;*.gif;*.jpe")


iu.addParam("AdditionalFormName", "frmextra");

//Configure settings. first one is the resized original picture
iu.addParam("UploadThumbnail1FitMode", "Fit");
iu.addParam("UploadThumbnail1Width", "640");
iu.addParam("UploadThumbnail1Height", "480");
iu.addParam("UploadThumbnail1JpegQuality", "60");

//large thumbnail
iu.addParam("UploadThumbnail2FitMode", "Fit");
iu.addParam("UploadThumbnail2Width", "120");
iu.addParam("UploadThumbnail2Height", "120");
iu.addParam("UploadThumbnail2JpegQuality", "65");

//small thumbnail
iu.addParam("UploadThumbnail3FitMode", "Fit");
iu.addParam("UploadThumbnail3Width", "80");
iu.addParam("UploadThumbnail3Height", "80");
iu.addParam("UploadThumbnail3JpegQuality", "55");



//settings for Automatic Upload Recovery 
iu.addParam("FilesPerOnePackageCount", "1");
iu.addParam("AutoRecoverMaxTriesCount", "3");
iu.addParam("AutoRecoverTimeOut", "5000");

//Configure URL files are uploaded to.
iu.addParam("Action", "upload.aspx")

//Configure URL where to redirect after upload.
//iu.addParam("RedirectUrl", "gallery.aspx")

//Tell Image Uploader writer object to generate all necessary HTML code to embed 
//Image Uploader to the page.
iu.writeHtml();
//]]>
	</script>                
	<br /><br />
            </div>
            
        </div>        
    <hr class="dialogruler" />
    
    <!-- content area -->
   </div>
  </div>
 </div>
 <div class="ftr"><div class="cs"></div></div>
</div>

    </asp:Panel>
    
</div>                         
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="CPHTopMenu" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="CPHMyProfile" Runat="Server">
</asp:Content>

Imports System.IO
Imports System.Xml
Imports GlobalFunctions

Partial Class upload
    Inherits System.Web.UI.Page
    'This variable specifies relative path to the folder, where the gallery with uploaded files is located.
    'Do not forget about the slash in the end of the folder name.

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim UserCode As Integer = Profile.UserCode
        Dim galleryPath As String = "Data/Users/Photos/" + determineDirectoryInterval(UserCode) + "/"
        'how many photos does the user currently have on the server
        Dim TotalCurrentPhotos As Integer = MediaDAL.GetNumberOfUserPhotos(UserCode)
        'is this user a vip user?
        Dim isVip As Boolean = Profile.IsVIP
        'how many photos may he upload in total?
        Dim maxPhotos As Integer
        If isVip Then
            maxPhotos = CInt(ConfigurationManager.AppSettings("MaxPhotosVip"))
        Else
            maxPhotos = CInt(ConfigurationManager.AppSettings("MaxPhotosNONVip"))
        End If

        'Get total number of uploaded files (all files are uploaded in a single package).
        Dim fileCount As Integer = Int32.Parse(Request.Form("FileCount"))

        'Iterate through uploaded data and save the original file, thumbnail, and description.
        For i As Integer = 1 To fileCount

            'only save file if user has not exceeded his quota
            If TotalCurrentPhotos < maxPhotos Then
                'Get source file and save it to disk.
                Dim sourceFile As HttpPostedFile = Request.Files("Thumbnail1_" & i)

                'this is the name of the file how it will be named on the server
                 Dim serverFilename As String = GetSafeFileName(UserCode)

                Dim stmp As String = Request.Form("Author")
                stmp = Request.Form("frmextra")

                sourceFile.SaveAs(Server.MapPath(galleryPath & serverFilename & ".jpg"))

                Dim PhotoTitle As String = Request.Form("Description_" & i)

                'Get first thumbnail (the single thumbnail in this code sample) and save it to disk.
                'thumbnail is the photo that you see when you visit a user profile
                Dim thumbnail2 As HttpPostedFile = Request.Files("Thumbnail2_" & i)

                'this is the name of the thumbnail of the file how it will be named on the server
                'replace the value 0 to 1 to indicate that this is a thumbnail
                Dim iPos As Integer = serverFilename.Length - 1
                serverFilename = serverFilename.Remove(iPos, 1)
                Dim serverThumbFilename As String
                serverThumbFilename = serverFilename.Insert(iPos, "2")
                ReportError("Thumb2 name:", serverThumbFilename)
                thumbnail2.SaveAs(Server.MapPath(galleryPath & serverThumbFilename & ".jpg"))


                Dim thumbnail3 As HttpPostedFile = Request.Files("Thumbnail3_" & i)                
                serverThumbFilename = serverFilename.Insert(iPos, "3")
                ReportError("Thumb3 name:", serverThumbFilename)
                thumbnail3.SaveAs(Server.MapPath(galleryPath & serverThumbFilename & ".jpg"))

                'get the mediaID assigned to the filename
                Dim mediasecret As String = serverThumbFilename.Substring(serverThumbFilename.IndexOf("_") + 1, 6)

                'SAVE ALL THE STUFF TO THE DATABASE
                Dim result As ResultType = MediaDAL.SavePhoto(UserCode, Title, mediasecret)

                If result = ResultType.UnknownError Then
                    'Server.Transfer("Notify.aspx?mID=0")
                End If


                TotalCurrentPhotos += 1
            End If
        Next i
        'descriptions.Save(Server.MapPath(galleryPath & "Descriptions.xml"))
    End Sub

    'This method verifies whether file with such name already exists 
    'and if so, construct safe filename name (to avoid collision).	
    'format of returned value= usercode_mediasecret1
    Private Function GetSafeFileName(ByVal Usercode As Integer) As String
        Dim galleryPath As String = "Data/Users/Photos/" + determineDirectoryInterval(Profile.UserCode) + "/"
        Dim gid As Guid = Guid.NewGuid
        Dim sGuid As String = gid.ToString.Substring(0, 6)
        Dim newFileName As String = Usercode.ToString + "_" + sGuid + "1"
        While (File.Exists(Server.MapPath(galleryPath & newFileName)))
            gid = New Guid
            sGuid = gid.ToString.Substring(0, 6)
            newFileName = Usercode.ToString + "_" + sGuid + "1"
        End While
        Return newFileName
    End Function


End Class