<% Server.ScriptTimeout = 2500 Set Upload = Server.CreateObject("Persits.Upload") Set jpeg = Server.CreateObject("Persits.Jpeg") Upload.CodePage = 65001 Upload.OverwriteFiles = False Upload.ProgressID = Request.QueryString("PID") Upload.SetMaxSize 4194300, False On Error Resume Next Path = "\\iis6118\domains\f\forcesnoticeboards.com\user\htdocs\images\forsale" Number = Upload.Save(Path) ErrorNum = Err.Number Descr = Err.Description On Error Goto 0 %> <% If ErrorNum <> 0 Then %>

The following error occured while uploading:

"<% = Descr %>"

Please try again. <% Else Set File1 = Upload.Files("FILE1") Set File2 = Upload.Files("FILE2") Set File3 = Upload.Files("FILE3") If Not File1 Is Nothing Then If File1.ImageType <> "UNKNOWN" Then jpeg.Open( File1.Path ) jpeg.PreserveAspectRatio = True if jpeg.OriginalWidth > 300 then jpeg.Width = 300 else jpeg.Width = jpeg.OriginalWidth end if SavePath1 = Path & "\BIG_" & File1.ExtractFileName If UCase(Right(SavePath1, 3)) <> "JPG" Then SavePath1 = SavePath1 & ".jpg" End If jpeg.Save SavePath1 Set ThumbFile12 = Upload.OpenFile(SavePath1) jpeg.Width = 80 SavePath1 = Path & "\SMALL_" & File1.ExtractFileName If UCase(Right(SavePath1, 3)) <> "JPG" Then SavePath1 = SavePath1 & ".jpg" End If jpeg.Save SavePath1 Set ThumbFile11 = Upload.OpenFile(SavePath1) Else Response.Write "This is not a valid image." End If end if If Not File2 Is Nothing Then If File2.ImageType <> "UNKNOWN" Then jpeg.Open( File2.Path ) jpeg.PreserveAspectRatio = True if jpeg.OriginalWidth > 300 then jpeg.Width = 300 else jpeg.Width = jpeg.OriginalWidth end if SavePath2 = Path & "\BIG_" & File2.ExtractFileName If UCase(Right(SavePath2, 3)) <> "JPG" Then SavePath2 = SavePath2 & ".jpg" End If jpeg.Save SavePath2 Set ThumbFile14 = Upload.OpenFile(SavePath2) jpeg.Width = 80 SavePath2 = Path & "\SMALL_" & File2.ExtractFileName If UCase(Right(SavePath2, 3)) <> "JPG" Then SavePath2 = SavePath2 & ".jpg" End If jpeg.Save SavePath2 Set ThumbFile13 = Upload.OpenFile(SavePath2) Else Response.Write "This is not a valid image." End If end if If Not File3 Is Nothing Then If File3.ImageType <> "UNKNOWN" Then jpeg.Open( File3.Path ) jpeg.PreserveAspectRatio = True if jpeg.OriginalWidth > 300 then jpeg.Width = 300 else jpeg.Width = jpeg.OriginalWidth end if SavePath3 = Path & "\BIG_" & File3.ExtractFileName If UCase(Right(SavePath3, 3)) <> "JPG" Then SavePath3 = SavePath3 & ".jpg" End If jpeg.Save SavePath3 Set ThumbFile16 = Upload.OpenFile(SavePath3) jpeg.Width = 80 SavePath3 = Path & "\SMALL_" & File3.ExtractFileName If UCase(Right(SavePath3, 3)) <> "JPG" Then SavePath3 = SavePath3 & ".jpg" End If jpeg.Save SavePath3 Set ThumbFile15 = Upload.OpenFile(SavePath3) Else Response.Write "This is not a valid image." End If end if %> <% dayB = CStr(Day(now())) monthB = CStr(Month(now())) yearB = CStr(Year(now())) today = dayB+"/"+monthB+"/"+yearB Dim MyConn Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "driver={SQL Server};server=NEW-IPADDRESS;UID=NEW-USERNAME;PASSWORD=NEW-PASSWORD;DATABASE=NEW-DATABASE" Dim InsertTempUpload InsertTempUpload = "INSERT INTO Forces_BallGowns (AccountID, GSize,Style,Colour,Material,Description, YrofPurchase,Location,Image1,Thumb1,Image2, Thumb2,Image3, Thumb3,Email, TelNo,Deleted,EntryDate) " InsertTempUpload = InsertTempUpload & " VALUES ('"&session("AccountID")&"', '"&SQLEncode(Upload.form("gprice"))&"', '"&SQLEncode(Upload.form("gstyle"))&"', '"&SQLEncode(Upload.form("gcolour"))&"', '"&SQLEncode(Upload.form("material"))&"'," InsertTempUpload = InsertTempUpload & " '"&SQLEncode(Upload.form("description"))&"','"&SQLEncode(Upload.form("yrofpurchase"))&"','"&SQLEncode(Upload.form("location"))&"'," If Not Upload.Files("FILE1") Is Nothing Then InsertTempUpload = InsertTempUpload & " '"&ThumbFile11.FileName&"', '"&ThumbFile12.FileName&"', " else InsertTempUpload = InsertTempUpload & " '', '', " end if If Not Upload.Files("FILE2") Is Nothing Then InsertTempUpload = InsertTempUpload & " '"&ThumbFile13.FileName&"', '"&ThumbFile14.FileName&"', " else InsertTempUpload = InsertTempUpload & " '', '', " end if If Not Upload.Files("FILE3") Is Nothing Then InsertTempUpload = InsertTempUpload & " '"&ThumbFile15.FileName&"', '"&ThumbFile16.FileName&"', " else InsertTempUpload = InsertTempUpload & " '', '', " end if InsertTempUpload = InsertTempUpload & " '"&SQLEncode(Upload.form("email"))&"', '"&SQLEncode(Upload.form("telno"))&"', 'no',Convert(datetime,'"&date()&"',103) ) " MyConn.execute(InsertTempUpload) Response.redirect "ballgown-advert.asp?upload=done" %> <% End If %>