Avatar billede jacand Nybegynder
27. februar 2001 - 15:53 Der er 11 kommentarer og
1 løsning

Either BOF or EOF is True

Hvordan er det nu lige man for den til at skrive f.eks. ”søgningen gav intet resultat” i stedet for

ADODB.Field error \'800a0bcd\'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
Avatar billede slash Nybegynder
27. februar 2001 - 15:55 #1
if res.eof or rs.bof then
  Response.redirect \"soeg.asp?Mode=noresult\"
else
.....bla.bla...
end if
Avatar billede skovtrold Nybegynder
27. februar 2001 - 15:56 #2
If Not dinRS.EOF Then
Do Until
dinRS.EOF

her listes data

dinRS.Movenext
Loop

else

søgningen gav intet resultat
Avatar billede tpiil Nybegynder
27. februar 2001 - 22:32 #3
prøv lige at udskrive din SQL!
Avatar billede jonax Nybegynder
28. februar 2001 - 00:33 #4
if rs.eof AND rs.bof then
response.write ”søgningen gav intet resultat”
else
\'udskriv data
end if
rs.close
set rs=nothing
Avatar billede jacand Nybegynder
01. marts 2001 - 07:44 #5
Jeg kan ikke rigtigt få det til at virke, det er nok bare mig der ikke sætter det ind det rigtigt sted :-)


<%
Session.LCID = 1030

call openConn()

Function pad(input)
If int(input) < 10 Then
pad = \"0\" & input
Else
pad = input
End If
End Function

Function Formatdate(theDate)
    Formatdate = pad(day(thedate)) & \"-\" & pad(month(thedate)) & \"-\" & year(thedate)
End Function

Function Formattime(TheTime)
    Formattime = pad(hour(theTime)) & \".\" & pad(minute(theTime))
End Function

Function Formatdatetime(ThedateTime)
    Formatdatetime = pad(day(thedate)) & \"-\" & pad(month(thedate)) & \"-\" & year(thedate) & \"-\" & pad(hour(theTime)) & \".\" & pad(minute(theTime))
End Function
kundenr = Request.form(\"kundenr\")
ordre= Request.form(\"ordre\")

SQLstmt = \"select * from orders where ophone like \" & Request(\"kundenr\") & \" and orderID =  \" & Request(\"ordre\") & \" \" 
Set RS = Conn.Execute(SQLstmt)
SQLstm = \"select * from oitems where orderID like \'%\" & Request(\"ordre\") & \"%\'\"
Set oRS = Conn.Execute(SQLstm)
%>
<!-- #include file=\"ttsup.asp\" -->
<%

Sub Bekraeftet
bekraefet = rs(\"oBekraeftet\")
if bekraefet =\"False\" then
%>
    <form action=\"ttbek.asp\" method=\"post\">
       
        <input type=\"hidden\" name=\"ordre\" value=\"<%= RS(\"orderID\") %>\">
        <input type=\"hidden\" name=\"Bekr\" value=\"1\">
        <input type=\"hidden\" name=\"kundenr\" value=\"<%= RS(\"ophone\") %>\">
        <center><input type=\"submit\" class=\"FlatButton\" name=\"submit\" value=\"Bekræft ordre\">
        </form>
       
<%

else
%>
<center><font size=\"4\" color=\"#008000\"><b>Denne ordre er bekræftet&nbsp<%= Formatdate(RS(\"obekraeftelsesdato\")) %>&nbsp;<%= Formattime(RS(\"obekraeftelsesdato\")) %></b></font></center>
<%
end if



end sub
%>
<%


If Not RS.EOF Then
call Bekraeftet





%>
    <table border=\"0\" width=\"712\">
      <tr>
        <td width=\"704\">
          <table border=\"1\" width=\"731\" bordercolordark=\"#CCCCCC\" bordercolorlight=\"#E2E2E2\" height=\"320\">
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Ordre nr.</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"orderID\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Kunde nr.</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"ophone\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\"><b>Betaling</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oshipmethodtype\") %>\"></td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"25\"><b>Firma</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"25\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"ocompany\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"25\" width=\"128\"><%
shipmet = rs(\"oshipmethodtype\")
if shipmet = \"Forudbetaling - Bank\" then
%>
<b>Indbetaling reg.</b>
<%
else
%>
<B>&nbsp;</b>
<%

end if
%>
              </td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"25\"><%
shipmet = rs(\"oshipmethodtype\")
if shipmet = \"Forudbetaling - Bank\" then
%>
<input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"indreg\") %>\"></td>
<%
else
%>
<B>
<td width=\"5\">&nbsp;</b>
<%
end if             
             
            %>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Navn</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"ofirstname\") %>&nbsp; <%= RS(\"olastname\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Adresse</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oaddress\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Post nr. & by</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"opostcode\") %>&nbsp;<%= RS(\"ocity\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\"><b>E-mail adresse</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oemail\") %>\"></td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"337\" height=\"23\" colspan=\"2\" align=\"center\"><b>Leveringsadressen</b></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Firma</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oshipcompany\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Navn</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= rs(\"oshipname\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"22\"><b>Adresse</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"22\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oshipaddress\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"22\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"22\">&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor=\"#E2E2E2\" width=\"108\" height=\"23\"><b>Post &amp; By</b></td>
              <td bgcolor=\"#E2E2E2\" width=\"223\" height=\"23\"><input type=\"text\" name=\"t\" size=\"30\" value=\"<%= RS(\"oshipzip\") %>&nbsp;<%= RS(\"oshiptown\") %>\"></td>
              <td bgcolor=\"#E2E2E2\" height=\"23\" width=\"128\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"233\" height=\"23\">&nbsp;</td>
            </tr>
          </table>
        </td>
      </tr>
      <%
      end if
     
    If Not oRS.EOF Then
        %>
      <tr>
        <td width=\"704\">
          <table border=\"1\" bordercolorlight=\"#CCCCCC\" bordercolordark=\"#CCCCCC\" bgcolor=\"#CCCCCC\" width=\"700\">
            <tr>
              <th bgcolor=\"#E2E2E2\" width=\"301\">Vare</th>
              <th bgcolor=\"#E2E2E2\" width=\"61\">Antal</th>
              <th bgcolor=\"#E2E2E2\" width=\"61\">Pris&nbsp;</th>
              <th bgcolor=\"#E2E2E2\" width=\"61\">ank. <sup>1</sup></th>
              <th bgcolor=\"#E2E2E2\" width=\"65\">Sendt</th>
              <th bgcolor=\"#E2E2E2\" width=\"129\">Pakkenr</th>
            </tr>
            </table>

<%
Do While Not oRS.EOF
%>       

          <table border=\"1\" bordercolorlight=\"#CCCCCC\" bordercolordark=\"#CCCCCC\" bgcolor=\"#CCCCCC\" width=\"700\">

<tr>
              <td bgcolor=\"#E2E2E2\" width=\"301\"><SMALL><%= oRS(\"itemname\") %></SMALL></td>
              <td bgcolor=\"#E2E2E2\" width=\"61\"><p align=\"center\"><SMALL><%= oRS(\"numitems\") %></SMALL></td>
              <td bgcolor=\"#E2E2E2\" width=\"61\"><p align=\"center\"><SMALL><%= oRS(\"unitprice\") %>,-</SMALL></p></td>
              <td bgcolor=\"#E2E2E2\" width=\"61\"><p align=\"center\"><SMALL><%= oRS(\"ank\") %></SMALL></p></td>
              <td bgcolor=\"#E2E2E2\" width=\"65\" align=\"center\"><SMALL><%= RS(\"oshippeddate\") %></SMALL></td>
              <td bgcolor=\"#E2E2E2\" width=\"129\" align=\"center\"><SMALL><a href=\"http://www2.postdanmark.dk/gtt/owa/packgtt.list?i_stregkode=<%= RS(\"pakkenr\") %>\" target=\"_blank\"><font color=\"#000000\"><%= RS(\"pakkenr\") %></font></a></SMALL></td>
            </tr>
            <tr>

            <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Din bestillingsdato</SMALL></td>
              <td bgcolor=\"#E2E2E2\" width=\"194\" align=\"center\" colspan=\"2\"><% call bestillingsdato %></td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Din bekræftelsesdato</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\"><% call bekraeftelsesdato %></td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Vores bestilingsdato</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\">
<%
voresbest = ors(\"voresbestilingsdato\")
if voresbest = \"0\" then
%>
<font color=\"#BA2727\"><SMALL><b>Endnu ikke bestilt</b></SMALL></font>
<%
end if
if voresbest = \"1\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;På lager i forvejen&nbsp;&nbsp;</b></SMALL></span>
<%
end if
if voresbest > \"2\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;<%= Formatdate(oRS(\"voresbestilingsdato\")) %>&nbsp;<%= Formattime(oRS(\"voresbestilingsdato\")) %>&nbsp;&nbsp;</b></SMALL></span>
<%
end if %>
</td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Bekræftet hos vores leverandør</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\">
<%
Bekraeft = ors(\"Bekraeftethos\")
if Bekraeft = \"0\" then
%>
<font color=\"#BA2727\"><SMALL><b>Endnu ikke bekræftet</b></SMALL></font>
<%
end if
if Bekraeft = \"1\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;På lager i forvejen&nbsp;&nbsp;</b></SMALL></span>
<%
end if
if Bekraeft > \"2\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;<%= Formatdate(oRS(\"voresbestilingsdato\")) %>&nbsp;<%= Formattime(oRS(\"voresbestilingsdato\")) %>&nbsp;&nbsp;</b></SMALL></span>
<%
end if
%>             
        </td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Reserveret til din ordre</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\">
<%
reserve = ors(\"reserveret\")
if reserve = \"0\" then
%>
<font color=\"#BA2727\"><SMALL><b>Endnu ikke på lager</b></SMALL></font>
<%
end if
if reserve = \"1\" then
%>
<font color=\"#BA2727\"><SMALL><b>Endnu ikke reserveret</b></SMALL></font>
<%
end if
if reserve > \"2\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;<%= Formatdate(oRS(\"reserveret\")) %>&nbsp;<%= Formattime(oRS(\"reserveret\")) %>&nbsp;&nbsp;</b></SMALL></span>
<%
end if
%>
        </td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Udtaget fra lager</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\"><%

udtage = rs(\"udtaget\")             
if udtage = \"0\" then
%>
<font color=\"#BA2727\"><SMALL><b>Endnu ikke udtaget</b></SMALL></font>
<%
end if
if udtage = \"1\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;På lager i forvejen&nbsp;&nbsp;</b></SMALL></span>
<%
end if
if udtage > \"2\" then
%>
<span style=\"background-color: #00FF00\"><SMALL><B>&nbsp;&nbsp;<%= Formatdate(RS(\"udtaget\")) %>&nbsp;<%= Formattime(RS(\"udtaget\")) %>&nbsp;&nbsp;</b></SMALL></span>
<%
end if
%>
</td>
            </tr>
            <tr>
              <td bgcolor=\"#CCCCCC\" width=\"301\">&nbsp;</td>
              <td bgcolor=\"#E2E2E2\" width=\"183\" colspan=\"3\"><SMALL>Faktureret</SMALL></td>
              <td bgcolor=\"#E2E2E2\" align=\"center\" width=\"194\" colspan=\"2\"><% call faktureret %></td>
            </tr>
</table>
    <%
oRS.MoveNext
        Loop
    End If
%>       

<%
If Not RS.EOF Then
%>   

 
      <tr>
        <td width=\"704\">
    <table border=\"1\" bordercolordark=\"#CCCCCC\" bordercolorlight=\"#CCCCCC\" width=\"346\" bgcolor=\"#CCCCCC\">
      <tr>
        <td bgcolor=\"#E2E2E2\" width=\"236\"><font size=\"3\">Fragt</font></td>
        <td bgcolor=\"#E2E2E2\" width=\"94\" align=\"right\"><%= FormatCurrency(RS(\"oshipcost\"),2) %></td>
      </tr>
      <tr>
        <td bgcolor=\"#E2E2E2\" width=\"236\"><font size=\"3\">Beløb inkl. fragt</font></td>
        <td bgcolor=\"#E2E2E2\" width=\"94\" align=\"right\"><%= FormatCurrency(RS(\"orderamount\"),2) %></td>
      </tr>
    </table>
    </table>

   
<%
End if
%>
<p><SMALL>* 1 Denne dato er den forventede dato, for levering fra vores leverandør. Står der ??-?? er datoen ukendt.</SMALL>
</p>

  </body>


Avatar billede tpiil Nybegynder
01. marts 2001 - 13:15 #6
nu har jeg kigget din LANGE kode igennem, og jeg vil godt lige vide hvad fejlen er??
Avatar billede jacand Nybegynder
01. marts 2001 - 13:19 #7
Hvordan er det nu lige man får den til at skrive f.eks. ”søgningen gav intet resultat” i stedet for ADODB.Field error \'800a0bcd\'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
Avatar billede tpiil Nybegynder
01. marts 2001 - 13:21 #8
jeg har sku da læst dit spørgsmål men hvor skal den skrive det i koden??
Avatar billede jacand Nybegynder
01. marts 2001 - 13:29 #9
Ok undskyld <:o)
Den skal skrive det hvis kundenr og ordre ikke passer, hvis de ikke er rigtig nu kommer den med ovennævnte fejl :-)
Jeg ville tro det skulle sættes ind efter
SQLstmt = \"select * from orders where ophone like \" & Request(\"kundenr\") & \" and orderID =  \" & Request(\"ordre\") & \" \" 
men jeg kan ikke få det til at spille .-)
Avatar billede tpiil Nybegynder
01. marts 2001 - 22:23 #10
jacand >> hvis du har ICQ så kom lige på 73543734
Avatar billede tommy_carstensen Nybegynder
19. august 2004 - 21:04 #11
Husk at lukke dit spørgsmål!
Avatar billede jacand Nybegynder
19. august 2004 - 21:55 #12
svar
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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