Ingen... line 23 är connect strängen och kollumen tid finns i databasen.
Att läsa posterna är inga problem.
Frågan#1
Jag har en iploggsida som ser ut som nedan. Men jag får inte det att fungera med att radera de 500 sista posterna i den och behöver lite hjälp. Jag får följande felmedelande fast jag ser inget fel:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access] Söknyckeln hittades inte i någon post.
/iplogg.asp, line 23
_____________________________________________________
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title>Min Sida</title>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000">
<p align="center"> </p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/db/admin.mdb")&";pwd=xxxxxxxx"
IF Request.Querystring("action") = "delete" Then
SQL = "DELETE FROM iplogg WHERE tid NOT IN (SELECT top 500 tid FROM iplogg ORDER BY tid DESC)"
Connect.Execute(SQL)
Response.Redirect "iplogg.asp"
ELSE
SQL = "SELECT * From iplogg ORDER BY tid DESC"
oldAction=Request.Querystring("action")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQL, Connect, 1, 3
RecSet.PageSize = 30
%>
</font><font face="Times New Roman" color="#FF0000" size="4">Check IP:</font>
</p>
<div align="center">
<table width="400" border="0" style="border: 1px solid #000000">
<tr>
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Ip:</font></u></b></td>
<td width="94"><b><u><font face="Verdana" size="1" color="#FF0000">Status:</font></u></b></td>
<td width="316"><b><u><font face="Verdana" size="1" color="#FF0000">Tid:</font></u></b></td>
</tr>
<%
X=0
If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("page"))
End If
RecSet.AbsolutePage = intPage
DO UNTIL RecSet.EOF OR X = RecSet.PageSize
%>
<tr>
<td width="74"><font face="Verdana" color="#000000" size="1">
<%=RecSet("username")%>
</font></td>
<td width="149"><font face="Verdana" color="#000000" size="1">
<%=RecSet("ip")%>
</font></td>
<td width="94"><font face="Verdana" color="#000000" size="1">
<p align="center">
<%=RecSet("loginstatus")%>
</font></td>
<td width="316"><font face="Verdana" color="#000000" size="1">
<%=RecSet("tid")%>
</font></td>
</tr>
<%
X=X+1
RecSet.MOVENEXT
LOOP
If RecSet.PageCount > 1 Then
For i = 1 To RecSet.PageCount
If i <> intPage Then
Response.Write("<a href=""?page=" & i & """>" & i &"</a> ")
Else
Response.Write("[" & i & "] ")
End If
Next
End If
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<br>
<A href="iplogg.asp?action=delete">Spara de 500 senaste, radera resten.
</table>
</div>
<%
END IF
%>