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
%>