Øhhhhhhhh.............

Fil 1(Admin.Asp)
<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/arrangementer/data.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"Select * from arrangementer\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
Overskrift=Record(\"overskrift\")
Response.Write Overskrift & \"  \" & \"<A HREF=Delete.Asp?ToDel=\" & FixIt(Overskrift) & \">Slet\" & \"</A><BR>\"
Record.MoveNext
Loop
Record.Close

Function FixIt(Anything)
FixIt=Replace(AnyThing,\" \",\"%20\")
End Function
%>
<BR>
<BR>
<Form Action=\"Addnew.asp\" method=\"post\">
<B>Opret Arrangement:</B><BR>
Overskrift:<BR>
<Input type=\"text\" name=\"overskrift\">
<BR>
Tekst:<BR>
<textarea name=\"tekst\" rows=\"13\" cols=\"35\">
</textarea>
<BR>
<Input type=\"submit\" Value=\"Ok\">
</Form>

Fil2(Delete.asp)
<%
ToDel=Request.Querystring(ToDel)
Response.Buffer=\"true\"
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/arrangementer/data.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"DELETE * FROM arrangementer where overskrift=\'\" & ToDel & \"\'\"
response.write sql
Set Record =  Rs.Execute(Sql)
Rs.Close
%>


HVORFOR SIGER DEN:
Request-objekt fejl \'ASP 0102 : 80004005\'

Forventer streng som input

/arrangementer/Delete.Asp, linje 2

Funktionen forventer en streng som input.

??????????????????????