Søg
Avatar billede jens_k Nybegynder
08. juli 2001 - 00:43 Der er 35 kommentarer og
1 løsning

SLET FUNKTION

Hvorfor virker denne slet funktion ikke ??

<%@ 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><br>\"

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif Request.QueryString(\"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\")
 
  %>

<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>

<%
  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 %>




<% if mode = \"slet\" then %>

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

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

<%

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

%>

<%

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


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

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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 ID defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT * FROM news Where ID=\'\" & ID & \"\'\"
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic

  ID = RS(\"ID\")
  rs.Delete
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>




</BODY>
</HTML>
Avatar billede erikjacobsen Ekspert
08. juli 2001 - 00:47 #1
vel fordi du alle steder  skal ændre feks.
  <% elseif mode = \"ret\" then %>
til
<% elseif request.querystring(\"mode\") = \"ret\" then %>

også ved slet
Avatar billede nuno Nybegynder
08. juli 2001 - 00:47 #2
ID = RS(\"ID\")
rs.Delete
rs.Update
rs.Close

du sletter kun i recordsettet - du opdaterer det ikke i db...

/nuno

Avatar billede erikjacobsen Ekspert
08. juli 2001 - 00:47 #3
eller - som foreslået - allerøverst have en

mode = request.querystring(\"mode\")

og så bare bruge mode som variabel længere nede - lidt mindre skrivearbejde.
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:00 #4
Tjek : http://212.242.78.47


Nu ser koden således 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><br>\"

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif Request.QueryString(\"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\")
 
  %>

<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>

<%
  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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif Request.QueryString(\"mode\") = \"sletaktuel\" then %>

<%

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

%>

<%

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


<% elseif request.querystring(\"mode\") = \"sure\" then %>

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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 ID defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT * FROM news Where ID=\'\" & ID & \"\'\"
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>




</BODY>
</HTML>
Avatar billede erikjacobsen Ekspert
08. juli 2001 - 01:02 #5
Nogle gange har du stroffer omkring dit ID og andre gange ikke. Mon ikke
det er et tal, så de ikke skal være der? Her er ét eksempel, ret:
  SQL = \"SELECT TOP 1 * FROM news Where ID=\'\" & ID & \"\'\"
til
  SQL = \"SELECT TOP 1 * FROM news Where ID=\" & ID
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:05 #6
Hehe.. Jeg fatter bare nada.. Men hvad fanden jeg lære det vel en gang.. Jeg er kun 17, så jeg har da nogle år endnu.. hehe.. Godt at man kan få hjælp af nogle Proff´er..
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:06 #7
Jamen det er jo der hvor der står RET den hedder det.. Det er Slet funktion det er galt med..
Avatar billede erikjacobsen Ekspert
08. juli 2001 - 01:10 #8
Jamen, der har du også stroffer rundt om ID ... vi retter bare de små fejl vi ser
Avatar billede nuno Nybegynder
08. juli 2001 - 01:14 #9
<%@ 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><br>\"

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

End if

%>

<% if Request.QueryString(\"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\")
 
  %>

<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>

<%
  rs.Close
  set rs = Nothing

end if
%>



<% if Request.QueryString(\"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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

end if


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

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

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


<% elseif request.querystring(\"mode\") = \"sure\" then %>

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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 ID defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT * FROM news Where ID=\" & ID
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>




--------------
prøv ovenstående......... har ikke tjekket hele koden igennem - men har lagt mærke til at du har en del context-shifts (<% %>) hvor du fx afslutter et script med %> og starter et nyt lige efter med <% selv om du ikke har konventionel html ind imellem - dvs. det er TOTALT overflødigt med de pågældende context-shifts....

det virker - ja.... men det er overflødigt - og det gør ikke afviklingen af asp-scripts\'ne hurtigere...


/nuno
Avatar billede nuno Nybegynder
08. juli 2001 - 01:16 #10
jeg har rettet et par if-sætninger - som ikke var konstrueret helt efter bogen... og har også rettet de request.querystring(\"mode\") problemer samt \'-problemer som erikjacobsen har påpeget...
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:18 #11
Hmmmm..

Nu ser filen således ud.. Og det virker stadig ikke.. Hmm


<%@ 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><br>\"

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif Request.QueryString(\"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\")
 
  %>

<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>

<%
  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 * 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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Where (ID = \" & ID & \")\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif Request.QueryString(\"mode\") = \"sletaktuel\" then %>

<%

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

%>

<%

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


<% elseif request.querystring(\"mode\") = \"sure\" then %>

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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 ID defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT * FROM news Where ID=\'\" & ID & \"\'\"
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Nyheden ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>




</BODY>
</HTML>
Avatar billede nuno Nybegynder
08. juli 2001 - 01:22 #12
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

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><br>\"

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

End if

%>

<% if Request.QueryString(\"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\")
 
  %>

<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>

<%
  rs.Close
  set rs = Nothing

end if
%>



<% if Request.QueryString(\"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>

<%


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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

end if


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

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

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


<% elseif request.querystring(\"mode\") = \"sure\" then %>

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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

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

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>


-------

opdagede at du har defineret dine konstanter
Const adOpenKeyset = 1
Const adLockOptimistic = 3

2 steder - det mås man ikke :)

så derfor ovenstående rettelse


/nuno
Avatar billede nuno Nybegynder
08. juli 2001 - 01:24 #13
HOV - du skal kopiere HELE den kode\"stump\" jeg har smidt ind - ellers virker det ikke - for du har ikke alle rettelserne med kan jeg se.....

derfor: kopier HELE den kodesekvens som jeg har posted - og erstat din egen med den!

/nuno
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:31 #14
Det synes jeg også jeg gjorde.. Prøver lige igen
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:32 #15
Tjek lige http://212.242.78.47

Det virker stadig ikke.. :(
Avatar billede nuno Nybegynder
08. juli 2001 - 01:33 #16
lige en kommentar til - så kunne det (istedet for alle de if-sætninger) laves noget mere elegant og nemt med en

<%

Select Case request.querystring(\"mode\")

  Case \"add\"
    \' kode for add her

  Case \"save\"
    \' kode for save her

  Case \"redi\"
    \' kode for redi her

  Case \"aktuel\"
    \' kode for aktuel her - osv. for alle de resterende muligheder

End Select

%>


/nuno
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:35 #17
Jeps.. Det prøver jeg næste gang.. I er sku så flinke her på eksperten.. Jeg må gi´ bajer en dag..
Avatar billede nuno Nybegynder
08. juli 2001 - 01:35 #18
hmm linie 295 - post lige de sidste 20 linier af din kode....

Avatar billede jens_k Nybegynder
08. juli 2001 - 01:36 #19
d if


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

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

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

%>


<% elseif request.querystring(\"mode\") = \"sure\" then %>

<%

\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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

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

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>
Avatar billede nuno Nybegynder
08. juli 2001 - 01:40 #20
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

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><br>\"

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

End if

%>

<% if Request.QueryString(\"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\")
 
  %>

<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>

<%
  rs.Close
  set rs = Nothing

end if
%>



<% if Request.QueryString(\"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>

<%


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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

end if


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

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

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

end if

if request.querystring(\"mode\") = \"sure\" then


\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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

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

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>


---------

prøv nu.... havde overset en elseif.....
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:41 #21
Tjek lige http://212.242.78.47

Det virker stadig ikke.. hehe
Avatar billede nuno Nybegynder
08. juli 2001 - 01:46 #22
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

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><br>\"

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

End if
End if
%>

<% if Request.QueryString(\"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\")
 
  %>

<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>

<%
  rs.Close
  set rs = Nothing

end if
%>



<% if Request.QueryString(\"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>

<%


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 %>




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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

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

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

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

end if


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

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

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font color=\'984A46\' size=\'3\' face=\'Verdana\'>\"
  response.write \"<b>Slet tur</b><br>\"
  response.write \"<font size=\'2\'>\"
  response.write \"Du er ved at slette Nyheden \'\" & overskrift & \"\'. Hvis du vælger at fortsætte vil nyheden blive slettet - er du sikker på du vil fortsætte?<p>\"
  response.write \"<a href=\'nyhed.asp?mode=sure&id=\" & ID & \"&overskirft=\" & overskrift & \"\'>Ja, jeg vil slette denne nyhed</a><br>\"
  response.write \"<a href=\'\'>Nej, tilbage til Admin menuen</a><br>\"
  response.write \"</td></tr>\"

end if

if request.querystring(\"mode\") = \"sure\" then


\'TipID hentes
  ID = Request.QueryString(\"id\")
  overskrift = Request.QueryString(\"overskrift\")

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

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

  ID = RS(\"ID\")
  rs.Delete
  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

%>

<tr><td width=400 colspan=2>
<font color=\"984A46\" size=\"3\" face=\"Verdana\">
<b>Slet Dagens Tip</b><br>
<font size=\"2\">
Du har nu slettet nyheden \'<% =overskrift %>\' fra databasen. Tippet vil derfor ikke længere blive vist på forsiden.<br>
</td></tr>

<% end if %>

</table>

</body>
</html>


---------------

der manglede en End if højere oppe i koden - fordi der var en if inde i en if sætning som ikke var afsluttet.....

prøv nu...

/nuno
Avatar billede nuno Nybegynder
08. juli 2001 - 01:47 #23
well - det er sengetid her..... skal nok prøve at kigge igen i morgen aften - hvis der ikke er andre der har hjulpet dig ud før - hvis du da stadig ikke har fået det til at virke.... go\' nat :)

/nuno
Avatar billede jens_k Nybegynder
08. juli 2001 - 01:48 #24
Hmm.. Det virker stadig ikke.. Men du har tålmodig af helvede til må man sige.. jeg laver lige sådan at du kan tage View Source og så SAVE.. Så kan du selv prøve.. Så er du fri for at vente på mig..
Avatar billede nuno Nybegynder
08. juli 2001 - 10:52 #25
well - jeg kan da se på din side, at du er nået et stykke længere end før - nu er der i hvert fald ingen syntaks fejl... så mangler vi bare \"det sidste\".

og ja - jeg er tålmodig :)

/nuno

Avatar billede jens_k Nybegynder
08. juli 2001 - 12:02 #26
Ja.. Jeg har bøvlet lidt med det.... Øhh.. Du bruger vel ICQ.. Og jeg tænkte om det ikke ville være lidt lettere end det her.. Mit ICQ nr er 10862017...
Avatar billede jens_k Nybegynder
08. juli 2001 - 12:02 #27
Jeg tror lige at jeg afsætter nogle flere point..
Avatar billede jens_k Nybegynder
08. juli 2001 - 12:09 #28
Hmm nu er jeg ved at være tæt på en løsning.. Tjek lige http://212.242.78.47

Du kan tage VIEW SOURCE og se det hele..
Avatar billede nuno Nybegynder
08. juli 2001 - 13:33 #29
jeg kan ikke rigtig se noget brugbart med view source - fordi asp bliver kørt server side - og jeg kan kun se det html som asp script enginen genererer....

men du skal have en

ID = RS(\"ID\")

i følgende kodestump (under \"slet\")

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

<tr><td width=400 colspan=2>
<font color=\'984A46\' size=\'3\' face=\'Verdana\'>
<b>Slet Dagens Tip</b><br>
<font size=\'2\'>
Følgende Nyheder er gemt i Databasen<p>
</td></tr>

<%

\'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 Overskrift\"
set RS = conn.execute( SQL )

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

Else

  do while not RS.eof

  overskrift = RS(\"overskrift\")
  forfatter = RS(\"forfatter\")
  news = RS(\"news\")
  ID = RS(\"ID\")

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

  rs.movenext
  loop

\'Databasen lukkes
set conn = Nothing
rs.close

end if



---------

den er ikke kommet med - og der er aldrig nogen ID værdi i de querystrings du bruger efterfølgende - det eneste du behøver at gøre er at indsætte ID = RS(\"ID\") dér hvor jeg har sat det ind - andet er ikke ændret...

så må vi se hvor langt vi så når ;)

/nuno
Avatar billede jens_k Nybegynder
08. juli 2001 - 14:05 #30
WEEEEEEEEEEE... Nu virker min slet funktion.. Men jeg har lige fundet ud af at når jeg vælger Redigere.. Så henter den fint dataerne..Men når jeg trykker Save gemmer den dem ikke.. :(
Avatar billede jens_k Nybegynder
08. juli 2001 - 14:09 #31
Og nu kommer den med en ASP fejl.. hehe.. Er du frisk på at finde ud af hvad jeg gør galt ?
Avatar billede nuno Nybegynder
08. juli 2001 - 19:04 #32
jep - jeg er frisk... :)

Avatar billede nuno Nybegynder
08. juli 2001 - 20:57 #33
hvilken asp fejl får du?
Avatar billede jens_k Nybegynder
08. juli 2001 - 21:07 #34
Hmm tjek http://212.242.78.47
Avatar billede nuno Nybegynder
08. juli 2001 - 21:47 #35
jeg ved ikke om du har ændret yderligere kode end det jeg har posted..... men

aktuel og ret sekvenserne har jeg rettet til dette:




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

<%

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

%>

<form method=\"POST\" action=\"news.asp?mode=ret&id=<%=ID%>\">

<%

  \'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\")
 
  %>

<P align=center><br>
Overskrift : <INPUT name=overskrift style=\"HEIGHT: 22px; WIDTH: 199px\" value=\"<%=overskrift%>\">&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\"><%=news%></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

end if
%>



<% if Request.QueryString(\"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>

<%
ID = request.querystring(\"id\")

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\") = request.form(\"overskrift\")
  rs(\"forfatter\") = request.form(\"forfatter\")
  rs(\"news\") = request.form(\"news\")

  rs.Update
  rs.Close

Set rs = Nothing
Set conn = Nothing

end if %>






----------------

så får du den gemte tekst med frem i formens felter når du skal rette - og så har jeg tilføjet en request.form til både både overskrift, forfatter og news - når data gemmes (rettes) - og jeg har tilføjet en querystring (id) så den kan finde ud af hvilken news-record der skal rettes i \"ret\".

/nuno
Avatar billede jens_k Nybegynder
09. juli 2001 - 15:42 #36
Nuno.. Jeg har fundet fejlen.. Når jeg sumbiter den hiver den ikke dataerne med.. Og der manglede </form> så jeg lavede det om til Request.Form.. Så nu køre det.. Tak for din store tålmodighed og din hjælp.. Du får hermed de 100 point..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »