asp smartupload og slet

Er der en venlig sjæl der kan hjælpe med at lave en asp smartupload og slette funktion i følgende to scripts.
Som det ser ud nu gemmes "Billeder" som en ekstern URL i feltet "aucImageUrl" - men jeg vil gerne hoste billederne selv - Jeg har været rundt at kigge forskelige steder, men kan ikke rigtigt få noget til at virke :(
Det skulle gerne kunne checke om billednavnet findes i forvejen - så der ikke overskrives

/// Siden der gemmer er her
<%

    sUserName    = "" & RequestValue("UserName")
    sPassword    = "" & RequestValue("Password")
    sTitle      = "" & RequestValue("Title")
    lCat        = FVal(RequestValue("Category"))
    iDays        = FVal(RequestValue("Days"))
    'Denne henter billed data
    sImageURL    = "" & RequestValue("ImageURL")
    sDescription = "" & RequestValue("Description")
    fStartingBid = FVal(RequestValue("StartBid"))
    fIncrement  = FVal(RequestValue("Increment"))
    vCloseDate  = DateAdd("d", iDays, NOW)
    lUserID = 0
   
    OpenDBConn
    DoPageHeader
    TableHead GLS_AddAuction
    regSQL = "SELECT regValidated,regID FROM Registration WHERE regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword) & " "
    Set regRS = gobjConnect.Execute(regSQL)
    If NOT regRS.EOF then
        If EvalBool(regRS("regValidated")) Then
            lUserID = FVal(regRS("regID"))
            InsertAd
        Else
            PostDenied
        End If
    Else
        PostDenied
    End If
    regRS.Close
    set regRS = Nothing
    TableFoot
    DoPageFooter
    CloseDBConn
Sub InsertAd
    Set rsAuc = Server.CreateObject("ADODB.RecordSet")
    rsAuc.Open "Auctions", gobjConnect, 1, 3, &H0002 'adOpenKeyset, adLockOptimistic, adCmdTable
    rsAuc.AddNew
    rsAuc("aucItemOwner") = lUserID
    rsAuc("aucItemTitle") = sTitle
    rsAuc("aucCategoryID") = lCat
    rsAuc("aucImageURL") = sImageURL
    rsAuc("aucEnded") = "N"
    rsAuc("aucEmailsSent") = "N"
    rsAuc("aucAvailDate") = Now
    rsAuc("aucCloseDate") = vCloseDate
    rsAuc("aucStartingBid") = fStartingBid
    rsAuc("aucMinimumIncrement") = fIncrement
    rsAuc("aucCurrentBid") = 0       
    rsAuc("aucCurrentBidder") = 0
    rsAuc("aucDescription") = sDescription
    rsAuc.Update   
    lAucID = rsAuc("aucID")
    rsAuc.Close
    set rsAuc = Nothing
       
    Response.Write "<BR>" & gsAuctionTextOpen & GLS_SuccessfulPost & "<BR>"
    Response.Write GLS_PostView & "<A HREF=""visauktion.asp?vare_id=" & lAucID & """>" & gsAucURL  & "visauktion.asp?vare_id=" & lAucID & "</A>" & gsAuctionTextClose &"<BR><BR>"
End Sub

Sub PostDenied
    Response.Write "<P align=""CENTER"">" & gsAuctionTextOpen
    Response.Write  GLS_LoginErr & "<BR>"
    Response.Write  GLS_GoBack &  "<BR>"
    Response.Write     GLS_HowtoRegister & "<BR>" & GLS_PermissionMessage & gsAuctionTextClose & "</P>"
End Sub
%>

///// Delete siden er her

<%
sCmd = "" & Ucase(RequestValue("cmd"))
lAucID = FVal(RequestValue("AucID"))
If IsLoggedOn Then
    DoPageHeader
    TableHead GLS_AdmDATitle
    OpenDBConn
       
    Select Case sCmd
    Case "DELETE"
    DeleteAuction
    Case Else
        ShowForm
    End Select
    CloseDBConn
    TableFoot
    DoPageFooter
Else
    Response.Redirect "AdmLogin.asp"
End If
Sub DeleteAuction
    sSQL = "DELETE from Auctions WHERE aucID=" & SQLVal(lAucID)
    gobjConnect.Execute sSQL
    Response.Write gsAuctionTextOpen & GLS_AdmDADeleteSuccess & gsAuctionTextClose
End Sub

Sub ShowForm
<FORM METHOD="POST" ACTION="AdmDelete.asp">
<INPUT TYPE="HIDDEN" NAME="CMD" VALUE="DELETE">
Slet Auktions Nr:
<INPUT TYPE="TEXT" NAME="AUCID" SIZE="4">
<INPUT TYPE="SUBMIT" VALUE="Slet">
</FORM>
End Sub
%>