4 submit knapper og ASP upload
Jeg har en form hvor jeg har 4 submit knapper:<input type="hidden" name="slet_lille_1">
<input type="submit" value="Slet" onclick="document.form1.slet_lille_1.value='Lille1';document.form1.submit()" class="button">
<input type="hidden" name="slet_lille_2">
<input type="submit" value="Slet" onclick="document.form1.slet_lille_2.value='Lille2';document.form1.submit()" class="button">
<input type="hidden" name="slet_baggrund">
<input type="submit" value="Slet" onclick="document.form1.slet_baggrund.value='baggrund';document.form1.submit()" class="button">
<input type="hidden" name="slet_stor">
<input type="submit" value="Slet" onclick="document.form1.slet_stor.value='stor';document.form1.submit()" class="button">
På siden hvor formen bliver submittet til, ville jeg gerne finde ud af hvilken knap der er blevet trykket på.
Nu er det sådan at siden også bruges til noget upload af billeder, så det jeg har lavet ser sådan ud, men det virker desværre ikke..
if upload.form("slet_lille_1") is nothing = false Then
SQL = "SELECT lille_billede_1 FROM side1 WHERE id=" & 1
set rs = myconn.execute(SQL)
billed = rs("lille_billede_1")
if len("" & billed) = 0 or billed = "" then
'Response.Redirect("side1.asp")
else
fil = "../../images/side1/" & billed
fil = Server.MapPath(fil)
Set Fil1 = fso.GetFile(fil)
Fil1.Delete
SQL1 = "Update Side1 set "
SQL1 = SQL1 & "lille_billede_1= '" & no & "'"
SQL1 = SQL1 & "Where Id ="& 1
myConn.execute(SQL1)
end if
Set fso = nothing
Set fil1 = nothing
Set rs = nothing
'Response.Redirect("side1.asp?slet=1")
'-----------------------------------------------------------------
'-----------------------------------------------------------------
'------ Hvis slet lille billede 2 bliver trykket ----
Elseif upload.form("slet_lille_2") is nothing = false Then
SQL = "SELECT lille_billede_2 FROM side1 WHERE id=" & 1
set rs = myconn.execute(SQL)
billed = rs("lille_billede_2")
if len("" & billed) = 0 or billed = ""then
Response.Redirect("side1.asp")
else
fil = "../../images/side1/" & billed
fil = Server.MapPath(fil)
Set Fil1 = fso.GetFile(fil)
Fil1.Delete
SQL1 = "Update Side1 set "
SQL1 = SQL1 & "lille_billede_2= '" & no & "'"
SQL1 = SQL1 & "Where Id ="& 1
myConn.execute(SQL1)
end if
Set fso = nothing
Set fil1 = nothing
Set rs = nothing
Response.Redirect("side1.asp?slet=2")
'--------------------------------------------------------
'-----------------------------------------------------------------
'------ Hvis slet Baggrundsbillede bliver trykket ----
Elseif upload.form("slet_baggrund") is nothing = false Then
SQL = "SELECT bg_billede FROM side1 WHERE id=" & 1
set rs = myconn.execute(SQL)
billed = rs("bg_billede")
if len("" & billed) = 0 or billed = ""then
Response.Redirect("side1.asp")
else
fil = "../../images/side1/" & billed
fil = Server.MapPath(fil)
Set Fil1 = fso.GetFile(fil)
Fil1.Delete
SQL1 = "Update Side1 set "
SQL1 = SQL1 & "bg_billede= '" & no & "'"
SQL1 = SQL1 & "Where Id ="& 1
myConn.execute(SQL1)
end if
Set fso = nothing
Set fil1 = nothing
Set rs = nothing
Response.Redirect("side1.asp?slet=baggrund")
'--------------------------------------------------------
'-----------------------------------------------------------------
'------ Hvis slet Stort billede bliver trykket ----
Elseif upload.form("slet_stor") is nothing = false Then
SQL = "SELECT stort_billede FROM side1 WHERE id=" & 1
set rs = myconn.execute(SQL)
billed = rs("stort_billede")
if len("" & billed) = 0 or billed = "" then
Response.Redirect("side1.asp")
else
fil = "../../images/side1/" & billed
fil = Server.MapPath(fil)
Set Fil1 = fso.GetFile(fil)
Fil1.Delete
SQL1 = "Update stort_billede set "
SQL1 = SQL1 & "stort_billede= '" & no & "'"
SQL1 = SQL1 & "Where Id ="& 1
myConn.execute(SQL1)
end if
Set fso = nothing
Set fil1 = nothing
Set rs = nothing
Response.Redirect("side1.asp?slet=stor")
Jeg kan godt få det til at virke, hvis det havde været en alm. form altså uden enctype="multipart/form-data"
Det er som om at den første knap altid har en værdi, uanset hvilken kanp jeg trykker på.
//Mekaniker
