Problemer med delete!

strSQL="SELECT * FROM Links WHERE ID > 3"
    objRS.Open strSQL, objDC, 3, 3

Hmm, din overskrift svarer ikke helt til din beskrivelse, hvad er det du vil ??

//akj

Hvad så med
'" & Request.QueryString("ID") & "'"

Ja, det ser jeg først nu. Sikke noget sludder, men sådan er det jo når man har mange forskellige ting i hovedet på samme tid. :)
Jeg har en DB. med ID 1,2,3,4 osv. men ønsker at man ikke skal kunne slette ID'et med 1, 2, 3.
Rene

strSQL="delete * FROM Links WHERE id > 3 and ID = " & Request.QueryString("ID")

Jeg har fjernet enkeltplinger (') omkring id da det vel er et tal.

//akj

øhhhh... må jeg lige pointere at hvis du specificerer en ID, så er det der id > 3 fuldstændigt ligegyldigt.

ID = Request.QueryString("ID")
If ID > 3 Then
strSQL="SELECT * FROM Links WHERE ID ='" & Request.QueryString("ID") & "'"
    objRS.Open strSQL, objDC, 3, 3
  Else
    'Det den skal gøre vis ID er under 3
End If

Lidt bedre kode...
ID = Request.QueryString("ID")
If ID > 3 Then
    strSQL = "SELECT * FROM Links WHERE ID = ID
    objRS.Open strSQL, objDC, 3, 3
  Else
    'Det den skal gøre vis ID er under 3
End If

happycow >> Der er du da vist galt på den. Sql'en vil kun slette de records hvor id = request.querystrin("id") OG id > 3.

//akj

Mange tak for hjælpen, håber en af jer kan hjælpe yderligere?
Jeg skal nok sætte pointene op til 60.

ID = Request.QueryString("ID")
        If ID > 3 Then strSQL = "SELECT * FROM Links WHERE ID = ID"
        objRS.Open strSQL, objDC, 3, 3

Nu har jeg selvfølgelig problemer herunder, hvordan ændrer jeg i dette?
 
    If Request.QueryString("action") = "deletenow" then
   
    objRS("ID") = Request.QueryString("ID")
    objRS.delete adAffectCurrent

Mvh.
Rene

Jeg ønsker at kunne delete, bare ikke ID'erne 1,2,3.

dim conn, strConn
strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn

If Request.QueryString("action") = "deletenow" then
    ID = Request.QueryString("ID")
    If ID > 3 Then strSQL = "SELECT * FROM Links WHERE ID = " & ID
        conn.execute (strsql)
    end if
end if

Hej dk akj!
Det du ser nedenunder er hvad jeg bruger for øjeblikket, når jeg implementerer dit script fungerer det ikke?
Kan du hjælpe?
Mvh.
Rene
<%
    strSQL="SELECT * FROM Links WHERE ID = '" &        Request.QueryString("ID") & "'"
    objRS.Open strSQL, objDC, 3, 3

    If Request.QueryString("action") = "deletenow" then
   
    objRS("ID") = Request.QueryString("ID")
    objRS.delete adAffectCurrent
       
    objRS.Close
    objDC.Close
   
    Response.Redirect "display.asp?action=deleted"
   
    End if
%>

Problemet er jo bare, at som det fungerer for øjeblikket er det muligt at slette alle ID'erne.

<%
' her checkes om id > 3, er den det skal id slettes
if Request.QueryString("ID") > 3 then
    strSQL="SELECT * FROM Links WHERE ID = '" &        Request.QueryString("ID") & "'"
    objRS.Open strSQL, objDC, 3, 3

    If Request.QueryString("action") = "deletenow" then
   
    objRS("ID") = Request.QueryString("ID")
    objRS.delete adAffectCurrent
       
    objRS.Close
    objDC.Close
   
    Response.Redirect "display.asp?action=deleted"
   
    End if
end if
%>

Mange tusind tak, det fungerer næsten perfekt? Jeg kan nu naturligvis ikke slette ID'erne 1,2,3, men jeg får en fejlmeddelse:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

delete.asp, line 27

Sådan her ser hele scriptet ud:

<%
' her checkes om id > 3, er den det skal id slettes
if Request.QueryString("ID") > 3 then
    strSQL="SELECT * FROM Links WHERE ID = '" & Request.QueryString("ID") & "'"
    objRS.Open strSQL, objDC, 3, 3

    If Request.QueryString("action") = "deletenow" then
        objRS("ID") = Request.QueryString("ID")
    objRS.delete adAffectCurrent
      Else Response.Write"Bannere med ID'et 1,2,3 kan ikke slettes."
 
 
    objRS.Close
    objDC.Close
   
    Response.Redirect "display.asp?action=deleted"
    End if
    End if
%>    <body background="<% =Baggrund %>">
<form method="POST" action="delete.asp?action=deletenow&ID=<%= objRS("ID") %>">
<p><font size="2">Ønsker du at slette dette banner?&nbsp;<b><%= objRS("ID") %></b>. Så skriv det ind i
boksen forneden.</font></p>
<p><b>ID: <input type="text" name="ID" size="9"></b></p>
<p><input type="image" src="buttons/slet-banner-button.jpg" action="submit" name="B1">&nbsp;&nbsp;
<input type="image" src="buttons/slet-alt-button.jpg" action="reset" name="B2">
</p>
</form>
Kan du løse mit problem, hæver jeg pointene til 100.

Jeg tror måske du har grebet opgaven lidt forkert an.

Har du en liste med billeder/bannere hvor du vil klikke på et billed og så skal den slettes hvis id er > 3 ??

//akj

Lige nøjagtigt.

Men burde det ikke kunne lade sig gøre at køre ovenstående script, hvor hvis brugeren forsøger at slette banner med ID 1,2 eller 3, får en meddelse om at dette ikke kan lade sig gøre?

Når du sletter en række i linie 6 kan du jo ikke referere til den i linie 27, det er fejlen.

Hvordan trækker du listen med bannere ud ??

<%
    Dim path, objDC, objRS, strSQL
   
'@@@@@@@@@@@@@@@@@@@@ RET KUN I DENNE @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

    path=Server.Mappath("db/data.mdb")

'@@@@@@@@@@@@@@@@@@@@ NOT THE PHYSICAL PATH @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

    Set objDC = Server.CreateObject("ADODB.Connection")
    objDC.Open "DBQ=" & path & ";Driver={Microsoft Access Driver (*.mdb)};"
        Set objRS = Server.CreateObject("ADODB.Recordset")
%>

Jeg ville lave det sådan :

Denne fil skal hedde delete.asp

<%
' forbind til databasen
path=Server.Mappath("db/data.mdb")
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.Open "DBQ=" & path & ";Driver={Microsoft Access Driver (*.mdb)};"

' slet et evt banner
if Request.QueryString("ID") > 3 then
    strSQL="delete * FROM Links WHERE ID = '" &        Request.QueryString("ID") & "'"
    objDC.execute(strSQL)
response.write Request.QueryString("ID") & " er slettet !!"
end if

' hent alle rækker hvor id > 3
set rs = objDC.execute("select * from links where id > 3")

' lav liste med bannere udfra data vi lige hentede i databasen
if not rs.eof then
    do while not rs.eof
        response.write "<a href=delete.asp?id=" & rs("id") & "> Slet nr "& rs("id") & "</a><br>"
        rs.movenext       
    loop
end if


%>

Nu får jeg denne fejl!

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/ener1/ny-slet.asp, line 17

Her er linie 17:

set rs = objDC.execute("select * from Links where id > 3")

ret til:

set rs = objDC.execute("select * from Links where id > '3'")

Fordi id feltet åbenbart er en text.

//akj

Ja, så er jeg vendt tilbage. Mange tak for din store hjælp!!
Jeg kvitterer hermed med pointene.

Iøvrigt lige et spørgsmål? Er det muligt at trække ud af DB. i en tabel noget a'la

<tr>
<td></td><td></td>
</tr>
<tr>
<td></td><td></td>
</tr>
Håber du forstår hvad jeg mener?
Altså 2 kolonner i række 1
2 kolonner i række 2 osv...
Mvh.
Rene

Hvorfor jeg spørger er fordi jeg har lagt billeder på, istedet for tekst.(det gør det lidt pænere)

ja,


Erstat det jeg har skrevet med stort med de aktuelle tabeller og feltnavne
sql = "select * from TABELNAVN"
set rs = conn.execute (sql)

if not rs.eof then
  do while not rs.eof
  response.write "<tr>"
  response.write "<td>" & rs("FELT_1") & "</td>"
  response.write "<td>" & rs("FELT_2") & "</td>"
  response.write "</tr>"
  rs.movenext
  loop
end if

Mange tak for din store hjælp!!
Rene