Der må være nogen der kan hjælpe mig!

Mener du denne fejl ?

ADODB.Field error '800a0bcd'

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

/dk/stillingsannonce2.asp, line 226

Ja!

Er der mulighed for at se din "stillingsannonce2.asp" ??

Hvad vil du se i den?

Hvordan er ser din SELECT ud ??
Hvordan ser din "WHILE NOT"-løkke ud ??

Du får lige det hele. Det er lavet i Dreamweaver!

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/constillinger.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("meldStillingsID") <> "") Then
  Recordset1__MMColParam = Request.QueryString("meldStillingsID")
End If
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_constilling_STRING
Recordset1.Source = "SELECT * FROM stillinger WHERE meldID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
  Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
  Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last  = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
  If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
  End If
  If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
  End If
  If (Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = Recordset1
MM_rsCount  = Recordset1_total
MM_size      = Recordset1_numRows
MM_uniqueCol = "meldID"
MM_paramName = "meldStillingsID"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

  ' get the value of the parameter
  MM_param = Request.QueryString(MM_paramName)

  ' find the record with the unique column value equal to the parameter value
  MM_offset = 0
  Do While (Not MM_rs.EOF)
    If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then
      Exit Do
    End If
    MM_offset = MM_offset + 1
    MM_rs.MoveNext
  Loop

  ' if not found, set the number of records and reset the cursor
  If (MM_rs.EOF) Then
    If (MM_rsCount < 0) Then
      MM_rsCount = MM_offset
    End If
    If (MM_size < 0 Or MM_size > MM_offset) Then
      MM_size = MM_offset
    End If
    MM_offset = 0

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
      MM_rs.MoveFirst
    Else
      MM_rs.Close
      MM_rs.Open
    End If
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (Recordset1_first > MM_rsCount) Then
    Recordset1_first = MM_rsCount
  End If
  If (Recordset1_last > MM_rsCount) Then
    Recordset1_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>

<html>

<head>

<title>meldgaard GRUPPEN</title>

<link rel=stylesheet href="meldgaardstyle.css" type="text/css">

<style type="text/css">
BODY{
  scrollbar-3d-light-color: #89abcd;
  scrollbar-arrow-color: #000080;
  scrollbar-base-color: #000080;
  scrollbar-dark-shadow-color: #ffffff;
  scrollbar-face-color: #89abcd;
  scrollbar-highlight-color: #ffffff;
  scrollbar-shadow-color: #ffffff;
}
</style>

<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

</head>

<body topmargin="0" leftmargin="0">
<table border="0" width="476" cellspacing="0" cellpadding="0">
  <tr>
    <td width="476" class=tekst><%=(Recordset1.Fields.Item("meldStillingsbetegnelse").Value)%></td>
  </tr>
</table>

</body>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Er "meldID" en numerisk eller en alphanumerisk værdi i databasen?

Autonummerering
Langt heltal
Stigende

--Standardværdierne ved autonr.--

Hvad med :

Recordset1.Source = "SELECT * FROM stillinger WHERE meldID = " &  Recordset1__MMColParam

Eller :

Recordset1.Source = "SELECT * FROM stillinger WHERE meldID = '" &  Recordset1__MMColParam & "'"

Jeg kan nemlig ikke lige huske om der skal ' rundt om en talværdi :-)

Hvad mener du med det?

Det er samme kode, som jeg har på stillingsannonce1.asp - og her virker det fint.

Dette er linj 226: <td width="476" class=tekst><%=(Recordset1.Fields.Item("meldStillingsbetegnelse").Value)%></td>

Ahh, sorry.

Recordset1.Fields("meldStillingsbetegnelse").Value

Der står noget mere her :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adoce31/html/ado30ref_6.asp

Det er fint, og det ville også give point, hvis jeg kunne læse asp-koder, men jeg har som sagt lavet det i dreamweaver, og her behøver man jo ikke læse asp-koder!

Ok, her er fejlen rettet :

<body topmargin="0" leftmargin="0">
<table border="0" width="476" cellspacing="0" cellpadding="0">
  <tr>
    <td width="476" class=tekst><%=(Recordset1.Fields("meldStillingsbetegnelse").Value)%></td>
  </tr>
</table>

</body>

Håber det hjalp :-)

Desværre! Det virker ikke.

Prøv :

<body topmargin="0" leftmargin="0">
<table border="0" width="476" cellspacing="0" cellpadding="0">
  <tr>
    <td width="476" class=tekst>
<%
If Recordset1.Fields("meldStillingsbetegnelse").Value <> "" then
  Response.Write(Recordset1.Fields("meldStillingsbetegnelse").Value)
End If
%>
    </td>
  </tr>
</table>

</body>

Virker ikke.

Denne linie skulle undersøge om den har fundet noget.

<body topmargin="0" leftmargin="0">
<table border="0" width="476" cellspacing="0" cellpadding="0">
  <tr>
    <td width="476" class=tekst>
<%
If (NOT Recordset1.BOF) and (NOT Recordset1.EOF) then
  Response.Write(Recordset1.Fields("meldStillingsbetegnelse").Value)
End If
%>
    </td>
  </tr>
</table>

</body>

Blank side!

Så er det nok fordi der ikke findes nogen med meldID=25.

Det kan du se ved at ændre toppen fra :

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_constilling_STRING
Recordset1.Source = "SELECT * FROM stillinger WHERE meldID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

Til :

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_constilling_STRING
Recordset1.Source = "SELECT * FROM stillinger"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>


Så vælger den bare alt, den kan finde i databasen.

Nu trakker den jo blot første record ud fra min database. Det er jo heller ikke meningen. Det skal jo være en specifik.

Ja, men så er det fordi du ikke har en record med meldID=25

Det har jeg - prøv at kig op i adresselinjen efter du har klikke på Test på stillinger.asp - den åbner siden stillingsannonce1.asp?... Overskriften bliver til Test, og så er der en fejl - i dokumentet stillingsannonce2.asp, som ligger pladseret i en iframe i dokumentet stillingsannonce1.asp.

Ok, Hvis du ændre starten tilbage til :

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_constilling_STRING
Recordset1.Source = "SELECT * FROM stillinger WHERE meldID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

som den var før.

Desværre, så kan jeg ikke se mig ud af det lige nu :-/

Fik selv løst problemet. Men som tak for inspirationen til problemløsningen er der point!