Vet nån vad det e för fel på det här scriptet du man får fel medelandet: Men det e ju fyra medlämmar och allt funkar som det ska med scriptet förutom att den där texten kommer nedanför det som funkar... Det finns inte så många poster i databasen som du försöker visa, testa såhär istället:Senaste online script hjälp!! // LÖST!!
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/muffinman/db/community/online2.asp, line 0
Scriptet:
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * FROM members ORDER BY datum DESC"
RecSet.Open Addera, Connect, adLockOptimistic
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="30;URL=online2.asp">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#E19631" text="#000000">
<table width="150">
<tr>
<td class="boxlook1" width="100%">
<table width="100%">
<tr>
<td class="boxlook7" width="100%"><p align="center"><b>Senast inloggade</b></p>
</tr>
</table>
Ur function!<br>
<%
X = 0
DO Until X = 6
X=X+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td width="100%"><font size="2" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">" target="main"> <%=RecSet("username")%><%If RecSet("status") = "offline" Then%>
<font color="#FF0000" size="2"><b>*</b></font>
<%Else%>
<font color="#009966" size="2"><b>*</b></font>
<%End If%> </font></td>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</tr>
</table>
</tr>
<table>
</body>
</html>Sv: Senaste online script hjälp!!
Alltså: allt funkar bra med alla script och sånt. Det enda jag vill är att den där texten ska bort!!
Scriptet funkar utmärk nästan alltså!!Sv: Senaste online script hjälp!!
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select TOP 5 * FROM members ORDER BY datum DESC"
RecSet.Open Addera, Connect, adLockOptimistic
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="30;URL=online2.asp">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#E19631" text="#000000">
<table width="150">
<tr>
<td class="boxlook1" width="100%">
<table width="100%">
<tr>
<td class="boxlook7" width="100%"><p align="center">Senast inloggade</p>
</tr>
</table>
Ur function!<br>
<%
DO Until RecSet.EOF
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td width="100%"><font size="2" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">" target="main"> <%=RecSet("username")%><%If RecSet("status") = "offline" Then%>
<font color="#FF0000" size="2">*</font>
<%Else%>
<font color="#009966" size="2">*</font>
<%End If%> </font></td>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</tr>
</table>
</tr>
<table>
</body>
</html>
/Johan