<% 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\schools" 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 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 = 200 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" SQLINSERT = "INSERT INTO Forces_BoardingSchools (SchoolName, Location,Img, Address, TelNo, Deleted, EntryDate, LinkURL) " SQLINSERT = SQLINSERT & " VALUES ('"&SQLEncode(Upload.form("pname"))&"', '"&SQLEncode(Upload.form("location"))&"', " If Not Upload.Files("FILE1") Is Nothing Then SQLINSERT = SQLINSERT & " '"&ThumbFile1.FileName&"', " else SQLINSERT = SQLINSERT & " '', " end if SQLINSERT = SQLINSERT & " '"&SQLEncode(Upload.form("address"))&"', '"&SQLEncode(Upload.form("telno"))&"', " SQLINSERT = SQLINSERT & " 'no', Convert(datetime, '"&date()&"',103), '"&SQLEncode(Upload.form("linkurl"))&"' ) " MyConn.execute(SQLINSERT) Response.redirect "admin-boarding-schools.asp" %> <% End If %>