<% 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\finance" 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") If Not Upload.Files("FILE1") Is Nothing Then If File1.ImageType <> "UNKNOWN" Then jpeg.Open( File1.Path ) jpeg.PreserveAspectRatio = True jpeg.Width = 167 SavePath1 = Path & "\S_" & File1.ExtractFileName If UCase(Right(SavePath1, 3)) <> "JPG" Then SavePath1 = SavePath1 & ".jpg" End If jpeg.Save SavePath1 Set ThumbFile1 = Upload.OpenFile(SavePath1) 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_FinanceLinks (CatID, Title,Banner,Link,Deleted,EntryDate) " InsertTempUpload = InsertTempUpload & " VALUES ('"&SQLEncode(Upload.form("catid"))&"', '"&SQLEncode(Upload.form("linktitle"))&"', " If Not Upload.Files("FILE1") Is Nothing Then InsertTempUpload = InsertTempUpload & " '"&ThumbFile1.FileName&"', " else InsertTempUpload = InsertTempUpload & " ''," end if InsertTempUpload = InsertTempUpload & " '"&SQLEncode(Upload.form("linkurl"))&"', 'no',Convert(datetime,'"&date()&"',103) ) " MyConn.execute(InsertTempUpload) Response.redirect "admin-finance-links.asp" %> <% End If %>