Der er lidt meget kode, men her er det hele. som du kan se er den option til billeder der, som virker.
<%
'Tjekker om login er udført. Hvis ikke bliver man viderestillet til loginsiden.
if "" & session("login")="" then response.redirect "
http://www.plantcare.dk/aviva" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>PlantCare</title>
<link rel="stylesheet" href="scripts/varer.css" type="text/css" media="screen, projection">
</head>
<body style="background-image:url('images/design/ie_grafik.png'); background-repeat:repeat-x;">
<a href="nyVarer.asp">Opret en ny vare</a>
<br><br>
<%
'Databaseforbindelse.
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("plantcare.mdb")
Conn.Open DSN
'Hvis "action" = "tryk på knappen", så:
if request("action") = "opdater_sys" then
Conn.Execute("update tblVarer set fldVarer = '" & Request.Form("varer") & "', fldPris = '" & Request.form("pris") & "', fldKategori = '" & Request.form("kategori") & "', fldBillede = '" & Request.Form("billede") & "', fldTekst = '" & Request.Form("tekst") & "' WHERE fldId = " & Request.Form("id"))
'Efter at have trykket opret bliver man sendt tilbage, så man igen har mulighederne for at oprette, redigere eller slette.
Response.Redirect("
http://www.plantcare.dk/templates/dropdown/plantcare.asp")
else
'Men da knappen ikke er "klikket på", så udskriver den felterne med indhold, så der kan rettes i dem og derefter klikke på opdater.
Set rs = Conn.Execute("select * from tblVarer where fldId = " & Request.QueryString("id"))
If Not rs.EOF Then
Do While Not rs.EOF
%>
<form name="form1" method="post" action="redigerVarer.asp?action=opdater_sys">
<input type="hidden" name="id" value="<%=rs("fldId")%>"><br>
<table>
<tr>
<td style="width:100px;">
Varer:
</td>
<td>
<input style="width:156px;" type="text" name="varer" value="<%=rs("fldVarer")%>"><br>
</td>
</tr>
<tr>
<td>
Beskrivelse:
</td>
<td>
<textarea style="font-family:verdana;font-size:12px;" rows="8" cols="20" type="text" name="tekst" value=""><%=rs("fldTekst")%></textarea>
</td>
</tr>
<tr>
<td>
Pris:
</td>
<td>
<input style="width:156px;" type="text" name="pris" value="<%=rs("fldPris")%>"> kr.<br>
</td>
</tr>
<tr>
<td>
Billede:
</td>
<td>
<select style="width:162px;" name="billede">
<%
'Erklærer variablerne.
Dim objFSO, objFile, objFolder
'Opretter forbindelse.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Fortæller hvilken mappe der skal ledes i.
Set objFolder = objFSO.GetFolder(Server.MapPath("./../../aviva/media/varer/"))
'For hver fil der er i mappen, skal der udskrives nedstående.
For Each objFile in objFolder.Files
'Hvis formen = "" skal den gøre dette:
if Request.Form("billede") = objFile.Name then
Response.Write ""
else
Response.Write "<option "
If objFile.Name = rs("fldBillede") Then
Response.Write "selected "
end If
Response.Write "value=""" & objFile.Name & """>"
Response.Write objFile.Name & "</option>"
end if
Next
Set objFolder = Nothing
'Lukker.
Set objFSO = Nothing
%>
</select>
</td>
</tr>
<tr>
<td>
Kategori:
</td>
<td>
<select style="width:162px;" name="kategori">
<%
'Opretter forbindelse.
Set oRs = Server.CreateObject("adodb.recordset")
'Tager fra feltet "fldKategori" i tabellen "tblKategori".
strSQL = "select fldKategori from tblKategori"
'Sorterer efter "fldKategori".
strSQL = strSQL & " order by fldKategori"
oRs.Open strSQL, conn
Do while not oRs.EOF
'Hvis kategori = "fldkategori" så:
if Request.Form("kategori") = oRs("fldKategori") then
response.write ""
oRs.MoveNext
'Hvis ikke skal rive eskrive en option med valgmuligederne.
else
Response.Write "<option "
if Request.Form("kategori") = oRs("fldKategori") then
Response.Write "selected "
end if
Response.Write "value=""" & oRs("fldKategori") & """>"
Response.write oRs("fldKategori") & "</option>"
oRs.MoveNext
end if
loop
%>
</select>
</td>
</tr>
<tr>
<td>
<br><a href="java script:history.back()">« Tilbage</a>
</td>
<td>
<br><input type="submit" name="knap" value="Opdater">
</td>
</tr>
</table>
</form>
<%
rs.MoveNext
Loop
Else
Response.Write "Der er ingen varer"
end If
end if
'Tæller hvor mange varer der er i databasen.
Set rs = Conn.Execute("select count(fldVarer) as antal from tblVarer")
%>
<br>Samlet antal varer: <%=rs("antal")%>
<%
'Afslutter forbindelsen.
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
