webForumDet fria alternativet

Felmeddelande

ASP

11 svar · 190 visningar · startad av jwradhe

Medlem sedan juni 2002711 inlägg
Frågan#1
ADODB.Recordset error '800a0cc1' 

Item cannot be found in the collection corresponding to the requested name or ordinal. 

/default.asp, line 128

va ska jag göra???

Medlem sedan feb. 20022 594 inlägg
#2

Lite kod kanske inte skadar? ;)

Medlem sedan juni 2002711 inlägg
#3

det är väldigt mycket kod

Medlem sedan juni 2002711 inlägg
#4

men vad kan det vara för nåt typ??? nån databas koppling eller ??

Medlem sedan feb. 20022 594 inlägg
#5

:) Rad 128 kanske du kan visa iaf.

Medlem sedan juni 200032 967 inlägg
#6

Felmeddelandet tyder på att du försöker använda eller skriva ut ett fält som inte finns i recordsetet.

Mvh,

Medlem sedan juni 2002711 inlägg
#7

jag orkar fan inte räkna dit...men jag visar typ nära 50 iaf..

Medlem sedan juni 2002711 inlägg
#8

eeehhh...får bli hela..=)

<%

db = Server.MapPath("db/forum.mdb")	

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link { text-decoration: none ; color: #000000; }
  a:visited { text-decoration: none; color: #000000; }
  a:active { text-decoration: none; color: #999999; }
  a:hover { text-decoration: none; color: #999999; }
-->
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">    <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Set RecSet = Server.CreateObject("ADODB.Recordset")
VISA = "SELECT * From forum order by datum desc"
RecSet.Open Visa, Connect, 3, 3 

%>
  <table width="450" border="0" cellspacing="0" cellpadding="0" height="43">
    <tr bgcolor="#999933"> 
      <td height="20"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      <td height="20"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      <td height="20"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      <td height="20"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      <td height="20"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
    </tr>
    <tr bgcolor="#999933"> 
      <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Rubrik</font></b></td>
      <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Skribent</font></b></td>
      <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Datum</font></b></td>
      <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Svar</font></b></td>
      <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">L&auml;st</font></b></td>
    </tr>
  </table><% do until recset.EOF %>
  <table width="450" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td width="95" bgcolor="#999966"><a href="läsid.asp?las=<% =RecSet("ID")%>"><%=RecSet("rubrik")%></a></td>
      <td width="125" bgcolor="#999999"><%=RecSet("namn")%></td>
      <td width="98" bgcolor="#999966"><%=RecSet("datum")%></td>
      <td width="64" bgcolor="#999999"><%=RecSet("antalsvar")%></td>
      <td width="68" bgcolor="#999966"><%=RecSet("antalläst")%></td>
    </tr>
  </table>
  <% 
RecSet.MoveNext
Loop
RecSet.Close
%>
  <table width="450" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td width="95" bgcolor="#999966">&nbsp;</td>
    </tr>
  </table><form  method="post" action="default.asp?add=skicka">
    <table width="450" border="0" cellspacing="0" cellpadding="0" height="43" bgcolor="#999933">
      <tr> 
        <td height="20" width="74" align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Namn:</font></b></td>
        <td height="20" width="197"> 
          <input type="text" name="namn">
          <b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
        <td height="20" width="179"><b></b></td>
      </tr>
      <tr> 
        <td height="20" width="74" align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Rubrik:</font></b></td>
        <td height="20" width="197"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
          <input type="text" name="rubrik">
          </font></b></td>
        <td height="20" width="179"><b></b></td>
      </tr>
      <tr> 
        <td height="20" width="74" align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email:</font></b></td>
        <td height="20" width="197"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
          <input type="text" name="email">
          </font></b></td>
        <td height="20" width="179"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      </tr>
      <tr> 
        <td height="20" width="74" align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Hemsida:</font></b></td>
        <td height="20" width="197"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
          <input type="text" name="hemsida" value="http://">
          </font></b></td>
        <td height="20" width="179"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      </tr>
      <tr> 
        <td height="20" width="74" align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Text:</font></b></td>
        <td height="20" width="197"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
          <textarea name="text" cols="40" rows="10"></textarea>
          </font></b></td>
        <td height="20" width="179"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></td>
      </tr>
      <tr>
        <td height="20" width="74" align="right">&nbsp;</td>
        <td height="20" width="197">
          <input type="submit" name="Submit" value="skicka">
        </td>
        <td height="20" width="179">&nbsp;</td>
      </tr>
    </table>
</form>
</div>
</body>
</html>

<%
if Request.Querystring("add") = "skicka" then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM forum"
RecSet.Open Addera, Connect, 3, 3

RecSet.Addnew
RecSet("namn")=Request.Form("namn")   'spara vad som stog i input rutan namn  i kolumnen namn 
RecSet("email")=Request.Form("email")  'spara vad som stog i input rutan epost  i kolumnen epost 
RecSet("hemsida")=Request.Form("hemsida") 
RecSet("rubrik")=Request.Form("rubrik")
RecSet("text")=Request.Form("text") 'spara vad som stog i input rutan inlagg  i kolumnen inlagg 
RecSet("ip")=Request.ServerVariables("REMOTE_ADDR")
RecSet("datum")=date
RecSet.Update 
RecSet.Close
Connect.Close 
Set RecSet = nothing
Set Connect = nothing

Response.redirect "default.asp" '
End If
%>
Medlem sedan juni 200032 967 inlägg
#9

Läs mitt inlägg ovan.

Jag tror inte någon annan orkar räkna rader i din kod om du inte orkar göra det själv...

Medlem sedan feb. 200112 078 inlägg
#10

jag orkar fan inte räkna dit...men jag visar typ nära 50 iaf..

Ok. Få ingen hjälp då.

Skaffa en editor som räknar rader åt dig, hur felsöker du annars? :q

Medlem sedan sep. 2002538 inlägg
#11

Rad 128:

RecSet("text")=Request.Form("text") 'spara vad som stog i input rutan inlagg  i kolumnen inlagg
Medlem sedan feb. 20022 594 inlägg
#12

Byt genast namn på det fältet. "Text" alltså. Ordet är ett nyckelord och bör undvikas.

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