---
title: "Lägga till Feed fel."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/164681-lägga-till-feed-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SGuncel"
published: "2007-09-20T02:38:06.000Z"
updated: "2007-10-29T14:47:39.000Z"
replies: 18
views: 919
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/164681-lägga-till-feed-fel"
---
# Lägga till Feed fel.
## #1 — SGuncel, 2007-09-20T02:38Z
Hej
När jag försöker lägga till feed så får jag fel. Det är så att när man blir vän ska det skapas feed också som t.ex. test och system blev vänner. (Kompisar)
Problemet är att jag får denna felmeddelandet:
error '80020009'
/UsrFriends/FriendsAccept.asp, line 137
Så här ser min kod ut:
```
<%
Set ObjRS = ObjConn.Execute("Select * From Friends where FriendAccept='Vänta' and To_UsrID="&SafeSQL(Session("UsrId"))&"")
strSQL = "Select * From TLUsers WHERE UsrID="&SafeSQL(Session("UsrID"))&""
Set ObjRS2 = ObjConn.Execute(strSQL)
ObjConn.Execute("Update TLUsers set UsrLastActive='" & Now & "' where UsrID ="&SafeSQL(Session("UsrID"))&"")
%>
<%=ObjRS2("UsrTLAlias")%>,
<%=ObjRS2("UsrSex")%> <%
Function Age(datBorn)
Age = DateDiff("yyyy", datBorn, Date())
If (Month(Date()) < Month(datBorn)) or _
(Month(Date()) = Month(datBorn) and Day(Date()) < Day(datBorn)) Then Age = Age -1
End Function
%><%=Age(DateSerial(ObjRS2("UsrAgeYear"), ObjRS2("UsrAgeMonth"), ObjRS2("UsrAgeDay")))%>
från <%=ObjRS2("UsrLiveLoc")%>
<%
If ObjRS.Eof Then
Response.Redirect "../UsrFriends/Friends.asp?UsrID="&SafeSQL(Session("UsrID"))&""
End if
Response.Write "Folk som du vill acceptera?
"
Do Until ObjRS.EOF
%>
<%
ObjRS.MoveNext
Loop
%>
<%
IF Request.Querystring("Friend")="Accept" then
IF Request.Form("FriendAccept")="No" then
ObjConn.Execute("Delete from Friends where FriendId="&SafeSQL(Request.Querystring("FriendId"))&"" & " and To_UsrID="&SafeSQL(Session("UsrID"))&"")
End if
ObjConn.Execute("Update Friends set FriendAccept='"&SafeSQL(Request.Form("FriendAccept"))&"'" & " where FriendId="&SafeSQL(Request.Querystring("FriendId"))&"")
[B]Rad:137[/B] ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("From_UsrTLAlias")& "och"& ObjRS("To_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("From_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("To_UsrTLAlias")& "och"& ObjRS("From_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("To_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjRS.Close : Set ObjRS = Nothing
ObjConn.Close : Set ObjConn = Nothing
Response.Redirect "../UsrFriends/Friends.asp?UsrID="&SafeSQL(Session("UsrId"))&""
End if
%>
```
Permalänk: https://www.webforum.nu/p/164681
## #2 — voigtann1, 2007-09-20T04:56Z
byt ut ' mot # vid "FeedDate" ... då det är av typen Datum i din databas kanske?
Permalänk: https://www.webforum.nu/p/2029941
## #3 — SGuncel, 2007-09-20T08:56Z
Har testat det också samma fel.
Japp har DateTime i databasen ock använder mig av MySQL.
Permalänk: https://www.webforum.nu/p/2030003
## #4 — voigtann1, 2007-09-20T09:48Z
prova med date(now()) istället?
Nej.. nu ser jag felet.. du har ju loopat ut ditt recordset ObjRS? Kolla först om du har kvar ditt ObjRS data som du vill..
prova även att skriva ut din SQL fråga i en Response.Write och kör Response.End så du kan kontrollera att den skriver rätt.
Permalänk: https://www.webforum.nu/p/2030013
## #5 — SGuncel, 2007-09-20T10:27Z
Hur ska jag kolla om jag kvar mitt ObjRS data so jag vill?
Permalänk: https://www.webforum.nu/p/2030021
## #6 — voigtann1, 2007-09-20T15:37Z
Response.write objRs("någotvärde")
Response.End
efter din Rs.Movenext ...
Du får kanske göra en rs.MoveFirst för det skall fungera för dig...
Permalänk: https://www.webforum.nu/p/2030123
## #7 — SGuncel, 2007-10-27T23:53Z
```
<%
ObjRS.MoveFirst
Response.write objRs("FriendId")
Response.End
Loop
%>
```
Så skrivs det ut men när jag har så här
```
<%
ObjRS.MoveFirst
Loop
%>
```
Får jag detta fel meddelandet:
Response object error 'ASP 0251 : 80004005'
Response Buffer Limit Exceeded
/UsrFriends/FriendsAccept.asp, line 0
Execution of the ASP page caused the Response Buffer to exceed its configured limit.
Permalänk: https://www.webforum.nu/p/2044774
## #8 — voigtann1, 2007-10-28T07:45Z
du vill inte ha moveFirst i en loop där den försöker gå igenom alla dina record.
Permalänk: https://www.webforum.nu/p/2044790
## #9 — SGuncel, 2007-10-28T07:50Z
Hur ska jag fixa till det?
Permalänk: https://www.webforum.nu/p/2044791
## #10 — voigtann1, 2007-10-28T08:07Z
Innan du gå "do until rs.Eof" lägger du till den raden som gör så att ditt record börja om från början... annars är den ju redan eof när du försöker anropa din kod.
Permalänk: https://www.webforum.nu/p/2044793
## #11 — SGuncel, 2007-10-28T10:44Z
Gjorde så här men fick samma felmeddelade igen:
```
<%
If ObjRS.Eof Then
Response.Redirect "../UsrFriends/Friends.asp?UsrID="&SafeSQL(Session("UsrID"))&""
End if
Response.Write "Folk som du vill acceptera?
"
Set ObjRS = ObjConn.Execute("Select * From Friends where FriendAccept='Vänta' and To_UsrID="&SafeSQL(Session("UsrId"))&"")
Do Until ObjRS.EOF
%>
```
Felmeddelande:
error '80020009'
/UsrFriends/FriendsAccept.asp, line 139
Det är nåt fel på denna raden:
```
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values (#" & now &"#,'- "& ObjRS("To_UsrTLAlias")& "och"& ObjRS("From_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("To_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
```
Permalänk: https://www.webforum.nu/p/2044806
## #12 — voigtann1, 2007-10-28T17:27Z
Nu har jag tittat igenom dina koder..
```
<%
ObjRS.MoveNext
Loop
%>
<%
IF Request.Querystring("Friend")="Accept" then
IF Request.Form("FriendAccept")="No" then
ObjConn.Execute("Delete from Friends where FriendId="&SafeSQL(Request.Querystring("FriendId"))&"" & " and To_UsrID="&SafeSQL(Session("UsrID"))&"")
End if
ObjConn.Execute("Update Friends set FriendAccept='"&SafeSQL(Request.Form("FriendAccept"))&"'" & " where FriendId="&SafeSQL(Request.Querystring("FriendId"))&"")
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("From_UsrTLAlias")& "och"& ObjRS("To_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("From_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("To_UsrTLAlias")& "och"& ObjRS("From_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("To_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjRS.Close : Set ObjRS = Nothing
ObjConn.Close : Set ObjConn = Nothing
Response.Redirect "../UsrFriends/Friends.asp?UsrID="&SafeSQL(Session("UsrId"))&""
End if
%>
```
Om du ser där så loopar du ut ditt Recordset helt ... sen försöker du läsa av den igen... + din kod som du vill göra ... jag är mycket fundersam hur du vill att den ska fungera. Du får nog plockar ut ett Recordset till eller något för att veta vilka du ska göra en update på.. för nu loopar du ut alla dina record(objRs). Men om jag har fattat det rätt så är det en specific person och handling du vill göra...
Permalänk: https://www.webforum.nu/p/2044860
## #13 — SGuncel, 2007-10-29T11:04Z
Hur ska jag göra då?
Öppna ny recortsetmed den hära?
```
Set ObjRS = ObjConn.Execute("Select * From Friends where FriendAccept='Vänta' and To_UsrID="&SafeSQL(Session("UsrId"))&"")
```
Permalänk: https://www.webforum.nu/p/2044984
## #14 — voigtann1, 2007-10-29T12:15Z
Jag har lite svårt att förstå \_vad\_ det är du vill göra och hur du ska göra det?
Om vi tar:
```
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("From_UsrTLAlias")& "och"& ObjRS("To_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("From_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
```
Du måste veta vad ObjRS("From_UsrID"), ObjRS("From_UsrTLAlias"), ObjRS("FriendType") &") och ObjRS("From_UsrID"). Dessa saker måste du plocka ut på något sätt i din If-fråga. Vad vet du när du har postat?
De två saker jag kan se är att du egentligen bara ha två värden (som sagt kan vara mer kod du har postat)
Request.Querystring("Friend") och Request.Form("FriendAccept") Du måste ju hämta ut det ID du vill ha på din kompis och även ditt egna id om det är username mm är ditt användarnamn mm.
```
ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- "& ObjRS("To_UsrTLAlias")& "och"& ObjRS("From_UsrTLAlias") &"blev vänner. ("& ObjRS("FriendType") &")',"& ObjRS("To_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
```
Gäller samma sak som ovan på denna fråga... du måste på något sätt veta att det är användare 'x' du ska göra uppdatering på.
Permalänk: https://www.webforum.nu/p/2045003
## #15 — SGuncel, 2007-10-29T13:48Z
Det jag försöker göra är att det ska stå.
Det är ska stå t.ex. på din feed.
Idag 15:22 - voigtann1 och SGuncel blev vänner. (Kompisar)
Det här ska stå på mig.
Idag 15:22 - SGuncel och voigtann1 blev vänner. (Kompisar)
Permalänk: https://www.webforum.nu/p/2045031
## #16 — voigtann1, 2007-10-29T13:51Z
Så mycket har jag förstått.. men det jag inte förstå är \_hur\_ du har tänkt att få ut mitt ID (eftersom vi tar ditt ifrån Session). Du måste ju ha något värde man kan jobba med för att ASPn + Databasen vet om att du vill bli voigtann1 kompis.
Permalänk: https://www.webforum.nu/p/2045033
## #17 — SGuncel, 2007-10-29T14:05Z
Dessa kolumner har jag i tabellen:
FriendId, From_UsrId, From_TLAlias, To_UsrId, To_TLAlias, FriendshipDate, FriendAccept, FriendType, FriendMeet, IP
När man har frågat om förfråga om att skapa realtion så ändras FriendAccept till Vänta. När man har accepterat realtionen så ändras Vänta till Yes.
```
ObjConn.Execute("Update Friends set FriendAccept='"&SafeSQL(Request.Form("FriendAccept"))&"'" & " where FriendId="&SafeSQL(Request.Querystring("FriendId"))&"")
```
Hur ska jag annars göra för att få fram från/till användarens id och anv..
Permalänk: https://www.webforum.nu/p/2045036
## #18 — voigtann1, 2007-10-29T14:38Z
Det är inte den biten som är problemet i din fråga det är dina INSERTS som du försöker lägga in Recordset som du har tömt ut. Det jag ser så måste du Selectera ut ett Recordset med "Kompis namnet", ID och FriendType för det är de du skickar i din INSERT.
Permalänk: https://www.webforum.nu/p/2045041
## #19 — voigtann1, 2007-10-29T14:47Z
Gör så här:
Du vet Kompis ID -\> Hämta ut vad använderen heter + id(det har du i Querystringen redan dock)
Vad saknas där? Jo vi måste veta vad det är för "FriendType" det ska vara. hur du löser detta vet jag inte ... då du ta bort alla referenser du har med dig och kompisen.. får du detta i en Request.form eller Querystring på något sätt Kalas då kan vi använda det
Du måste hämta ut ditt egna namn (om du gör detta med en SQL vet jag inte eller om du har en sparad i en Session(?)
Så nu efter det har du fått:
Kompisens namn
Hennes ID
Vilken kompis typ ni ska vara med varandra
Ditt egna namn
Ditt ID
NU kan vi göra insertet så ni får det "på papper":
Vi gör dina Inserts med de 5 nya datan vi har hämtat ut med hjälp av Querystrings, Sessions och formulär datan(?)
Din kod idag håller inte alls då den har inget Recordset alls att gå på... den kan vara:
1\. Tom
2\. Kört till EOF på den. - \> om du har gjort det hur vet koden vilken kompis du vill bli kompis med?
Permalänk: https://www.webforum.nu/p/2045043
---
Tråden på webben: https://www.webforum.nu/amne/asp/164681-lägga-till-feed-fel
">Profil
