<% 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_Wanted (AccountID, CatID,Title,Description,Condition,Price,Currency,Location, Image1,Thumb1,Image2, Thumb2,Image3, Thumb3,Email, TelNo,ListingDuration,Sold,Deleted,EntryDate, Paid) " InsertTempUpload = InsertTempUpload & " VALUES ('"&session("AccountID")&"', '"&SQLEncode(Upload.form("catid"))&"', '"&SQLEncode(Upload.form("itemtitle"))&"', '"&SQLEncode(Upload.form("description"))&"', '"&SQLEncode(Upload.form("condition"))&"'," InsertTempUpload = InsertTempUpload & " '"&SQLEncode(Upload.form("price"))&"','"&SQLEncode(Upload.form("currency"))&"','"&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"))&"', '"&SQLEncode(Upload.form("duration"))&"', 'no', 'no', Convert(datetime,'"&date()&"',103), 'no' ) " MyConn.execute(InsertTempUpload) GEtLastID = "SELECT TOP 1 ItemID FROM Forces_Wanted ORDER BY ItemID DESC" SET RSLastID = MyConn.execute(GETLastID) Response.redirect "wanted-preview.asp?id="&RSLastID("ItemID") %> <% End If %>