SIMPEL ASP

Hejsa..

Jeg står her med noget ASP.. Hvor jeg sikkert har lavet en IDIOT FEJL....

Scriptet kan ses på http://212.242.78.47

Problemet er.. Jeg kan fint oprette news.. Men hvis jeg vælger Redigere.. Kan den også fint liste de nyheder som er at vælge imellem.. Men når jeg så trykker på en.. Så sker der ikke mere.. Ingen ASP fejl eller noget.. Source Code ser såledees ud. :

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%

if Request.QueryString(\"mode\")=\"add\" then
%>

<form method=post action=\"news.asp?mode=save\">
<P align=center><br>
Overskrift : <INPUT name=overskrift style=\"HEIGHT: 22px; WIDTH: 199px\">&nbsp;

Forfatter : <SELECT id=select1 name=forfatter style=\"HEIGHT: 22px; WIDTH: 199px\">

<OPTION selected value=[BAN]MoveX>[BAN]MoveX</OPTION></SELECT><br><br><br>&nbsp;

<TEXTAREA name=news style=\"HEIGHT: 212px; WIDTH: 555px\"></TEXTAREA>
    <br><br>
 

<br>
<INPUT type=\"submit\" value=\"Save\" id=submit1 name=submit1>&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT id=reset1 name=reset1 type=reset value=Cancel></P>
</form>

<%
end if
%>




<%
if Request.QueryString(\"mode\")=\"save\" then


\'forbindelse til databasen.
strconn = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"banned.mdb\") &\";DefaultDir=\"& Server.MapPath(\"/\") &\";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5\"
    set conn = server.createobject(\"adodb.connection\")
    conn.open(strconn)
   
       
sql= \"insert into News(overskrift,forfatter,news)\"
sql= sql & \"values(\'\"
sql= sql & request(\"overskrift\") & \"\',\'\"
sql= sql & request(\"forfatter\") & \"\',\'\"
sql= sql & request(\"news\") & \"\')\"
conn.execute(sql)
response.write \"Nyheden er nu tilføjet..\"
end if

%>











<%

if Request.QueryString(\"mode\")=\"redi\" then


\'Databasen åbnes
set conn = server.createobject(\"ADODB.connection\")
StrDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"banned.mdb\")
conn.open strDSN
   
\'Søgekriterier defineres
SQL = \"SELECT * FROM news ORDER BY Dato DESC\"
set RS = conn.execute( SQL )

If RS.EOF then
  response.write \"<tr><td><font color=\'984A46\' size=\'2\' face=\'Verdana\'>Der er ingen nyheder..</td></tr>\"

Else

  do while not RS.eof

  response.write \"<tr><td width=400 valign=top><font color=\'984A46\' size=\'2\' face=\'Verdana\'>\"
  response.write \"- <a href=\'news.asp?mode=aktuel&id=\" & RS(\"ID\") & \"\'><font size=\'2\' color=\'#BF0000\'>\" & RS(\"overskrift\") & \"</font></a>\"
  response.write \"</td></tr>\"

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif mode = \"aktuel\" then %>

<%

  \'Variabler hentes og sættes
  ID = Request.QueryString(\"id\")

%>

<form method=\"POST\" action=\"news.asp?mode=ret\">

<%

  \'Database åbnes og gøres klar
  set conn = server.createobject(\"ADODB.connection\")
  strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"banned.mdb\")
  conn.open strDSN

  \'Søgekriterer sættes
  SQL = \"SELECT * FROM news Where (ID = \" & ID & \")\"
  set RS = conn.execute( SQL )

  OVerskrift = RS(\"Overskrift\")
  Forfatter = RS(\"Forfatter\")
  News = RS(\"News\")
 
  %>


Overskrift : <INPUT name=overskrift style=\"HEIGHT: 22px; WIDTH: 199px\">&nbsp;

Forfatter : <SELECT id=select1 name=forfatter style=\"HEIGHT: 22px; WIDTH: 199px\">

<OPTION selected value=[BAN]MoveX>[BAN]MoveX</OPTION></SELECT><br><br><br>&nbsp;

<TEXTAREA name=news style=\"HEIGHT: 212px; WIDTH: 555px\"></TEXTAREA>
    <br><br>
 

<br>

<INPUT type=\"submit\" value=\"Save\" id=submit1 name=submit1>&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT id=reset1 name=reset1 type=reset value=Cancel></P>

<%
  rs.Close
  set rs = Nothing

%>



<% elseif mode = \"ret\" then %>



<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Ret Nyheder</b><br>
<font size=\"2\">
Du har nu rettet nyheden <% = overskrift %>. Ændringerne vil træde i kraft øjeblikkeligt.<br>
</td></tr>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
set conn = server.createobject(\"ADODB.connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"banned.mdb\")
conn.open strDSN

\'Søgekriterier for News defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT TOP 1 * FROM news Where ID=\'\" & ID & \"\'\"
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic


  rs(\"overskrift\") = overskrift
  rs(\"forfatter\") = forfatter
  rs(\"news\") = news

  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>


<% end if %>






</BODY>
</HTML>