Hi,
When I add SIP once to an upload page, the page load time increases dramatically. When I add a second one, it increases even more. The page with only the upload behavior shows up on the screen rightaway.
The Bin and Scriptlibrary folders have been uploaded to the live site. The upload page is in a preotected environment (Restrict Access To Page)
I would really appreciate any advice!

Regards, Patrick

Hello Patrick,
Please install the Firebug extension in your firefox browser. Select the NET tab in Firebug and reload yor page. In Firebug you will see each request's loading time and size. See which one is loading slowly and please tell us after that in order to help you.

Hi Teodor,
It is the ASP page itself that takes between 25 and 30 seconds to load

All the rest is just ms. Do you want more details on this page? How can I provide with more information?

Patrick

Could you please provide us with a link to your page?

Hi,
The page can be viewed at:
www.laconieuwbouw.nl/accommodaties_fotos.asp?ID=1

Please Patrick,
Could you paste here the source code of your page?

As requested, the code for the page!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1043 'Dutch regional setttings %>
<!--#include file="Connections/LacoNieuwbouwConn.asp" -->
<!--#include file="ScriptLibrary/incSIP2Class.asp" -->
<!--#include file="ScriptLibrary/incFSClass.asp" -->
<!--#include file="ScriptLibrary/incPU3Class.asp" -->
<!--#include file="ScriptLibrary/incPU3Utils.asp" -->
<
%'*** Pure ASP File Upload 3.0.13
' Process form foto_toevoegen
Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight
Set pau = new PureUpload
pau.ScriptLibrary = "../ScriptLibrary"
pau.ConflictHandling = "uniq"
pau.StoreType = "file"
pau.ProgressTemplate = "classic.htm"
pau.ProgressWidth = 300
pau.ProgressHeight = 100
pau.UploadFolder = """../media/fotos/"" &UploadFormRequest(""Accommodatie"")"
Dim uploadFoto_Bestand
set uploadFoto_Bestand = pau.AddField("Foto_Bestand")
uploadFoto_Bestand.UploadFolder = """../media/fotos/"" &UploadFormRequest(""Accommodatie"")"
uploadFoto_Bestand.MinWidth = 990
uploadFoto_Bestand.MinHeight = 990
pau.ProcessUpload
pau.SaveAll
%>
<
%' Smart Image Processor 2.5.2
Dim sip1
Set sip1 = New ImageProcessor
sip1.ScriptFolder = "../ScriptLibrary"
sip1.Component = "Auto"
sip1.Source = "upload"
sip1.AutoOrient = false
sip1.KeepMetaData = false
sip1.Matte = "#FFFFFF"
sip1.UploadFields = "Foto_Bestand"
sip1.GetFiles
While sip1.HasFiles
sip1.LoadFromSource
sip1.Resize 985, 985, true
sip1.Overwrite = true
sip1.SaveJPEG 80
sip1.MoveNext
Wend
Set sip1 = Nothing
%>
<
%' Smart Image Processor 2.5.2
Dim sip2
Set sip2 = New ImageProcessor
sip2.ScriptFolder = "../ScriptLibrary"
sip2.Component = "Auto"
sip2.Source = "upload"
sip2.AutoOrient = false
sip2.KeepMetaData = false
sip2.Matte = "#FFFFFF"
sip2.UploadFields = "Foto_Bestand"
sip2.GetFiles
While sip2.HasFiles
sip2.LoadFromSource
sip2.Resize 315, 315, true
sip2.Overwrite = false
sip2.Mask = "##path####name##_small.jpg"
sip2.SaveJPEG 80
sip2.MoveNext
Wend
Set sip2 = Nothing
%>
<
%Dim rsAccommodaties__MMColParam
rsAccommodaties__MMColParam = "1"
If (Request.QueryString("AccommodatieID") <> "") Then 
  rsAccommodaties__MMColParam = Request.QueryString("AccommodatieID")
End If
%>
<
%Dim rsAccommodaties
Dim rsAccommodaties_cmd
Dim rsAccommodaties_numRows

Set rsAccommodaties_cmd = Server.CreateObject ("ADODB.Command")
rsAccommodaties_cmd.ActiveConnection = MM_LacoNieuwbouwConn_STRING
rsAccommodaties_cmd.CommandText = "SELECT * FROM Accommodaties WHERE AccommodatieID = ?" 
rsAccommodaties_cmd.Prepared = true
rsAccommodaties_cmd.Parameters.Append rsAccommodaties_cmd.CreateParameter("param1", 5, 1, -1, rsAccommodaties__MMColParam) ' adDouble

Set rsAccommodaties = rsAccommodaties_cmd.Execute
rsAccommodaties_numRows = 0
%>
<
%Dim VarAccommodatie
VarAccommodatie=(rsAccommodaties.Fields.Item("Accommodatie_Naam").Value)
%>
<
%' *** Folder List 1.0.7
Dim Fotos
Set Fotos = New FolderList
With Fotos
  .Path = "media/fotos/"&(rsAccommodaties.Fields.Item("Accommodatie_Naam").Value)
  .allowedExtensions = "GIF,JPG"
  .includeFolders = false
  .ShowThumbnailsOnly = true
  .ThumbnailsSuffix = "_small"
  .officeAttributes = false
  .ReadFolder()
  .SortOn "DateLastModified", FG_SORT_DESCENDING  
End With
%>
<
%' *** Folder List Table Vars 1.0.7
Fotos.pageRecs = 0
Fotos.pageCols = 3
%>
<
%' WE ICT Alternate Row Color
Dim WEColor1, WEColor2, WEColor
WEColor1 = "#ebd38a"
WEColor2 = ""
WEColor = WEColor1
' WE ICT Alternate Row Color
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/beheer.dwt.asp" codeOutsideHTMLIsLocked="false" -->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="zwemmen, fitness, health, beauty, sport, fietsen, fit, laco, sitekit, party, events, kegelen, schaatsen, squash, squashen">
<meta name="description" content="Bij Laco kun je sportief genieten en heerlijk ontspannen. In onze sportcentra kun je kiezen uit tal van sportieve en ontspannende activiteiten en faciliteiten. Of je nu alleen wilt sporten of in teamverband. Of je 0 bent of 90. Bij Laco kan iedereen terecht.">
<meta name="author" content="Laco Recreatie">
<meta name="Copyright" content="©2009">
<meta name="robots" content="index,follow">
<!-- InstanceBeginEditable name="doctitle" -->
<title>Laco Nieuwbouw - Foto's - <%=(rsAccommodaties.Fields.Item("Accommodatie_Naam").Value)%></title>
<!-- InstanceEndEditable -->
<link href="css/laconieuwbouw.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="js/prototype.js"></script>
<script type="text/javascript" src="js/scriptaculous.js?load=effects,builder"></script>
<script type="text/javascript" src="js/lightbox.js"></script>
<script type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<!-- InstanceBeginEditable name="head" -->
<script></script>
<script type="text/javascript"><%=pau.generateScriptCode()%></script>
<script src="ScriptLibrary/incPU3.js" type="text/javascript"></script><!-- InstanceEndEditable -->
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top"><table width="985" height="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="78" align="left"><img src="images/header1.jpg" width="700" height="78" /></td>
      </tr>
      <tr valign="bottom">
        <td height="31" align="left"><table width="210" height="30" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="30"><a href="index.asp"><img src="images/home.gif" alt="Home" name="Home" width="30" height="30" border="0" id="Home" /></a><a href="#"></a></td>
            <td width="900" class="menu"><script type="text/javascript" src="beheer/menu/menu_scr.js">
</script>

<table  id="m1mainSXMenu1" cellspacing="0" cellpadding="0" style="background-color:#0033CC"><tr><td><table id="m1mainSXMenu2" cellspacing="1" cellpadding="6" style="width:100%">
<tr style="text-align:left">
<td onMouseOver="chgBg(m1,'m1tlm0',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm0',0,1)" id="m1tlm0" onMouseDown="f58('m1tlm0a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm0a" class="m1CL0" href="index.asp" >Home</a></td>
<td onMouseOver="chgBg(m1,'m1tlm1',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm1',0,1)" id="m1tlm1" onMouseDown="f58('m1tlm1a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm1a" class="m1CL0" href="beheer/accommodaties.asp" >Accommodaties</a></td>
<td onMouseOver="chgBg(m1,'m1tlm2',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm2',0,1)" id="m1tlm2" onMouseDown="f58('m1tlm2a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm2a" class="m1CL0" href="beheer/paginas.asp" >Pagina's</a></td>
<td onMouseOver="chgBg(m1,'m1tlm3',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm3',0,1)" id="m1tlm3" onMouseDown="f58('m1tlm3a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm3a" class="m1CL0" href="beheer/fotos.asp" >Foto's</a></td>
<td onMouseOver="chgBg(m1,'m1tlm4',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm4',0,1)" id="m1tlm4" onMouseDown="f58('m1tlm4a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm4a" class="m1CL0" href="beheer/films.asp" >Films</a></td>
<td onMouseOver="chgBg(m1,'m1tlm5',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm5',0,1)" id="m1tlm5" onMouseDown="f58('m1tlm5a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm5a" class="m1CL0" href="beheer/bouwtekeningen.asp" >Bouwtekeningen</a></td>
<td onMouseOver="chgBg(m1,'m1tlm6',3);exM(m1,'none','',event)" onMouseOut="chgBg(m1,'m1tlm6',0,1)" id="m1tlm6" onMouseDown="f58('m1tlm6a')" style="background-color:#0033CC;" class="m1mit" ><a id="m1tlm6a" class="m1CL0" href="beheer/impressies.asp" >Impressies</a></td>

</tr>
</table></td></tr></table>



</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="5" background="images/bar.gif"><img src="images/spacer.gif" width="5" height="5" /></td>
      </tr>
      <tr>
        <td height="10">&nbsp;</td>
      </tr>
      <tr>
        <td valign="top"><!-- InstanceBeginEditable name="Inhoud" -->
          <table width="985" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td class="kop">Foto's <%=(rsAccommodaties.Fields.Item("Accommodatie_Naam").Value)%></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td><table width="985" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td><form ACTION="<%=DMX_uploadAction%>" METHOD="post" enctype="multipart/form-data" name="foto_toevoegen" id="foto_toevoegen" onSubmit="<%=pau.submitCode()%>;return document.MM_returnValue">
                    <table width="500" border="0" cellpadding="0" cellspacing="0" class="tekst">

                      <tr>
                        <td width="75" valign="middle">Foto: 
                          <input name="Accommodatie" type="hidden" id="Accommodatie" value="<%=(rsAccommodaties.Fields.Item("Accommodatie_Naam").Value)%>"></td>
                        <td width="300">
                            <input name="Foto_Bestand" type="file" class="formulier280" id="Foto_Bestand" onChange="<%=uploadFoto_Bestand.validateCode()%>;return document.MM_returnValue"></td>
                        <td width="300"><input name="Submit" type="submit" class="button150" value="Toevoegen"></td>
                      </tr>
                    </table>
                    <input type="hidden" name="MM_insert" value="foto_toevoegen">
                  </form></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td><table>
                    <tr>
                      <
%' *** Folder List Table Start
while Fotos.CanRepeat()
%>
                      <td><div align="center"><%= Fotos.Files("Thumbnail_image") %><br>
                        <br>
                      </div></td>
                      <% if Fotos.IsLastColumn() then %>
                    </tr>
                    <tr>
                      <% 
  end if 
  Fotos.MoveNext
wend
Fotos.EndRepeater
' *** Folder List Table End
%>
                    </tr>
                  </table>                  </td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table>
        <!-- InstanceEndEditable --></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="analytics.asp"-->
</body>
<!-- InstanceEnd --></html>
<
%set Fotos = Nothing
' *** End Folder List
%>
<
%rsAccommodaties.Close()
Set rsAccommodaties = Nothing
%>

Hello Patrick,

I did a check on your page with a packet sniffer... I got a lot of packets returned with bad cheksum error, which caused the delay in loading of the page. Please check out what will be the load time if you place only PAU, SIP and Folder view on an empty page. My is loaded pretty fast.

Regards,