Request Query!

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") %\>&nbsp;\<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.

Testa det du fick via ICQ... ;)

------------------
// Palleman
www.wiicom.nu/palle