Testa det du fick via ICQ...
Nu är det tänkt att jag ska ha en sida som det ska finnas spelfusk som man ska kunna ta bort.. koden jag skrivit för det är:
<% If Request.QueryString("del") = "fusk" Then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\databas\default.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT * FROM Fusk ORDER BY Namn"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic %>
Dessa fusk finns i databasen.\<p\>
\<ul\>
<% Do Until RecSet.EOF %>
\<li\>\<% =RecSet("Namn") %\> \<b\>\<br\>
\<a href="sida.asp?fudel=\<% =RecSet("ID") %\>"\>Radera detta fusk\</a\>
\<hr noshade size="1" width="250" align="left"\>
<% RecSet.MoveNext
Loop
RecSet.Close %>
<% End If %>
Koden som ska ta emot detta är:
<% If Request.QueryString("fudel")
= "id:t" Then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\databas\default.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT * FROM Fusk WHERE ID = " & Request.QueryString("ID") & " "
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic
RecSet.Delete
RecSet.Close
Connect.Close %\>
<% End If %>
Vad jag nu inte riktigt har hajat är hur jag ska kunna få ID:t i ifsatsen ändras efter länked den kommer från.