Billedupload og resize på Surftown

Hej.
Jeg har i flere år brugt web10 med deres ASP upload funktion og resize.
Nu er jeg flyttet til Surftown, men har indtil videre haft en masse problemer med deres SaFileUp funktion.

Når jeg vil uploade fem forskelige filer på een gang, så er det kun nogen af dem der kommer med op. jeg skriver i samme script stierne i en db, og de kommer fint med. Det er altså selve lagringen af filere der er galt med.

Derudover har jeg et problem med det script der senere skal resize billederne når de skal vises (Surftown bruger w3image).
billedstørrelserne ændres gdt nok, men de er ikke pæne at se på. Kunne ligesågodt bare selv skrive størrelserne ind, for de er meget grumsede.

Jeg vil høre om nogen kan hjælpe mig med at få upload til at vike som det skal, gerne med en "overwrite false" funktion, således at billeder bliver omdøbt, hvis samme filnavn allerede findes på serveren. Det er jeg nemlig vant til hos web10.

Her først de koder der uploader billeder og gemmer stierne i db.
Længere nede har jeg w3image resize scriptet.

---------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Buffer = True %>
<!--#include file="../md5/md5.asp"-->
<!--#include file="../Connections/conn.asp" -->
<%session.lcid = 1030%>
<%
If Not ((Request.Cookies(md5("umbria"))(md5("login")) = (md5("true"))) And (Request.Cookies(md5("umbria"))(md5("Rang")) = (md5("admin")))) Then
    Response.Redirect("administration.asp?pageid=rettigheder")
End If
%>

<%
if request.querystring("pageid") = "insert" then

Dim bUpdate
bUpdate = false



'--TjekPrioritet
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open(sConn)

set RStjekprio=Server.CreateObject("ADODB.recordset")
RStjekprio.Open "SELECT prioritet FROM huse ORDER by prioritet DESC LIMIT 0,1", myConn


  set upl = Server.CreateObject("SoftArtisans.fileUp")
    upl.CodePage = 65001 ' VIGTIGT ENABLER UTF 8 ENCODING....
    ' Angiv den sti, som filen skal placeres i
  ' - her bruges den aktuelle sti (.)
  upl.Path = Server.MapPath("images/husimages/")
 
'  if (upl.form("img1").IsEmpty) then
'    Response.write "<p>Fejl: Filen er tom eller findes ikke!</p>"
'  elseif (upl.ContentDisposition <> "form-data") then
'    Response.write "<p>Fejl: Upload mislykkedes!</p>"
'  else
'    Response.write "<p>Filen er nu uploadet.</p>"
'  on error resume next
'  ' Gem den uploadede fil på webhotellet
'    upl.Save
'  end if
%>
<%
If Not upl.Form("img1").IsEmpty then
  upl.Save
End if
If Not upl.Form("img2").IsEmpty then
  upl.Save
End if 
If Not upl.Form("img3").IsEmpty then
  upl.Save
End if
If Not upl.Form("img4").IsEmpty then
  upl.Save
End if
If Not upl.Form("img5").IsEmpty then
  upl.Save
End if

set img1 = upl.form("img1")
Set img2 = upl.form("img2")
Set img3 = upl.form("img3")
Set img4 = upl.form("img4")
Set img5 = upl.form("img5")


'-- Connection start --
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open(sConn)
'-- "Connection start" slut --

'-- Indsæt ny record --
Dim sSql
sSql = "INSERT INTO huse (titel,beskrivelse,prioritet,img1,img2,img3,img4,img5,pris) VALUES ("
sSql = sSql & "'" & upl.form("titel") & "',"
sSql = sSql & "'" & upl.form("beskrivelse") & "',"
if RStjekPrio.EOF OR RStjekPrio.BOF then
sSql = sSql & "1" & ","
else
sSql = sSql & cdbl(RStjekPrio("prioritet")+1) & ","
end if
If Not img1 is nothing then
  sSql = sSql & "'images/husimages/" & img1.ShortFilename & "',"
else
sSql = sSql & "'images/husimages/intet-billede.jpg',"
end if

If Not img2 is nothing then
  sSql = sSql & "'images/husimages/" & img2.ShortFilename & "',"
  else
sSql = sSql & "'images/husimages/intet-billede.jpg',"
End if

If Not img3 Is Nothing then
sSql = sSql & "'images/husimages/" & img3.ShortFilename & "',"
else
sSql = sSql & "'images/husimages/intet-billede.jpg',"
end if

If Not img4 Is Nothing then
sSql = sSql & "'images/husimages/" & img4.ShortFilename & "',"
else
sSql = sSql & "'images/husimages/intet-billede.jpg',"
end if

If Not img5 Is Nothing then
sSql = sSql & "'images/husimages/" & img5.ShortFilename & "',"
else
sSql = sSql & "'images/husimages/intet-billede.jpg',"
end if
sSql = sSql & "'" & upl.form("pris") & "'"
sSql = sSql & ")"

Response.Write(sSql)
Conn.Execute(sSql)
bUpdate = true
response.redirect("cp-organizeHuse.asp")
end if
%>



--------------------------------------------------------
w3image
--------------------------------------------------------


<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Expires=0
Response.Buffer=1
Response.Clear
Response.ContentType="image/jpeg"

vImage=Request.QueryString("ImagePath")
vImageWidth=Request.QueryString("ImageWidth")

If IsNull(vImageWidth) Then vImageWidth=200

set oImage=Server.CreateObject("W3Image.Image")

oImage.LoadImage (Server.MapPath(VImage))

iScaleFactor=CDbl(vImageWidth/oImage.Width)
oImage.Scale 100*iScaleFactor,0

oImage.StreamImage Response,"JPG",24

Response.End%>

--------------------------------------------------------

Håber nogen kan hjælpe mig, så jeg ikke behøver at skifte webhotel...

Hilsen
Rene