webForumDet fria alternativet
Logga in / Bli medlem

Fel meddelande men varför?

ASP

3 svar · 133 visningar · startad av FIgg3

FIgg3Medlem sedan sep. 2001354 inlägg
Frågan#1

Tjii tjooo...

Jag får detta fel meddelandet

ADODB.Field fel '80020009' 

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. 

?

Men databasen är ej tom men det är dock min hjärna på ideer så om ni har lite föeslag så tages de i mot mer än gärna

Här har ni lite kod också hoppas den ej är för rörig bara...

<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>forum</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<link rel="stylesheet" href="stil.css" type="text/css">
<body bgcolor="#FFFFFF" text="#000000"leftMargin=4 topMargin=6 
marginheight="0" marginwidth="0" background="../back.gif">
<div align="left">
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <% 
' variabler 
id = Request.QueryString("id") 
databas = Server.MapPath("forum.mdb") 

' öppnar databasen 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas 

' Öppnar Tabellen 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM forum WHERE ID LIKE '"& id &"'" 

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

%>
  <br>
  <table width="309" border="0" cellpadding="1" cellspacing="0" bgcolor="#000000">
    <tr> 
      <td align="left" valign="top"> 
        <table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
          <tr> 
            <td align="left" valign="top" bgcolor="EEEEEE"> 
              <table width="343" border="0" cellspacing="0" height="94" align="center">
                <tr> 
                  <td valign="top" height="88"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
                      <tr> 
                        <td height="3" width="106" bgcolor="#FFFFFF"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=RecSet("rubrik")%></b></font></td>
                        <td width="119" height="3" bgcolor="#FFFFFF"><b><font size="-2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Namn:</font><font face="Verdana" size="1"><font face="Verdana" size="1"> 
                          </font></font></b><font face="Verdana" size="1"><font face="Verdana" size="1"> 
                          <%IF (RecSet("Namn")) = "4545" THEN 
      Response.write "<b>FIgg3</b>" %>
                          <%Else%>
                          <% Response.write(Server.HTMLEncode(RecSet("Namn"))) %>
                          <font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font color="#000000"> 
                          <%End IF%>
                          </font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font&gt ;</font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font&g t;</td>
                        <td height="3" width="38" bgcolor="#FFFFFF"><b><font color="#000000"><font face="Verdana" size="1"> 
                          <a href="mailto:<%=RecSet("epost")%>">Mail</a></font></font></b></td>
                        <td height="3" width="78" bgcolor="#FFFFFF"> 
                          <div align="left"><font color="#000000"><b></b><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=date%></font></font></div>
                        </td>
                      </tr>
                    </table>
                    <table width="100%" cellpadding="0" cellspacing="0">
                     
                      <tr> 
                        <td height="21" colspan="4"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><a href="post.asp?id=<%=Recset("id")%>"> 
                          </a></font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("meddelande")%></font> 
                        </td>
                      </tr>
                    </table>
                    <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
                        <tr> 
                          <td height="3" width=""><font size="1" face="Verdana"><i> 
                            <% If RecSet("Svar") = 0 Then %>
                            <b>Det finns inga svar p&aring; denna fr&aring;gan 
                            &auml;n!!!</b></i></font> </td>
						                            <% 
' Stänger databasen 
RecSet.Update 
RecSet.Close 
Connect.Close 

%>
<%Else%>
<%
If RecSet("Svar") > 0 Then

RecSet.Close

Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From forum ORDER BY datum "
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

%>
                        </tr>
                      </table>
                      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
			                      <%
Do While Not RecSet.EOF
If int(RecSet("reid")) = int(ID) Then
%>
                        <tr> 
                          <td height="3" width="106" bgcolor="#FFFFFF"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("rubrik")%></font></td>
                          <td width="119" height="3" bgcolor="#FFFFFF"><b><font size="-2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Namn:</font><font face="Verdana" size="1"><font face="Verdana" size="1"> 
                            </font></font></b><font face="Verdana" size="1"><font face="Verdana" size="1"> 
                            <%IF (RecSet("Namn")) = "4545" THEN 
      Response.write "<b>FIgg3</b>" %>
                            <%Else%>
                            <% Response.write(Server.HTMLEncode(RecSet("Namn"))) %>
                            <font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font face="Verdana" size="1"><font color="#000000"> 
                            <%End IF%>
                            </font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font&gt ;</font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font&g t;</td>
                          <td height="3" width="38" bgcolor="#FFFFFF"><b><font color="#000000"><font face="Verdana" size="1"> 
                            <a href="mailto:<%=RecSet("epost")%>">Mail</a></font></font></b></td>
                          <td height="3" width="78" bgcolor="#FFFFFF"> 
                            <div align="left"><font color="#000000"><b></b><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=date%></font></font></div>
                          </td>
                        </tr>
<%
End If

RecSet.MoveNext
Loop
%>
                      </table>
                      <table width="100%" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td height="21" colspan="4"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif">                
						  </font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("meddelande")%></font> 
                          </td>
                        </tr>
                      </table>
                      <p>&nbsp;</p>
                      <p>&nbsp;</p>
                    </div>
                  </td>
                </tr>
              </table>
              
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <img src="../ie.gif" width="73" height="19" border="0"> </div>
</body>
</html>
<%End IF%>
<%End IF%>

// Gog Jul

------------------
Dont drink and drive!!! smoke shit and fly!!!

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Du bör alltid lägga in en kontroll efter det att du har öppnat ett recordset

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

[b]if recset.eof then[/b]
'kod för att hantera att det är tomt
else
'vanlig kod
end if

Varför använder du like? Är inte id en numerisk kolumn?

------------------
essentitia preter non sans multiplicandum

FIgg3Medlem sedan sep. 2001354 inlägg
#3

Anledningen till att jag kör LIKE är för att jag hämtar bara info från ett ID med en Q string... ska testa det du sa se om ddset gör någon skillnad

------------------
Dont drink and drive!!! smoke shit and fly!!!

LarsGMedlem sedan dec. 200012 464 inlägg
#4

I så fall bör du använda = och inte like

------------------
essentitia preter non sans multiplicandum

298 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
156 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
161 ms — ändringar (db)