Sql sætning, giver fejl!

Du kan tjekke på om recordetet er tomt ved at tjekke på EOF

<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

else
  Response.write "Ingen kontakt person fundet"
end if

%>

Ingen kontakt person fundet ADODB.Field fejl '80020009'

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

/nyaktivitet.asp, linje 0

Du skal havde alt koden som udskriver fra recordsetet ind hvor der står

  'Din kode

??, her er starten af min kode
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

else
  Response.write "Ingen kontakt person fundet"
end if

%>

<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
  <tr>
    <td width="553" height="263" valign="top">
      <form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
        <table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
          <tr>
            <td height="220" bgcolor="#CCCCCC">
              <table width="570" border="0" cellspacing="0" height="335">
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Overskrift.:</font></td>
                  <td colspan="2" height="22" width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input type="text" name="Titel" size="44"></font></td>
                  <td colspan="2" rowspan="5" valign="top" width="178" height="118"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    &nbsp;</font></td>
                </tr>
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Kontakt person.:</font></td>
                  <td height="22" width="227">
                    <div align="left">
</select>
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

                    <select size="1" name="kontaktpersonid">
                  <%If rskunder1.EOF Then
  response.write "Ingen kontaktpersoner oprettet"
Else
do while not rskunder1.EOF%>
                  <option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
                  <%rskunder1.MoveNext
                  loop%>
                 
                  </select></font></div>
                  </td>
                  <td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
                </tr>
                <tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If
%>

Prøv med:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

%>
<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
  <tr>
    <td width="553" height="263" valign="top">
      <form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
        <table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
          <tr>
            <td height="220" bgcolor="#CCCCCC">
              <table width="570" border="0" cellspacing="0" height="335">
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Overskrift.:</font></td>
                  <td colspan="2" height="22" width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input type="text" name="Titel" size="44"></font></td>
                  <td colspan="2" rowspan="5" valign="top" width="178" height="118"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    &nbsp;</font></td>
                </tr>
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Kontakt person.:</font></td>
                  <td height="22" width="227">
                    <div align="left">
</select>
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

                    <select size="1" name="kontaktpersonid">
                  <%If rskunder1.EOF Then
  response.write "Ingen kontaktpersoner oprettet"
Else
do while not rskunder1.EOF%>
                  <option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
                  <%rskunder1.MoveNext
                  loop%>
                 
                  </select></font></div>
                  </td>
                  <td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
                </tr>
                <tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If

else
  Response.write "Ingen kontakt person fundet"
end if
%>

Jeg fandt selv en løsning!

tsk tsk. Jeg har givet dig løsningen til hvordan du undgår fejlen!

nej det virkede ikke, så jeg fandt selv en løsning!

til dig fra mig!

http://www.eksperten.dk/spm/359284