Billede dropdown ASP

Kan jeg få rettet i scriptet, så det valgte billede er selected næste gang man skal redigere nyheden?

Hvad med noget i denne stil..

dim ErValgt
for i = 0 to Ubound(imageUrl)
  if imageUrl(i) = rs("news_img") then
    ErValgt = " selected"
  else
    ErValgt = ""
  end if
  Response.write ("<option" & ErValgt & ">" & imageUrl(i) & "</option>")
next


Hvad kommer der til at stå i imageUrl(i) ?
Og hvad står der i feltet news_img ?

ImageUrl(i) er filerne fra mappen, når man har valgt en af dem, så kommer billedstien til at stå i feltet news_img. F.eks. billede1.gif.

Jeg har testet det du skrev, men når jeg sætter det op på nedenstående måde, så er billedet godt nok valgt, men jeg kan ikke vælge de andre billeder der ligger i mappen...

dim ErValgt
for i = 0 to Ubound(imageUrl)
  if imageUrl(i) = rs("news_img") then
    ErValgt = " selected"
  else
    ErValgt = ""
  end if
  Response.write ("<option" & ErValgt & ">" & imageUrl(i) & "</option>")
next

Altså, - den viser kun det billede der er valgt, og man har ikke mulighed for at vælge de andre...

Det må så være din kode der fejler :)

prøv uden ErValgt-delen.. kan du vælge andre billeder?

..og det burde vel være:

for i = 0 to Ubound(imageUrl) - 1

altså, med - 1, da du starter ved 0 og ikke 1.

du kører loopen indtil i = 3, men 0 er også et tal, så "0" + 3 = 4 billeder selvom du f.eks. kun har 3 :)

hey.. se lige http://www.eksperten.dk/spm/405496

Du må ikke linke til det samme spm: http://www.eksperten.dk/spm/423508
Luk det venligst ved at lægge et svar (f.eks. "Lukker") og acceptere det selv.

ok, det vil ikke helt som jeg vil... Jeg bruger koden:
<%

Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imageUrl
Redim imageUrl(-1)
myPath = "image/upload/"
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
%>
<select name="news_img" class="inputlang">
<%
dim ErValgt
for i = 0 to Ubound(imageUrl)-1
  if imageUrl(i) = Res("news_img") then
    ErValgt = "selected"
  else
    ErValgt = ""
  end if
  Response.write ("<option" & ErValgt & ">" & imageUrl(i) & "</option>")
next
%>
</select>
_______________________________________
Jeg har også prøvet at gøre det uden "ervalgt" og i begge tilfælde. Kommer der bare en, - "siden kan ikke vises"...

Jeg er villig til at give flere points, men hvordan sætter jeg egentlig flere point på højkant? Jeg er lidt en noob til det her. ;)

Prøv at sætte følgende i toppen af dokumentet:

_______________

Option Explicit
Response.Buffer = False

din kode her....
_______________


med Option Explicit tvinges du til at definere dine variabler med dim variabelnavn.. på den måde kan den finde ud af om du har lavet stavefejl..
Response.Buffer = False betyder at den skal sende det den har lavet, direkte til browseren, i stedet for at vente til hele siden er genereret.. så har du en bedre chance for at se hvor fejlen er henne..

husk: når du får en fejlmeddelelse, skriv fejlmeddelelsen og den linie den siger der er fejl i, her..

Selvom jeg sætter det ind i toppen, så viser den stadig det samme - Siden kan ikke vises" - Er det fordi det er på en side, hvor man retter en bestemt ID?

Hvordan kan jeg sætte flere point på? ;)

smid lige hel din kode her ind..

Roger:::


<%'CheckAccess(2)%>
<%

Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imageUrl
Redim imageUrl(-1)
myPath = "image/upload/"
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
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Buket &amp; Bouquet</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="DBOpen.asp" -->
<%


    Session.LCID = 1030
%>
<body background="image/bg.gif" leftmargin="0" topmargin="0">
<table width="610" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="30" rowspan="2" background="image/bok_l.gif">&nbsp;</td>
    <td height="250" colspan="2" valign="top" background="image/top.jpg"> <div align="right"><br>
        <a href="login.asp" class="menutxt"></a><br>
      </div></td>
    <td width="30" rowspan="2" background="image/bok_r.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="150" valign="top" bgcolor="#6C0000">
      <!--#include file="menu2.asp" -->
    </td>
    <td valign="top" bgcolor="#FFFFFF" class="txtlinks">
      <table width="390" height="360" border="0" cellpadding="2" cellspacing="2" background="image/logo_bg.gif">
        <tr valign="top">
          <td width="400" class="overnormal">
<%
dim id
dim action
id = request("id")
action = request("action")

select case action
case 1
Query= " SELECT * from tbl_news where id =" & id
Set Res = Conn.Execute(Query)

%>
            <form action="news_edit.asp?id=<%=id%>&action=2" method="POST" name="ret">
              <table width="390" border="0" cellspacing="2" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000">
                <TR bgcolor="#FFFFFF">
                  <td class="overnormal"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>RET
                    NYHED</b></font></td>
                  <td valign="top" class="txt12blackbold">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="java script:history.go(-1)" class="links"><img src="image/back.gif" width="18" height="15" border="0"></a></font></div></td>
                </TR>
                <tr bgcolor="#FFFFFF">
                  <td height="10" colspan="2" align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">&nbsp;</font></td>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td width="100" align="left" class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Overskrift</font></td>
                  <TD> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <INPUT NAME="news_ovs" TYPE="Text" class="inputlang" id="news_ovs" VALUE="<%=Res("news_ovs") %>" size="35" >
                    </font></TD>
                </TR>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Tekst</font></td>
                  <TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <textarea name="news_txt" cols="35" rows="10" class="inputlang" id="news_txt"><%=Res("news_txt")%></textarea>
                    <font color="#FF0000"> </font></font></TD>
                </TR>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Billede</font></td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <select name="news_img" class="inputlang">
                      <option name="news_img"> - No image -</option>
<%
for i = 0 to Ubound(imageUrl)
  Response.write ("<option>" & imageUrl(i) & "</option>")
next
%>
</select>
     
                   
                    </font></td>
                </tr>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt">Dato op</td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <input name="news_date" type="text" class="inputlang" id="news_date" value="<%=Res("news_date")%>" size="35">
                    </font></td>
                </tr>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt">Dato ned</td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <input name="news_date_down" type="text" class="inputlang" id="news_date_down" value="<%=Res("news_date_down")%>" size="35">
                    </font></td>
                </tr>
                <TR bgcolor="#FFFFFF">
                  <td height="40" colspan="2" align="center" valign="middle">
                    <div align="left"> <font color="#000000"> <br>
                      <input class="submitknap" type="submit" value="GEM" >
                      <BR>
                      </font></div></td>
                </TR>
              </TABLE>
</FORM>

<%
case 2
        news_ovs = Replace(Request.Form("news_ovs"), "'", "''")
        news_txt = Replace(Request.Form("news_txt"), "'", "''")
   
        query = "update tbl_news set news_ovs='"& news_ovs &"',news_txt='"& news_txt &"',news_img='"&request.form("news_img")&"',news_date='"&request.form("news_date")&"',news_date_down='"&request.form("news_date_down")&"' WHERE ID=" & id
   
        Conn.execute(Query)
        response.redirect("nyhedsmodul.asp")
case  3
        query = "delete from tbl_news where ID = " & id
        Conn.Execute(query)
        Response.redirect("nyhedsmodul.asp")   
   
case 4
%>
<form action="news_edit.asp?action=5" method="POST" name="opret">
                   
              <table width="390" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
                <TR bgcolor="#FFFFFF">
                  <td class="txt12blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>NY
                    NYHED</b></font></td>
                  <td valign="top" class="txt12blackbold"> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="java script:history.go(-1)" class="links"><img src="image/back.gif" width="18" height="15" border="0"></a></font></div></td>
                </TR>
                <tr bgcolor="#FFFFFF">
                  <td height="10" colspan="2" align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td width="100" align="left" class="txt10blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Overskrift</font></td>
                  <TD> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <INPUT NAME="news_ovs" TYPE="Text" class="inputlang" id="news_ovs" size="35" >
                    </font></TD>
                </TR>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td class="txt10blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Tekst</font></td>
                  <TD> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <textarea name="news_txt" cols="35" rows="10" class="inputlang" id="news_txt"></textarea>
                    </font></TD>
                </TR>
                <tr valign="top">
                  <td class="txt10blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Billede</font></td>
                  <td>
                                     
                    <select name="news_img" class="inputlang">
                      <option name="news_img"> - No image -</option>
<%
for i = 0 to Ubound(imageUrl)
  Response.write ("<option>" & imageUrl(i) & "</option>")
next
%>
</select>  </td>
                </tr>
                <tr valign="top">
                  <td class="txt10blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Dato
                    op </font></td>
                  <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input name="news_date" type="text" class="inputlang" id="news_date" value="<%=now%>" size="35">
                    </font></td>
                </tr>
                <tr valign="top">
                  <td class="txt10blackbold"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Dato
                    ned </font></td>
                  <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input name="news_date_down" type="text" class="inputlang" id="news_date_down" value="<%=now+30%>" size="35">
                    </font></td>
                </tr>
                <TR bgcolor="#FFFFFF">
                  <td height="40" colspan="2" align="center" valign="middle">
                    <div align="left">
                      <p><br>
                        <br>
                        <input class="submitknap" type="submit" value="OPRET" >
                        <BR>
                      </p>
                    </div></td>
                </TR>
              </TABLE>
</FORM>

<%
case 5
        news_ovs = Replace(Request.Form("news_ovs"), "'", "''")
        news_txt = Replace(Request.Form("news_txt"), "'", "''")
      query = "insert into tbl_news (news_ovs,news_txt,news_img,news_date,news_date_down) values ('"& news_ovs &"','"& news_txt &"','"&request.form("news_img")&"','"&request.form("news_date")&"','"&request.form("news_date_down")&"')"
      Conn.execute(Query)
          Response.redirect("nyhedsmodul.asp")   
case else
  Response.write("Denne side kan ikke bruges denne måde")   
end select

%>
</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

Er folk gået helt kolde? ;)

på linierne 55 og 56 står der:
id = request("id")
action = request("action")

request skal erstattes af request.querystring

Hvad hedder felter hvori du gemmer stien til det valgte billede?

Når jeg kigger på din kode, kan jeg ikke finde noget sted hvor du sammenligner det hentede billede med det valgte billede.

Det er nok den øverste halvdel af koden du skal kigge på, det er her jeg kan redigere en bestemt nyhed. - Den nederste del er når man indsætter et nyt, - det virker fint nok.
------------------------------------------>>>>

<%

Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imageUrl
Redim imageUrl(-1)
myPath = "image/upload/"
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
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Buket &amp; Bouquet</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="DBOpen.asp" -->
<%


    Session.LCID = 1030
%>
<body background="image/bg.gif" leftmargin="0" topmargin="0">
<table width="610" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="30" rowspan="2" background="image/bok_l.gif">&nbsp;</td>
    <td height="250" colspan="2" valign="top" background="image/top.jpg"> <div align="right"><br>
        <a href="login.asp" class="menutxt"></a><br>
      </div></td>
    <td width="30" rowspan="2" background="image/bok_r.gif">&nbsp;</td>
  </tr>
  <tr>
    <td width="150" valign="top" bgcolor="#6C0000">
      <!--#include file="menu2.asp" -->
    </td>
    <td valign="top" bgcolor="#FFFFFF" class="txtlinks">
      <table width="390" height="360" border="0" cellpadding="2" cellspacing="2" background="image/logo_bg.gif">
        <tr valign="top">
          <td width="400" class="overnormal">
<%
dim id
dim action
id = request("id")
action = request("action")

select case action
case 1
Query= " SELECT * from tbl_news where id =" & id
Set Res = Conn.Execute(Query)

%>
            <form action="news_edit.asp?id=<%=id%>&action=2" method="POST" name="ret">
              <table width="390" border="0" cellspacing="2" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000">
                <TR bgcolor="#FFFFFF">
                  <td class="overnormal"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>RET
                    NYHED</b></font></td>
                  <td valign="top" class="txt12blackbold">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="java script:history.go(-1" class="links"><img src="image/back.gif" width="18" height="15" border="0"></a></font></div></td>
                </TR>
                <tr bgcolor="#FFFFFF">
                  <td height="10" colspan="2" align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">&nbsp;</font></td>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td width="100" align="left" class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Overskrift</font></td>
                  <TD> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <INPUT NAME="news_ovs" TYPE="Text" class="inputlang" id="news_ovs" VALUE="<%=Res("news_ovs") %>" size="35" >
                    </font></TD>
                </TR>
                <TR bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Tekst</font></td>
                  <TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <textarea name="news_txt" cols="35" rows="10" class="inputlang" id="news_txt"><%=Res("news_txt")%></textarea>
                    <font color="#FF0000"> </font></font></TD>
                </TR>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Billede</font></td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <select name="news_img" class="inputlang">
                      <option name="news_img"> - No image -</option>
<%
for i = 0 to Ubound(imageUrl)
  Response.write ("<option>" & imageUrl(i) & "</option>")
next
%>
</select>
     
                   
                    </font></td>
                </tr>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt">Dato op</td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <input name="news_date" type="text" class="inputlang" id="news_date" value="<%=Res("news_date")%>" size="35">
                    </font></td>
                </tr>
                <tr bgcolor="#FFFFFF" valign="top">
                  <td class="almtxt">Dato ned</td>
                  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                    <input name="news_date_down" type="text" class="inputlang" id="news_date_down" value="<%=Res("news_date_down")%>" size="35">
                    </font></td>
                </tr>
                <TR bgcolor="#FFFFFF">
                  <td height="40" colspan="2" align="center" valign="middle">
                    <div align="left"> <font color="#000000"> <br>
                      <input class="submitknap" type="submit" value="GEM" >
                      <BR>
                      </font></div></td>
                </TR>
              </TABLE>
</FORM>

<%
case 2
        news_ovs = Replace(Request.Form("news_ovs"), "'", "''")
        news_txt = Replace(Request.Form("news_txt"), "'", "''")
   
        query = "update tbl_news set news_ovs='"& news_ovs &"',news_txt='"& news_txt &"',news_img='"&request.form("news_img")&"',news_date='"&request.form("news_date")&"',news_date_down='"&request.form("news_date_down")&"' WHERE ID=" & id
   
        Conn.execute(Query)
        response.redirect("nyhedsmodul.asp")
case  3
        query = "delete from tbl_news where ID = " & id
        Conn.Execute(query)
        Response.redirect("nyhedsmodul.asp")   
   
case 4
%>
---------------------------------------------->>>>

Feltet i databasen hvori billednavnet bliver gemt hedder news_img.

Du skal betragte denne side som siden man kommer ind på efter man har valgt at redigere en bestemt nyhed. Og fra den foregående side sender jeg ID med over, skal det så stadig hedde request.querystring?

Lukker