Fejl i asp script ved delete af indlæg
Når jeg skal delete et indlæg i denne gæstebog, bliver man rederiktet til admin.html, som er login siden.Er det en der kan se fejlen:
<%
Dim user, password
user = Request.Form("user")
password = Request.Form("password")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & ("minbase.mdb")&";"
Set RSlogin = connect.Execute("Select * From Login Where user = '"&user&"' And password = '"&password&"'")
If Not RSlogin.EOF Then
Session("inne") = True
%>
<head>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<table width="80%" border="0" cellspacing="0" cellpadding="3" align="center">
<tr>
<td class=rubrik>
Guestbook</td>
</tr>
</table><br>
<%
Response.buffer=True
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & ("minbase.mdb")&";"
set rsgast = connect.execute("select * from gastbok order by datum desc")%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class=ruta>
<tr>
<td class="linje"><b>Name</b></td>
<td class="linje"><strong>Date</strong></td>
<td class="linje"><b>ID</b></td>
<td class="linje"> </td>
</tr>
<% do until rsgast.eof = true%>
<tr>
<td><%=rsgast("Namn") %></td>
<td><font size="1"><strong><%=rsgast("datum") %></strong></font></td>
<td><font size="1"><strong><%=rsgast("id") %> </strong></font></td>
<td><a href="delgast.asp?action=tabort&id=<%=rsgast("id")%>">Delete</a></td>
</tr>
<%
rsgast.movenext
loop%>
</table>
<% If Request.QueryString("action") = "tabort" then
inttabort =request.QueryString("id")
connect.execute("delete from gastbok where id = " & inttabort )
response.Redirect("delgast.asp")
end if
%>
<%set rsgast=nothing
%>
<%
Else
Response.Redirect "admin.html"
RSlogin.Close
connect.Close
Set RSlogin = Nothing
Set connect = Nothing
End If
%>
