Lite kod kanske inte skadar? ;)
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???
11 svar · 190 visningar · startad av jwradhe
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???
Lite kod kanske inte skadar? ;)
det är väldigt mycket kod
men vad kan det vara för nåt typ??? nån databas koppling eller ??
:) Rad 128 kanske du kan visa iaf.
Felmeddelandet tyder på att du försöker använda eller skriva ut ett fält som inte finns i recordsetet.
Mvh,
jag orkar fan inte räkna dit...men jag visar typ nära 50 iaf..
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ä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"> </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"> </td>
<td height="20" width="197">
<input type="submit" name="Submit" value="skicka">
</td>
<td height="20" width="179"> </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
%>
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...
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
Rad 128:
RecSet("text")=Request.Form("text") 'spara vad som stog i input rutan inlagg i kolumnen inlagg
Byt genast namn på det fältet. "Text" alltså. Ordet är ett nyckelord och bör undvikas.