asp update
Hej jeg har fået et problem som jeg ikke selv kan løse, håber lige at nogle af jer eksperter kan hjæplpe.jeg ville gerne have tilføjet noget til denne kode som gør at når man foreksmpel kun vil opdatere prisen at der så ikke kommer nogen fejmeddelse. Her har i min kode some den ser ud nu.
<%
case "ret"
rediger = request.QueryString("red")
if rediger = 2 then
set upload = Server.CreateObject("Persits.Upload")
upload.OverwriteFiles = False
path = Server.MapPath("../upload")
Count = Upload.Save(Path)
pid = upload.form("p_id")
intvarer = upload.Form("intvarer")
strproduktnavnVar = upload.Form("strProduktNavn")
intbrandnavnVar = upload.Form("intbrandtype")
strlongtextVar = upload.Form("FCKeditor")
intprisVar = upload.Form("strpris")
If Count = 0 then
response.write "Ingen billeder valgt"
else
'Fang filen til upload
Set File = Upload.Files(1)
'Tjek filformat
if File.Ext <> ".jpg" then
response.write"Forkert fil format"
response.End()
end if
'Er det en gyldig billede fil?
If File.ImageType <> "UNKNOWN" then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Åben den uploadede fil
Jpeg.Open(File.Path)
w = 70
jpeg.Width = w
jpeg.Height = jpeg.OriginalHeight * w / jpeg.OriginalWidth
PathT = Server.MapPath("../upload")
'angiv hvor filen skal gemmes
SavePath = PathT & "\small_" & File.ExtractFileName
dbPath = replace(Server.MapPath("../upload"),"\","\\")
filnavn = File.ExtractFileName
'Fang billede navnet
img = File.ExtractFileName
'Gem filen
Jpeg.Save SavePath
sql = "SELECT * FROM produkter WHERE pid="&pid
set rs = Conn.Execute(sql)
sqlret = "update produkter set pname='"&strproduktnavnVar&"', brand_id='"&intbrandnavnVar&"',pdesc='"&strlongtextVar&"',pprice='"&intprisVar&"',ppic_small='"&img&"' WHERE pid="&pid
Conn.Execute(sqlret)
'Udskriv bekræftigelse
Response.write "Success!"
response.Redirect("?admin=opret")
else
'Udskriv fejlbesked
response.write "Filen er ikke en gyldig billede fil"
response.End()
end if
end if
end if
ret_p = request.queryString("ret_p")
if not request.QueryString("ret_p") = "" then
sql_ret = "SELECT * FROM produkter , produktgrupper WHERE produkter.gid = produktgrupper.gruppe_id and pid="&ret_p&""
set rs_ret = Conn.Execute(sql_ret)
%>