Hjælp !

<%@ LANGUAGE=\"VBScript\" %>
<!--#INCLUDE FILE=\"dbadgang.asp\" -->
<% Response.Expires = 0 %>

<HTML>
<HEAD>
<TITLE>SeniorNet</TITLE>
</HEAD>
<BODY>

<% If Request.QueryString(\"slet\")=\"\" then

    \'Aabner databasen
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open DBCon


    \' SQL forespørgsel
    strSQL = \"Select * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")
   
    set rs = my_Conn.Execute(strSQL)
   
       
%>

<% ID = rs(\"KalenderID\") %>

<h1 ALIGN=\"left\">Kalender Oversigt</h1>

<HR>
<p ALIGN=\"left\"><size=\"+1\">Overskrift<b><%=rs(\"Overskrift\")%></B></font></p>
<p ALIGN=\"left\"><size=\"+1\">Besked<b><%=rs(\"Besked\")%></B></font></p>
<HR>
<p ALIGN=\"left\"><size=\"+1\">Indtastet den:<b><%=rs(\"Tidspunkt\")%></B></p>
<P ALIGN=\"left\"><size\"+1\">Indtastet af:<b><%=rs(\"BeboerID\")%></B></font></p>
<hr>
<p ALIGN=\"left\">


<form>
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</form>


<FORM ACTION=\"slet_indtast.asp\">
<input type=\"submit\" value=\"Tilbage\">
</FORM>

<% else
 
    \'Aabner databasen
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open DBCon

    \' SQL forespørgsel
    strSQL = \"Delete * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

    set rs = my_Conn.Execute(strSQL)

    my_conn.Close
    Set my_Conn = Nothing
%>   

<% end if %>

</BODY>
</HTML>

virker ikke:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket \"KalenderID =\".

/ASP/seniornet/DIVERSE/slet.asp, linje 58

Sorry... den virker ikke.... 2 sek..

Hvis ID er numerisk:
strSQL = \"delete * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

Hvis ID er et tekstfelt:
strSQL = \"delete * From Kalender Where KalenderID = \'\" & Request.Querystring(\"ID\") & \"\'\"


   
   

Din sql streng ser lidt forkert ud.
Du skal nok have et hidden felt i din form med kalenderid\'et så det kan føres vidre over i slette processen.
<form action=\"pagename.asp\">
<input type=\"hidden\" value=\"<% request(\"ID\") %>\" name=\"ID\">
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</form>

Derefter benytter du dette id i din sqlstreng:

strSQL = \"Delete * From Kalender Where KalenderID = \"& request.form(\"ID\") &\";\"

Prøv den her :



<%@ LANGUAGE=\"VBScript\" %>
<!--#INCLUDE FILE=\"dbadgang.asp\" -->
<% Response.Expires = 0 %>

<HTML>
<HEAD>
<TITLE>SeniorNet</TITLE>
</HEAD>
<BODY>

<%

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon


\' SQL forespørgsel
strSQL = \"Select * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

set rs = my_Conn.Execute(strSQL)

ID = rs(\"KalenderID\")

If Request.QueryString(\"slet\")=\"\" then
%>
<h1 ALIGN=\"left\">Kalender Oversigt</h1>

<HR>
<p ALIGN=\"left\"><size=\"+1\">Overskrift<b><%=rs(\"Overskrift\")%></B></font></p>
<p ALIGN=\"left\"><size=\"+1\">Besked<b><%=rs(\"Besked\")%></B></font></p>
<HR>
<p ALIGN=\"left\"><size=\"+1\">Indtastet den:<b><%=rs(\"Tidspunkt\")%></B></p>
<P ALIGN=\"left\"><size\"+1\">Indtastet af:<b><%=rs(\"BeboerID\")%></B></font></p>
<hr>
<p ALIGN=\"left\">


<form>
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</form>


<FORM ACTION=\"slet_indtast.asp\">
<input type=\"submit\" value=\"Tilbage\">
</FORM>

<% else

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel
strSQL = \"Delete * From Kalender Where KalenderID = \" & ID
set rs = my_Conn.Execute(strSQL)

my_conn.Close
Set my_Conn = Nothing
%>

<% end if %>

</BODY>
</HTML>

Svar

kan stadigvæk ikke få det til at virke, sådan ser siden ud hvor Id\'et kommer fra :
-------------------------------------------------
<%@ LANGUAGE=\"VBScript\" %>
<!--#INCLUDE FILE=\"dbadgang.asp\" -->
<% Response.Expires = 0 %>

<%

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon


\' SQL forespørgsel
strSQL = \"SELECT * FROM Kalender ORDER BY Tidspunkt Desc\"

\' Udfør forespørgsel (rs indeholder nu resultatet)
set rs = my_Conn.Execute(strSQL)

%>

<HTML>
<HEAD>
<TITLE>SeniorNet</TITLE>

</HEAD>
<BODY>

<TABLE WIDTH=\"100%\" HEIGHT=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR ALIGN=\"center\">
    <TD WIDTH=\"25%\"></TD>
    <TD WIDTH=\"50%\">




<FONT SIZE=\"-1 ALIGN=\"left\">Kalender Oversigt</h1>
<%
IF rs.EOF THEN
%>
<b>Der er ikke registrede nogle aktiviteter</b>
<%
ELSE
%>

<TABLE BORDER=\"0\" WIDTH=\"100%\" CELLPADDING=\"0\" CELLSPACING=\"0\">
<TR BGCOLOR=\"#808080\">
    <TH>Overskrift</TH>
    <TH>Oprettet den:</TH>
    <TH>Oprettet af:</TH>
   
</TR>


<%
WHILE NOT rs.EOF
%>

<TR ALIGN=\"center\">
    <TD>&nbsp;<a href=\"slet.asp?ID=<%=rs(\"KalenderID\")%>\"><%=rs(\"Overskrift\")%></a></TD>
    <TD>&nbsp;<%=rs(\"BeboerID\")%></TD>

    <TD>&nbsp;<%=rs(\"Tidspunkt\")%></TD>
</TR>

<%
rs.MoveNext
WEND
%>
</TABLE>
<%
END IF

      \' Rydder op i vores connection objekt
        my_Conn.Close
        set my_Conn = Nothing

%>




</TD>
    <TD WIDTH=\"25%\"></TD>
</TR>
</TABLE>


</BODY>
</HTML>

Hvilken fejl får du ?
Prøv at starte med at skrive følgende på slette siden
response.write request(\"ID\")
response.end
for at tjekke om du får ID feltet ført rigtigt over.

se http://www.eksperten.dk/spm/142305 for mere information !

Har selv fundet løsningen ! svaret er sessions
----------------------------------------------
<%@ LANGUAGE=\"VBScript\" %>
<!--#INCLUDE FILE=\"dbadgang.asp\" -->
<% Response.Expires = 0 %>

<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>SeniorNet</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"stylesheet\" href=\"../css/ramme_iframe.css\" type=\"text/css\">
</HEAD>
<BODY>

<% If Request.QueryString(\"slet\")=\"\" then


    \'Aabner databasen
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open DBCon
   

    \' SQL forespørgsel
    strSQL = \"Select * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

    set rs = my_Conn.Execute(strSQL)

    session(\"ID\")= rs(\"KalenderID\")

%>

<h1 ALIGN=\"left\">Kalender Oversigt</h1>

<HR>
<%= session(\"ID\") %>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100\" align=\"left\"><b>Overskrift:</b></td>
    <td><%=rs(\"Overskrift\")%></td>
  </tr>
  <tr>
    <td width=\"100\" align=\"left\">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width=\"100\" align=\"left\" valign=\"top\"><b>Dato:</b></td>
    <td align=\"left\">&nbsp;</td>
  </tr>
  <tr>
    <td width=\"100\" align=\"left\" valign=\"top\">&nbsp;</td>
    <td align=\"left\">&nbsp;</td>
  </tr>
  <tr>
    <td width=\"100\" align=\"left\" valign=\"top\"><b>Besked:</b></td>
    <td align=\"left\"><%=rs(\"Besked\")%></td>
  </tr>
</table>

<br>
<HR>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100\"><b>Indtastet den:</b></td>
    <td><%=rs(\"Tidspunkt\")%></td>
  </tr>
  <tr>
    <td width=\"100\">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width=\"100\"><b>Indtastet af:</b></td>
    <td><%=rs(\"BeboerID\")%></td>
  </tr>
</table>

<br>
<HR>

<FORM>
  <table width=\"200\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"30\">
        <input type=\"hidden\" value=\"<%= ID %>\" name=\"ID\">
      </td>
      <td width=\"85\" align=\"center\" valign=\"middle\">
        <input type=\"submit\" value=\"Slet\" name=\"Slet\">
      </td>
      <td width=\"85\" align=\"center\" valign=\"middle\">
        <input type=\"button\" value=\"Tilbage\" onClick=\"location.href=\'slet_indtast.asp\';\" name=\"button\">
      </td>
    </tr>
  </table>
  </form>


<% else
 
    \'Aabner databasen
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open DBCon

    \' SQL forespørgsel
   
    strSQL = \"Delete * From Kalender Where KalenderID = \" & session(\"ID\") &\";\"
   
    set rs = my_Conn.Execute(strSQL)

    my_conn.Close
    Set my_Conn = Nothing
%>   

Aktiviteten er slettet
<form>
  <table width=\"200\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"30\">&nbsp;</td>
      <td width=\"85\" align=\"center\" valign=\"middle\">
        <input type=\"button\" value=\"Tilbage\" onClick=\"location.href=\'slet_indtast.asp\';\" name=\"button2\">
      </td>
      <td width=\"85\" align=\"center\" valign=\"middle\">&nbsp;</td>
    </tr>
  </table>
  </form>

<% end if %>

<%

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

strSQL = \"Select  * From Kalender order by KalenderID desc\"

set rs = my_conn.execute(strSQL)

%>

<br>
<br>
<%
if rs.EOF then

Response.write \"Der er ingen aktiviteter i Kalenderen\"
%>

<b>Kalender Oversigt</b>

<%

else

Do Until rs.EOF

\'Tekst
BS= rs(\"Besked\")
\'Hvormeget skal der vises af teksten
Bk = Left(BS,15)
\'Overskrift
OS = rs(\"Overskrift\")

Response.write \"<b>\" &  OS & \"</b>\"
Response.write \"<br>\"
Response.write \"<br>\"
Response.write \"\" &  BK & \"\"
Response.write \".............\"
Response.write \"<br>\"
Response.write \"<A HREF=test.asp?id=\" & rs(\"KalenderID\") & \">Læs mere her........</A>\"
Response.write \"<HR SIZE=1 COLOR=Black>\"
RS.MoveNext
                           
Loop                   

end if

my_conn.Close
Set my_conn = Nothing
%>
</BODY>
</HTML>

xx

Jeg vil gerne takke alle som har forsøgt at hjælpe mig, men da jeg er helt ny her på eksperten er jeg kommet til at fucke det med pointene op !

Håber ikke

........ at ikke det vil ødelægge min chance for at få hjælp en anden gang - undskyld