Opdater DB med dropdownmenu
Hejsa...Jeg skal opdatere en DB, men jeg kan ikke få mine to dropdownmenuer til at felterne i databasen.
Her er koden:
_------------------------------------------------------
<!--#include file="../include/DBopen.asp" -->
<%
dim id
dim action
id = request.querystring("id")
action = request.querystring("action")
select case action
case 1
Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imageUrl
Redim imageUrl(-1)
myPath = "../paraImage/"
folderspec=Server.MapPath(myPath)
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objBaseFolder = objFS.GetFolder(folderspec)
Set objFiles = objBaseFolder.Files
For Each f1 in objFiles
fe = Lcase(right(f1.name,3))
if ((fe = "png") or (fe = "gif") or (fe = "jpg")) then
Redim preserve imageUrl(Ubound(imageUrl) + 1)
imageUrl(Ubound(imageUrl)) = f1.name
end if
Next
ID = Request.QueryString("Id")
Query="SELECT * FROM tblParagraph WHERE Id = " & Id
Set Res = DBConn.Execute(Query)
%>
<form action="para_list.asp?id=<%=id%>&action=2" method="POST" name="ret">
<span class="overskrifter">UPDATE PARAGRAPH</span><br>
<br>
<table width="598" border="0" cellspacing="0" cellpadding="0" class="input">
<tr>
<td colspan="3" bgcolor="#006699" valign="top"> </td>
<td rowspan="10" width="10"></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Header</td>
<td width="446" bgcolor="#efefef" valign="top"> <input name="titel" type="Text" class="input" id="titel" value="<%=Res("headerTxt1") %>" size="50" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Sub header</td>
<td width="446" bgcolor="#efefef" valign="top"> <input name="overskrift2" type="text" class="input" value="<%=Res("headerTxt2") %>" size="50">
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Body text</td>
<td width="446" bgcolor="#efefef" valign="top"> <textarea name="nyhedstekst" cols="49" rows="7" class="input"><%=Res("bodyTxt") %></textarea>
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Layouttype</td>
<td width="446" bgcolor="#efefef" valign="top"><select name="layout" size="1" id="select" value="<%=layoutType %>">
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
</select> </td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top">Image url</td>
<td width="446" bgcolor="#efefef" valign="top"><select name="image">
<option> - No image -</option>
<%
for i = 0 to Ubound(imageUrl)
Response.write ("<option>" & imageUrl(i) & "</option>")
next
%>
</select></td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18" rowspan="3"> </td>
<td width="124" bgcolor="#efefef" valign="top">Image text</td>
<td width="446" bgcolor="#efefef" valign="top"> <input name="billedtekst" value="<%=Res("imageTxt") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top">Sort Order</td>
<td width="446" bgcolor="#efefef" valign="top"> <input name="sortering" value="<%=Res("sortOrder") %>" type="Text" size="50" class="input" >
</td>
</tr>
<tr>
<td width="124" bgcolor="#efefef" valign="top">PageId</td>
<td width="446" bgcolor="#efefef" valign="top"><input name="sideid" type="Text" class="input" id="sideid" value="<%=Res("pageId") %>" size="50" >
</td>
</tr>
<tr>
<td bgcolor="#efefef" valign="top" width="18"> </td>
<td width="124" bgcolor="#efefef" valign="top"> </td>
<td width="446" bgcolor="#efefef" valign="top"> </td>
</tr>
<tr>
<td width="18" height="26"> </td>
<td width="124" height="26"> </td>
<td width="446" height="26"> <div align="right"><br>
<a href="java script:history.go(-1)" target="_self" class="txtlinks"><<
BACK</a> </div></td>
<td width="10" height="26"></td>
</tr>
</table>
<font color="#000000">
<input type="submit" value="Save" name="submit" class="submitknap">
</font></FORM>
<br>
<%
case 2
rettxt = Replace(request.form("nyhedstekst"),"'","`")
query = "update tblParagraph set headerTxt1='"&request.form("overskrift")&"',headerTxt2='"&request.form("overskrift2")&"',layoutType='"&request.form("layout")&"',sortOrder='"&request.form("sortering")&"',imageUrl='"&request.form("image")&"',imageTxt='"&request.form("billedtekst")&"',pageId='"&request.form("sideid")&"',bodyTxt='"&rettxt&"' WHERE ID=" & id
DBConn.execute(Query)
Response.redirect("paragraffer.asp")
case 3
query = "delete from tblParagraph where ID = " & id
DBConn.Execute(query)
Response.redirect("paragraffer.asp")
case 4
%>
------------------------------------------------------
Ved i hvordan?
