Editering af værdier
Hej brugere af eksperten.dkHar en side hvor jeg henter nogle værdier ud af en database også skal man kunne ændre og tilføje ting i dem. Det virkede også fint indtil jeg fandt på at der skulle tilføjes en ny værdi nemlig "rekkefolge". Den henter fint værdierne men når jeg så vil save så bliver jeg smidt videre til "siden kan ikke vises"
Hjælp please :D
Koden...
<%
if session("login")<>"ok" then response.redirect("loginerror.html")
id = request.queryString("id")
function check(wert)
if len(wert)<1 then save = false
wert = replace(wert,"'", "`")
wert = replace(wert,chr(34), "``")
check = wert
end function
function check1(wert)
wert = replace(wert,",",".")
check1 = wert
if isNumeric(wert) = false then save = false
end function
set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("../pw99_shop.mdb")
db.Open connect
sql = "select bezeichnung, beschreibung, rekkefolge, bild, artikelnr, preis, rubrik from produkte where id = " & id
set rs = db.Execute(sql)
bezeichnung = rs("bezeichnung")
beschreibung = rs("beschreibung")
rekkefolge = rs("rekkefolge")
bild = rs("bild")
artikelnr = rs("artikelnr")
preis = rs("preis")
rubrik = rs("rubrik")
rs.close
set rs = nothing
Function show_search(parent1, ebene, selected)
if parent1 <> vbNullString then
for t = 0 to arrayLaenge
if rubriken(t,1) = parent1 then
platzhalter=""
for x= 0 to ebene
platzhalter = platzhalter & " "
next
if rubriken(t,2) = selected then
response.write("<option value='"&rubriken(t,2)&"' selected>"&platzhalter&rubriken(t,0)&"</option>"&chr(13))
else
response.write("<option value='"&rubriken(t,2)&"'>"&platzhalter&rubriken(t,0)&"</option>"&chr(13))
end if
parent2 = rubriken(t,2)
ebene1 = ebene +1
show_search parent2, ebene1, selected
end if
next
end if
end function
dim rubriken(100,4)
sql = "select rubrik, id, parent, rank from rubriken order by rank"
set rs = db.Execute(sql)
while not rs.eof
if i<100 then
rubriken(i,0) = rs("rubrik")
rubriken(i,1) = rs("parent")
rubriken(i,2) = rs("id")
rubriken(i,3) = rs("rank")
end if
i=i+1
rs.movenext
wend
arrayLaenge=i-1
' ***** UPDATE PRODUKT *****
if request.form("b1") = "update" then
save = true
rubrik = request.form("rubrik")
preis = check1(request.form("preis"))
produkt = check(request.form("produkt"))
rekkefolge = check(request.form("rekkefolge"))
pic = request.form("pic")
if len(pic)<1 then pic = " "
nummer = check(request.form("nummer"))
beschreibung = check(request.form("beschreibung"))
if save = true then
sql = "update produkte set bezeichnung = '"&produkt&"', beschreibung = '"&beschreibung&"', bild = '"&pic&"', rekkefolge = '"&rekkefolge&"', artikelnr = '"&nummer&"', preis = "&preis&", rubrik = "&rubrik&" where id = " & id
db.execute(sql)
end if
end if
rs.close
db.close
set rs = nothing
set db = nothing
%>
<html>
<head>
<title>PW99 MiniShop</title>
<style>
.text { color: black; font-weight: 400; font-size: 11px; font-family: Arial, Helvetica, sans-serif; text-decoration: none; text-align:justify; }
a.text:link {color: black; text-decoration: none; text-align:justify; }
a.text:visited { color: black; text-decoration: none; text-align:justify; }
a.text:hover { color: #848CB5; text-decoration: underline; text-align:justify; }
</style>
</head>
<body bgcolor="#ffffff">
<%
if save = true then
Erase rubriken
%>
<script>
opener.location.href="produkte.asp";
self.close();
</script>
<%
end if
%>
<form method="POST" action="produkte_edit.asp?id=<%=id%>">
<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="400" class="text">
<tr>
<td width="400" bgcolor="#848CB5" align="center" colspan="2"><b>NEUES
PRODUKT</b></td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Rubrik*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<select size="1" name="rubrik">
<%show_search 0,0,rubrik%>
</select>
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Produkt*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<input type="text" name="produkt" size="21" maxlength="100" value="<%=bezeichnung%>">
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Rekkefolge*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<input type="text" name="rekkefolge" size="21" maxlength="100" value="<%=rekkefolge%>">
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Nr:*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<input type="text" name="nummer" size="21" maxlength="100" value="<%=artikelnr%>">
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Pic</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<input type="text" name="pic" size="21" maxlength="100" value="<%=bild%>">
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Preis*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<input type="text" name="preis" size="21" maxlength="100" value="<%=preis%>">
</td>
</tr>
<tr>
<td width="100" bgcolor="#EFEFDE" align="left">Beschreibung*</td>
<td width="300" bgcolor="#EFEFDE" align="left">
<textarea rows="5" name="beschreibung" cols="34"><%=beschreibung%></textarea>
</td>
</tr>
<tr>
<td width="400" bgcolor="#EFEFDE" colspan="2" align="center">
<input type="submit" value="update" name="B1"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
Erase rubriken
%>
</html>
