Notifikationer

Markér alle som læst Log ud

yuksel Nybegynder

08. november 2001 - 15:43 Der er 8 kommentarer og
1 løsning

hjælppppppp

jeg er igang med at lave en hjemmeside men jeg får denne fejl, (hvad betyder det og hvordan retter jeg den !!!!!!)

ADODB.Field error \'80020009\'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/arkadasdate/index.asp, line 0

Synes godt om

eagleeye Praktikant

08. november 2001 - 15:47 #1

det betyder du har åbet et tomt record set

if NOT (rs.BOF AND rs.EOF) then
Udskriv fra recordset
else
Response.write \"Ingen data i recordset\"
end if

Synes godt om

yuksel Nybegynder

08. november 2001 - 15:52 #2

hvor har jeg åbnet et tomt record set og hvordan lukker jeg den?? (er det i acces du mener)

Synes godt om

eagleeye Praktikant

08. november 2001 - 15:53 #3

Står der linier 0 ??

enten:
rs.open SQL, connection
eller:
set rs = connection.Execute(SQL)

Synes godt om

yuksel Nybegynder

08. november 2001 - 15:55 #4

databasen er lavet i acces. og siden som er lavet i asp dens kode ser sådan ud
<%
Option Explicit
Dim sql,intPage,rs,strSQL,strDSN,intRecCount,intNum,intPageCount,usercount,rsusername,username,sex,rsUser,rsUsers,rsMessages,newcount

username = Request.Cookies(\"username\")

if username <> \"\" then
%>

<%
sql = \"SELECT icon FROM Users WHERE username = \'\" & username & \"\'\"
Set rsUser = Server.CreateObject(\"ADODB.Recordset\")
rsUser.Open sql, conn, 3, 3

sql = \"SELECT messageread FROM messages WHERE sendto = \'\" & username & \"\'\"
Set rsMessages = Server.CreateObject(\"ADODB.Recordset\")
rsMessages.Open sql, conn, 3, 3

newcount = 0
if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
if rsMessages(\"messageread\") = False then
newcount = newcount + 1
end if
rsMessages.Movenext
loop
rsMessages.Movefirst
end if
end if

\'Count the amount of users

%>

<html>

<head>
<script language=\"JavaScript\">

</script>
<title>Arkadas hatti</title>

</head>

Synes godt om

eagleeye Praktikant

08. november 2001 - 16:02 #5

Jeg ved ikke om det hjælper men det er altid en god ide at lukke sit record set når man har brugt det:

newcount = 0
if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
if rsMessages(\"messageread\") = False then
newcount = newcount + 1
end if
rsMessages.Movenext
loop
rsMessages.Movefirst
end if
end if
rsMessages.Close

Hvis det da ikke kommer senere i filen

Synes godt om

yuksel Nybegynder

08. november 2001 - 16:04 #6

der kommer mere i koden det hele kommer til at se sådan ud ::

<%
Option Explicit
Dim sql,intPage,rs,strSQL,strDSN,intRecCount,intNum,intPageCount,usercount,rsusername,username,sex,rsUser,rsUsers,rsMessages,newcount

username = Request.Cookies(\"username\")

if username <> \"\" then
%>

<%
sql = \"SELECT icon FROM Users WHERE username = \'\" & username & \"\'\"
Set rsUser = Server.CreateObject(\"ADODB.Recordset\")
rsUser.Open sql, conn, 3, 3

sql = \"SELECT messageread FROM messages WHERE sendto = \'\" & username & \"\'\"
Set rsMessages = Server.CreateObject(\"ADODB.Recordset\")
rsMessages.Open sql, conn, 3, 3

newcount = 0
if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
if rsMessages(\"messageread\") = False then
newcount = newcount + 1
end if
rsMessages.Movenext
loop
rsMessages.Movefirst
end if
end if

\'Count the amount of users

%>

<html>

<head>
<script language=\"JavaScript\">

</script>
<title>Arkadas hatti</title>

</head>

<body bgcolor=\"#FFFFFF\" alink=\"#FFFFFF\" >
<table align=\"center\" border=\"0\" width=\"923\">
<tr>
<td width=\"122\" valign=\"top\" height=\"60\" style=\"border:1px none #FFFFFF; \" bgcolor=\"#FFFFFF\">
 
</td>
<td valign=\"top\" width=\"770\" height=\"60\" style=\"border-width:2; border-color:black; border-style:solid;\" bgcolor=\"#F8BC07\">
 
                
Arkadas Hatti 

                                                                                                     www.ArkadasHatti.com
©
</td>
</tr>
<tr>
<td width=\"124\" valign=\"top\" height=\"26\">


</td>
<td valign=\"top\" align=\"center\" width=\"789\" height=\"26\">

 
</td>
</tr>
<tr>
<td width=\"120\" height=\"58\" valign=\"top\" bgcolor=\"#F8BC07\" style=\"border-width:2; border-color:black; border-style:solid;\">

<div align=\"center\">
<center>
<table cellspacing=0 bordercolordark=\"#FFFFFF\" bordercolorlight=\"#000000\" cellpadding=\"0\" bgcolor=\"#F8BC07\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" height=\"267\">
<%
if username = \"\" then%>
<tr>
<th bgcolor=\"#EF8F2B\" width=\"123\" height=\"16\">
Login</th>
</tr>
<tr>
<form name=\"login\" action=\"signin.asp\" method=\"post\">
<input type=\"hidden\" name=\"page\" value=\"index.asp\">
<td align=\"center\" bgcolor=\"#F8BC07\" width=\"123\" height=\"152\">

Kulanici Isim: <input type=\"text\" name=\"username\" size=\"15\" style=\"font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;\"> 
Password : <input type=\"password\" name=\"password\" size=\"14\" style=\"font-size: 8pt; font-family: Arial, Helvetica, sans-serif;\"> 
Hatirla beni : <input type=\"checkbox\" name=\"stayloggedin\" value=\"yes\"> 
<input type=\"submit\" value=\"Login\" style=\"font-size: 8pt; font-family: Arial, Helvetica, sans-serif;\"> 
<a href=\"signupform.asp\">
Üye Olmak istiyorum!!!!!</a>
 </td>
</form>
</tr>
<%
else%>
<tr>

<td width=\"123\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"black\" width=\"123\" style=\"border-width:1; border-color:white; border-style:solid;\" height=\"21\">


Kulanici:
<%=username%>
</td>
</tr>
<tr>
<td bgcolor=\"#F8BC07\" width=\"123\" bordercolor=\"#F8BC07\" height=\"78\">

 
<img src=\"icons/<%=rsUser(\"icon\")%>.gif\" width=50 height=50 align=\"right\">
 logonuz
  --> 
 









</td>
</tr>
<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if
%>
</table>

</center>
</div>

</td>
<td height=\"58\" valign=\"top\" width=\"789\">

<table align=\"center\" border=\"0\" width=\"739\">
<tr>
<td bgcolor=\"#F8BC07\" width=\"355\" height=\"353\" style=\"border-color:black; border-top-style:solid; border-right-style:none; border-bottom-style:none; border-left-style:solid;\">


<img border=\"0\" src=\"love.gif\">
 
 
<%

ConnectString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(\"db/uyeler.mdb\")
Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.open ConnectString
%> <%

sql = \"SELECT username,sex,dob,lookfor,FILENAME FROM Users WHERE username Like \'\" & sex & \"%\' ORDER BY username\"
Set rsUser = Server.CreateObject(\"ADODB.Recordset\")
rsUser.Open sql, conn, 3, 3

sql = \"SELECT username FROM users\"
Set rsusername = Server.CreateObject(\"ADODB.Recordset\")
rsusername.Open sql, conn, 3, 3
usercount = 0
if not rsusername.EOF then
rsusername.Movefirst
do until rsusername.EOF

usercount = usercount + 1

rsusername.Movenext
loop
rsusername.Movefirst
end if

%>
</td>
<td bgcolor=\"#F8BC07\" width=\"374\" height=\"353\" style=\"border-color:black; border-top-style:solid; border-right-style:none; border-bottom-style:none; border-left-style:none;\" valign=\"top\">

 
<table border=\"1\" cellspacing=\"0\" width=\"416\" bordercolordark=\"white\" bordercolorlight=\"black\">
<tr>
<td width=\"410\" bgcolor=\"#EF8F2B\">
 Son
katilan Profiler!!!!!
</td>
</tr>
<tr>
<td width=\"410\" bgcolor=\"#FFFFFF\" height=\"24\">

<%if not rsUser.EOF then%>
<table cellpadding=\"2\" cellspacing=\"0\" border=\"1\" bordercolor=\"#B4B4B4\" width=\"400\" align=\"center\">
<tr bgcolor=\"#B4B4B4\">
<th width=\"112\" height=\"25\" style=\"border-width:1; border-right-color:black; border-right-style:solid;\" bgcolor=\"#EF8F2B\">


Kulanici Isim</th>
<th width=\"73\" height=\"25\" style=\"border-width:1; border-right-color:black; border-right-style:solid;\" bgcolor=\"#EF8F2B\">
Cins
</th>
<th width=\"53\" height=\"25\" style=\"border-width:1; border-right-color:black; border-right-style:solid;\" bgcolor=\"#EF8F2B\">
Aramasir
</th>
<th width=\"65\" height=\"25\" style=\"border-width:1; border-right-color:black; border-right-style:solid;\" bgcolor=\"#EF8F2B\">

Resim
</th>
<th width=\"65\" height=\"25\" bgcolor=\"#EF8F2B\">
Dogum
Tarihi
</th>
</tr>
<%rsUser.Movefirst
do until rsUser.EOF%>
<tr>
<td width=\"112\" height=\"36\" bgcolor=\"#F8BC07\"> <a href=\"show_profil.asp?user=<%=rsUser(\"username\")%>\"><%=rsUser(\"username\")%>
</a></td>
<td width=\"73\" height=\"36\" bgcolor=\"#F8BC07\">
<%=rsUser(\"sex\")%>
</td>
<td width=\"53\" height=\"36\" bgcolor=\"#F8BC07\">
<%=rsUser(\"lookfor\")%>
</td>
<td align=\"center\" width=\"65\" height=\"36\" bgcolor=\"#F8BC07\"><img src=\"pictures/<%=rsUser(\"FILENAME\")%>\" width=\"37\" height=\"37\"></td>
<td align=\"center\" width=\"65\" height=\"36\" bgcolor=\"#F8BC07\">
<%=year(rsUser(\"dob\"))%>
ér
</td>
</tr>
<%rsUser.Movenext
loop%>
</table>
 
<%end if%>
</td>
</tr>
</table>

 
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>

</html>

Synes godt om

eagleeye Praktikant

08. november 2001 - 20:05 #7

og den skiver :
/arkadasdate/index.asp, line 0 ???

Synes godt om

eagleeye Praktikant

21. september 2002 - 23:46 #8

Du er nød til at tjekke hele koden igennem og se at alle steder du bruger et recordset er det inden for eksvis:
if not rs.EOF then

Synes godt om

yuksel Nybegynder

23. juli 2003 - 04:38 #9

jeg lukker denne spørgesmål.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS