Frågan 15 mars 2004 08:17 #1 På admin ligger koden:
<%
Dim objConn, rs, SQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas_gastbok.mdb")
SQL="SELECT * FROM inlagg"
Set rs=objConn.execute(SQL)
Do until rs.EOF
%>
<b>Namn:</b> <%=rs("namn")%><br>
<b>Inl<pi>gg:</b> <%=rs("mess")%><br>
<a href="gastbok_tabort.asp?id=<%=rs("id")%>">Ta bort</a><p>
<%
rs.MoveNext
Loop
rs.Close : Set rs = nothing
objConn.Close : Set objConn = nothing
%>
och på gastbok_tabort.asp ligger:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas_gastbok.mdb")
SQL="select * from inlagg "%>
<% Radera = "SELECT * FROM inlagg WHERE id = "&Request.QueryString("id") & " "
%>
När jag ska ta bort ett inlägg så kommer jag bara till en vit sida, inga felmess eller nått.. Inget inlägg raderas heller.. Vad är det som är fel?
@nders Medlem sedan juni 2000 32 967 inlägg Du kör ju bara en SELECT, med vars resultat du gör ingenting, så det är ganska givet att inget raderas och inget skrivs ut.
SELECT hämtar, DELETE raderar.
M mrblonde Medlem sedan aug. 2001 2 349 inlägg Glöm inte bort att verifiera att den som vill ta bort ett inlägg verkligen får det. Annars kan ju vem som helts skriva in länken i sin webbläsare och pilla med querystringen och radera inlägg hejvilt.
Jag ändrade så nu är det:
<%
Nu står det och laddar hela tiden, den går aldrig vidare och tar bort inlägget..
@nders Medlem sedan juni 2000 32 967 inlägg Hur ser koden ut som ligger efter den koden du visar?
Det finns ingen mer kod.. Det där är det som ligger på gastbok_tabort.asp
@nders Medlem sedan juni 2000 32 967 inlägg Du exekverar inte SQL-frågan.
Jag löste det...
<%
Dim objConn, rs, SQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas_gastbok.mdb")
SQL="DELETE from inlagg where id=" & Request.Querystring("id")
objConn.Execute SQL,,128
objConn.Close
Set objConn=Nothing
%>
RED. Glöm inte [kod]-taggarna! //OveRRidE
