<% 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 = "UPDATE Forces_Items SET CatID = '"&SQLEncode(Upload.form("catid"))&"', " InsertTempUpload = InsertTempUpload & " Title = '"&SQLEncode(Upload.form("itemtitle"))&"'," InsertTempUpload = InsertTempUpload & " Description = '"&SQLEncode(Upload.form("description"))&"'," InsertTempUpload = InsertTempUpload & " Condition = '"&SQLEncode(Upload.form("condition"))&"'," InsertTempUpload = InsertTempUpload & " Price = '"&SQLEncode(Upload.form("price"))&"'," InsertTempUpload = InsertTempUpload & " Currency = '"&SQLEncode(Upload.form("currency"))&"'," InsertTempUpload = InsertTempUpload & " Location = '"&SQLEncode(Upload.form("location"))&"'," InsertTempUpload = InsertTempUpload & " PandP = '"&SQLEncode(Upload.form("pandp"))&"'," If Not Upload.Files("FILE1") Is Nothing Then InsertTempUpload = InsertTempUpload & " Image1 = '"&ThumbFile11.FileName&"'," InsertTempUpload = InsertTempUpload & " Thumb1 = '"&ThumbFile12.FileName&"'," end if If Not Upload.Files("FILE2") Is Nothing Then InsertTempUpload = InsertTempUpload & " Image2 = '"&ThumbFile13.FileName&"'," InsertTempUpload = InsertTempUpload & " Thumb2 = '"&ThumbFile14.FileName&"'," end if If Not Upload.Files("FILE3") Is Nothing Then InsertTempUpload = InsertTempUpload & " Image3 = '"&ThumbFile15.FileName&"'," InsertTempUpload = InsertTempUpload & " Thumb3 = '"&ThumbFile16.FileName&"'," end if InsertTempUpload = InsertTempUpload & " Email = '"&SQLEncode(Upload.form("email"))&"'," InsertTempUpload = InsertTempUpload & " TelNo = '"&SQLEncode(Upload.form("telno"))&"'," InsertTempUpload = InsertTempUpload & " ListingDuration = '"&SQLEncode(Upload.form("duration"))&"' " InsertTempUpload = InsertTempUpload & " WHERE ItemID = '"&upload.form("itemid")&"' " MyConn.execute(InsertTempUpload) Response.redirect "my-items.asp" %> <% End If %>