Enten er BOF eller EOF sand

Hvad går der galt her???


titel:  ADODB.Field error '800a0bcd'

Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.

/kunder/aakn/ide.asp, line 158



koden:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/aakn_reddot.asp" -->
<%
Dim user__MMColParam
user__MMColParam = "1"
if (Request.Cookies("event_user") <> "") then user__MMColParam = Request.Cookies("event_user")
%>
<%
set user = Server.CreateObject("ADODB.Recordset")
user.ActiveConnection = MM_aakn_reddot_STRING
user.Source = "SELECT * FROM user_login WHERE bruger = '" + Replace(user__MMColParam, "'", "''") + "'"
user.CursorType = 0
user.CursorLocation = 2
user.LockType = 3
user.Open()
user_numRows = 0
%>
<%
Dim events__MMColParam
events__MMColParam = "1"
if (Request.QueryString("event_id") <> "") then events__MMColParam = Request.QueryString("event_id")
%>
<%
set events = Server.CreateObject("ADODB.Recordset")
events.ActiveConnection = MM_aakn_reddot_STRING
events.Source = "SELECT * FROM hent_events WHERE event_id = " + Replace(events__MMColParam, "'", "''") + ""
events.CursorType = 0
events.CursorLocation = 2
events.LockType = 3
events.Open()
events_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
events_numRows = events_numRows + Repeat1__numRows
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("txtbrugernavn2"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="ide.asp"
  MM_redirectLoginFailed="noaccess.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_aakn_reddot_STRING
  MM_rsUser.Source = "SELECT bruger, password"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM user_login WHERE bruger='" & MM_valUsername &"' AND password='" & CStr(Request.Form("txtpassword2")) & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    response.cookies("event_user") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<% if  request.cookies("event_user") = "" then %>
<form name="login" method="post" action="<%=MM_LoginAction%>">
  <span class="tekstfelter">brugernavn: </span><br>
  <input type="text" name="txtbrugernavn2" class="formfelter">
  <br>
  <span class="tekstfelter">adgangskode: </span><br>
  <input type="password" name="txtpassword2" class="formfelter">
  <input type="submit" name="Submit2" value="login" class="formknap">
</form>
<script language="JavaScript">
f=document.forms[0].txtbrugernavn;
f.select();
f.focus();
</script>
<% else %>
<% If Not events.EOF Or Not events.BOF Then %>
<table border="0">
  <tr>
    <td colspan="4"> Velkommen til: <%=(user.Fields.Item("bruger").Value)%> <a href="LOGOUT.ASP">[ logud ]</a> <br>
      <%
While ((Repeat1__numRows <> 0) AND (NOT events.EOF))
%>
      <A HREF="ide.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "event_id=" & events.Fields.Item("event_id").Value %>"><%=(events.Fields.Item("titel").Value)%></A> &nbsp;[ <A HREF="ide_edit.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "event_id=" & events.Fields.Item("event_id").Value %>">
      edit</A> ]<br>
      <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  events.MoveNext()
Wend
%>
      <br>
      <%=request.cookies("event_user")%> </td>
  </tr>
  <tr>
    <td>titel: </td>
    <td nowrap><%=(events.Fields.Item("titel").Value)%></td>
    <td>&nbsp;</td>
    <td rowspan="10" valign="top" width="300">ide:<br>
      <%=(events.Fields.Item("ide").Value)%></td>
  </tr>
  <tr>
    <td>sted: </td>
    <td nowrap><%=(events.Fields.Item("sted").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>af/med::</td>
    <td nowrap><%=(events.Fields.Item("af").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>varighed: </td>
    <td nowrap><%=(events.Fields.Item("varighed").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>ansvarlig: </td>
    <td nowrap><%=(events.Fields.Item("ansvarlig").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>adresse:</td>
    <td nowrap><%=(events.Fields.Item("adresse").Value)%></td>
    <td width="20">&nbsp;</td>
  </tr>
  <tr>
    <td>kontakt:</td>
    <td nowrap><%=(events.Fields.Item("kontaktperson").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>telefon:</td>
    <td nowrap><%=(events.Fields.Item("telefon").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>email:</td>
    <td nowrap><%=(events.Fields.Item("email").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>webadresse: </td>
    <td nowrap><%=(events.Fields.Item("webadresse").Value)%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4">sekment: <br>
      <%=(events.Fields.Item("sekment_id").Value)%></td>
  </tr>
  <tr>
    <td colspan="4">
      <div align="right">
        <% if  request.cookies("login") = "" then %>
        <% else %>
        <%=(events.Fields.Item("broadcast").Value)%>
        <%end if%>
      </div>
    </td>
  </tr>
</table>
<% End If ' end Not events.EOF Or NOT events.BOF %>
<% end if %>
</body>
</html>
<%
user.Close()
%>
<%
events.Close()
%>