Tomt recordset?? — webForum

ChiefJosephMedlem sedan okt. 200173 inlägg

3 feb. 2004 15:54#1

Hej!
Får följande felmeddelande och undrar vad som är galet.
Rad 106 i fet text
Tacksam för hjälp!

ADODB.Field error '800a0bcd' 

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

/wwwroot/adm/adm_intranet.asp, line 106

<!--#include file="../musthave.inc"-->
<!--#include file="passcheck.inc"-->
<% open_database "c:\www\blabla.net\bla\databas.mdb",false %>
<%

id = int(request("id"))

session.LCID = 1053

%>
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>VGB - Admin</title>
</head>

<body leftmargin="0" topmargin="0" background="../bilder/bakgrund.gif" bgproperties="FIXED" link="#363A59">

<table width="742" border="0" cellspacing="0" cellpadding="0" align="left">
	<tr>
		<td width="153" height="66">
		<img src="../bilder/logo.gif" width="153" height="66" border="0" alt></td>
		<td width="589" height="66" background="../bilder/menybakgrund.gif">
		<div align="center">
			<b>&nbsp; </b>
		</div>
		</td>
	</tr>
	<tr>
		<td width="742" colspan="2" valign="top">
		<!-- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -->
		<table width="740" border="0" cellspacing="0" cellpadding="5" align="center" background="#">
			<tr>
				<td width="150" align="left" valign="top" background="#">
				<!--#include file="meny.asp"--></td>
				<td width="590" align="left" valign="top" background="#">
				<input type="hidden" name="action" value="ny_kat">
				<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
				<br>
				<b>Intranät</b> <br>
				<br>
				<b>1. </b>Skapa ny<b><br>
				<br>
				</b><a href="code_intranet.asp?action=create_new">Klicka här för 
				att skapa en ny händelse</a><b><br>
				&nbsp;</b></font><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
				<hr width="100%" size="1" color="Silver"></font>
				<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
				<b><br>
				2.</b> Redigera&nbsp; <br>
				&nbsp;</font><font face="Verdana" size="1" color="Black">
				<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
					<tr>
						<% if id > 0 then %>
						<form method="POST" name="katform" action="code_intranet.asp?action=spara&id=<%=id%>">
							<td width="21%" valign="top"><b><font size="1">
							Lösenord:</font></b><br>
							<br>
							</font>
							<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
							<font face="Verdana" size="1" color="Black">
							<% 
	Set myRecSet = Server.CreateObject("ADODB.Recordset") 
	Set myRecSet = Conn.Execute("SELECT handelser_losenord.password FROM handelser_losenord WHERE (((handelser_losenord.handelse)=" & id & "));")

	if not myRecSet.eof then dbPass = myRecSet.getrows

	Set myRecSet = Server.CreateObject("ADODB.Recordset") 
	Set myRecSet = Conn.Execute("SELECT losenord.id, losenord.password FROM losenord;")
	
	do while NOT myRecSet.EOF

		pass = false
		if isArray(dbPass) then
			for i=0 to ubound(dbPass,2)
				if dbPass(0,i) = myRecSet("id") then
					pass = true
					exit for
				end if
			next
		end if
	
	if pass then
%> <input type="checkbox" name="password" value="<%=myRecSet("id")%>" CHECKED>
							<%=myRecSet("password")%><br>
							<%
	else
%> <input type="checkbox" name="password" value="<%=myRecSet("id")%>">
							<%=myRecSet("password")%><br>
							<%
	end if

			myRecSet.moveNext
	loop
		
	myRecSet.close
	set myRecSet = nothing

	Set myRecSet = Server.CreateObject("ADODB.Recordset") 
	Set myRecSet = Conn.Execute("SELECT handelser.rubrik, handelser.datum, handelser.huvudtext FROM handelser WHERE (((handelser.id)=" & id & "));")

	[B]huvudtext = myRecSet("huvudtext")[/B]
	if huvudtext <> "" then huvudtext = server.htmlencode(huvudtext)

	rubrik = myRecSet("rubrik")
	if rubrik = "" then
		rubrik = "[Ingen rubrik]"
	else
		rubrik = server.htmlencode(rubrik)
	end if		

	 %> </font></font></td>
							<td width="51%">
							<font face="Verdana" size="1" color="Black">Rubrik:<br>
							</font>
							<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
							<font face="Verdana" size="1" color="Black">
							<input type="text" name="rubrik" size="39" value="<%=rubrik%>"><br>
							Datum:<br>
							<input type="text" name="datum" size="39" value="<%=formatdatetime(myRecSet("datum"),2)%>"><br>
							Text:<br>
							<textarea rows="9" name="huvudtext" cols="33"><%=huvudtext%></textarea><br>
							<br>
							<input type="submit" value="Spara" name="B2"><br>
						</form>
						<form method="POST" name="pdfform" action="uploadscriptpdf4.asp" enctype="multipart/form-data">
							<p><b>PDF:<br>
							</b>
<%
	Set myRecSet = Server.CreateObject("ADODB.Recordset") 
	Set myRecSet = Conn.Execute("SELECT handelser_pdf.id, handelser_pdf.pdf FROM handelser_pdf WHERE (((handelser_pdf.handelse)=" & id & "));")
	
	do while NOT myRecSet.EOF
%>
							<a href="#"><img onclick="if(confirm('Vill du ta bort filen?')){self.location.href='code_intranet.asp?action=del_pdf&id=<%=myRecSet("id")%>';}" height="10" hspace="3" src="../bilder/dumpar_adm/papperskorg.gif" width="9" align="absMiddle" vspace="3" border="0"></a>
<%= myRecSet("pdf") %><br>

<%
			myRecSet.moveNext
	loop
		
	myRecSet.close
	set myRecSet = nothing
%>

							<br>
							<b>Lägg till PDF:</b><br>
							<input type="file" name="FILE2" size="27"><br>
							<input type="hidden" name="id" value="<%=id%>">
							<input type="submit" value="Ladda upp" name="B1"></p>
							</font></font></td>
						<br>
						<% end if %> </font></font></font>
						<font face="Verdana" color="Black">
						<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
						<td width="28%" align="right" valign="top">
						<font face="Verdana" size="1" color="Black"><b>Redigera:<br>
						</b><br>
						<% 
	Set myRecSet = Server.CreateObject("ADODB.Recordset") 
	Set myRecSet = Conn.Execute("SELECT handelser.id, [KOD]
handelser.rubrik FROM handelser ORDER BY handelser.datum;")
	
	i=0
	do while NOT myRecSet.EOF
	
		i=i+1

		rubrik = myRecSet("rubrik")
		if rubrik = "" then
			rubrik = "[Ingen rubrik]"
		else
			rubrik = server.htmlencode(rubrik)
		end if
		
%> <%=i%>. <a href="adm_intranet.asp?id=<%=myRecSet("id")%>"><%=rubrik%></a> <a href="#"><img onclick="if(confirm('Vill du ta bort händelsen?')){self.location.href='code_intranet.asp?action=del_item&id=<%=myRecSet("id")%>';}" height="10" hspace="3" src="../bilder/dumpar_adm/papperskorg.gif" width="9" align="absMiddle" vspace="3" border="0"></a><br>
						<%
		myRecSet.moveNext
	loop
		
	myRecSet.close
	set myRecSet = nothing
	 %> &nbsp;</font></td>
					</tr>
				</table>
				</font></font>
				<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
				<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="1" color="Black">
				<p><br>
				</font></font></td>
			</tr>
		</table>
		</font></td>
	</tr>
</table>

</body>

</html>

cyprysMedlem sedan dec. 20003 563 inlägg

3 feb. 2004 15:57#2

Du får ju bara ett tomt recset till den raden tydligen.
Kolla innan med en ifsats ifall recsettet är tomt eller inte.

if not recset.eof then
' Börja tilldela värden, loopa osv.

ChiefJosephMedlem sedan okt. 200173 inlägg

3 feb. 2004 16:05#3

Ja, nu vet vi att recsetet är tomt.
Behöver nog mer hjälp, vad göra?

cyprysMedlem sedan dec. 20003 563 inlägg

3 feb. 2004 16:11#4

Kontrollera helt enkelt hur ditt recset ser ut.
Tanken är att du får bygga upp det såhär för varje recset du skapar.

Set RecSet = conn.execute("SELECT blabla")

if not RecSet.eof then

   variabel = RecSet("blabla")

   ' eller kanske

   Do until RecSet.eof
       ' DIn loop här
   RecSet.MoveNext
   Loop

else

   ' Ditt recset är tomt!

end if

Set RecSet = nothing