change script from SLA FileUP to ASPupload

Hi We have a very simple and small job that needs to be done ASAP. We've moved a site from one server to another, and the new one uses ASPupload - but the old server had - SLA FileUP. The scripts no longer work. We have quite a few pages that use the upload capability but they are all similar.? We will supply the pages or access to the pages to the winning developer. We need someone who has experience with both of these, who knows they can fix it ASAP. Many thanks ## Deliverables Here is an example of one of the pages that need to be converted from Software Artisans FileUpload to ASP UPload. <[%@LANGUAGE="VBSCRIPT"%][1]> <!--#include file="../../Connections/[login to view URL]" --> <% Dim rsImageNumber__MMColParam rsImageNumber__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then ? rsImageNumber__MMColParam = Request("MM_EmptyValue") End If %> <% Set upl = [login to view URL]("[login to view URL]") %> <% set rsImageNumber = [login to view URL]("[login to view URL]") [login to view URL] = MM_canecorso_STRING [login to view URL] = "SELECT * FROM ImageNumber WHERE imagesid = " + Replace(rsImageNumber__MMColParam, "'", "''") + "" [login to view URL] = 0 [login to view URL] = 2 [login to view URL] = 3 [login to view URL]() rsImageNumber_numRows = 0 %> <% Dim rsDogs Dim rsDogs_numRows Set rsDogs = [login to view URL]("[login to view URL]") [login to view URL] = MM_canecorso_STRING [login to view URL] = "SELECT DogID, DogName, DogSex, DogDOB, DogColorMarkings, DogWeight, DogOurFamYN, DogMainPhoto, DogTH, DogActiveYN, DogSort, DogOrigin FROM Dogs" [login to view URL] = 0 [login to view URL] = 3 [login to view URL] = 3 [login to view URL]() rsDogs_numRows = 0 %> <% value1 = [login to view URL]("image").UserFilename dogname = [login to view URL]("dog_name") sex = [login to view URL]("sex") color = [login to view URL]("color") dob = [login to view URL]("dob") weight = [login to view URL]("weight") family = [login to view URL]("family") origin = [login to view URL]("origin") active = [login to view URL]("active") order = [login to view URL]("order") if value1 = "" Then [login to view URL]() [login to view URL]("DogName").Value = dogname [login to view URL]("DogSex").Value = sex [login to view URL]("DogDOB").Value = dob [login to view URL]("DogColorMarkings").Value = color [login to view URL]("DogWeight").Value = weight [login to view URL]("DogOurFamYN").Value = family [login to view URL]("DogMainPhoto").Value = "\webimages\fullsize\[login to view URL]" [login to view URL]("DogTH").Value = "\webimages\thumbnails\[login to view URL]" [login to view URL]("DogActiveYN").Value = active [login to view URL]("DogOrigin").Value = origin [login to view URL]("DogSort").Value = order [login to view URL]() [login to view URL]() [login to view URL]() [login to view URL]("[login to view URL]") END IF numimage = cstr([login to view URL]("ImagesNumber").Value) [login to view URL]("ImagesNumber").Value = cstr([login to view URL]("ImagesNumber").Value) + 1 [login to view URL]() fileextension =? Mid(value1, (InstrRev(value1, ".") + 1)) valido = 0 if fileextension = "jpg" then valido = 1 if fileextension = "jpeg" then valido = 1 if fileextension = "JPG" then valido = 1 if fileextension = "JPEG" then valido = 1 if valido = 0 Then [login to view URL]("[login to view URL]") gblUploadDirectory = [login to view URL]("/") + "\webimages\originals\" NewFileName =? Mid(value1, (InstrRev(value1, "\") + 1)) ss = gblUploadDirectory + numimage + "." + fileextension ? [login to view URL]("image").SaveAS ( ss ) photoname = "\webimages\fullsize\" + numimage + "." + fileextension phototh = "\webimages\thumbnails\" + numimage + "." + fileextension [login to view URL]() [login to view URL]("DogName").Value = dogname [login to view URL]("DogSex").Value = sex [login to view URL]("DogDOB").Value = dob [login to view URL]("DogColorMarkings").Value = color [login to view URL]("DogWeight").Value = weight [login to view URL]("DogOurFamYN").Value = family [login to view URL]("DogMainPhoto").Value = photoname [login to view URL]("DogTH").Value = phototh [login to view URL]("DogActiveYN").Value = active [login to view URL]("DogOrigin").Value = origin [login to view URL]("DogSort").Value = order [login to view URL]() gblUploadDirectory2 = [login to view URL]("/") + "\webimages\fullsize\" ? ? Set Image = [login to view URL]("[login to view URL]") ? ? [login to view URL] = true ? ? [login to view URL]( ss ) ? ? xVal = [login to view URL] ? ? yVal = [login to view URL] ? ? ? IF xval > 399 THEN ? ? ? ? xParam = 400 ? ? ? ? yParam = int( yVal / ( xVal / xParam ) ) ? ? ? ? [login to view URL] xParam , yParam ? ? END IF ? ? [login to view URL] =? ( gblUploadDirectory2 + numimage + "." + fileextension) ? ? [login to view URL]() ? ? Set Image = Nothing gblUploadDirectory3 = [login to view URL]("/") + "\webimages\thumbnails\" ? ? Set Image = [login to view URL]("[login to view URL]") ? ? [login to view URL] = true ? ? [login to view URL]( ss ) ? ? xVal = [login to view URL] ? ? yVal = [login to view URL] ? ? ? IF xval > 89 THEN ? ? ? ? xParam = 135 ? ? ? ? yParam = int( yVal / ( xVal / xParam ) ) ? ? ? ? [login to view URL] xParam , yParam ? ? END IF ? ? [login to view URL] =? ( gblUploadDirectory3 + numimage + "." + fileextension) ? ? [login to view URL]() ? ? Set Image = Nothing? ? SET upl = Nothing [login to view URL]() [login to view URL]() [login to view URL]("[login to view URL]") %> <% [login to view URL]() %> <% [login to view URL]() Set rsDogs = Nothing %>