webForumDet fria alternativet
Logga in / Bli medlem

Lägga till Feed fel.

ASP

18 svar · 909 visningar · startad av SGuncel

SGuncelMedlem sedan jan. 2007217 inlägg
Frågan#1

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:

<!-- #include file="Inc/DBConnection.asp" --><!-- #include file="Inc/LoginCheck.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="copyright" content="">

<title></title>
<link rel="stylesheet" href="_Style/SidansStyle.css" type="text/css">

</head>

<body>
<%
	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"))&"")
%>
<table cellpadding="0" cellspacing="0" width="705">

<tr>
<td height="5">
<img src="../_Grafik/Profil_Vanster_Uppe.gif" alt="" width="9" height="7"></td>
<td height="7" style="background-image: url('../_Grafik/Profil_Uppe.gif');" width="666"></td>
<td height="5">
<img src="../_Grafik/Profil_Hoger_Uppe.gif" alt="" width="15" height="7"></td>
</tr>

<tr>
<td width="9" style="background-image: url('../_Grafik/Profil_Vanster.gif');" height="525"></td>
<td width="681" height="197">
              <table width="100%"  border="0" cellspacing="0" cellpadding="0" height="23" id="table1">
                <tr>
                  <td width="259" style="background-image: url('../_Grafik/Profil_Meny_Stor.gif');" height="23" style="padding: 3px;">
                <%=ObjRS2("UsrTLAlias")%>,                 
<%=ObjRS2("UsrSex")%>&nbsp;<%
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")%>   
                </td>
               <td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
                <img src="../_Grafik/Pix.gif" width="10" height="10">
                <a href="../UsrProfile/Profil.asp?UsrID=<%=ObjRS2("UsrID")%>">Profil</a></td>
                               <td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
                <img src="../_Grafik/Pix.gif" width="10" height="10">
                <a href="../UsrGuestbook/Guestbook.asp?UsrID=<%=ObjRS2("UsrID")%>">Gästbok</a></td>
                               <td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
                <img src="../_Grafik/Pix.gif" width="10" height="10">
               <a href="../UsrFriends/Friends.asp?UsrID=<%=ObjRS2("UsrID")%>">Vänner</a></td>
                               <td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
                <img src="../_Grafik/Pix.gif" width="10" height="10">
                <a href="../UsrGallery/Gallery.asp?UsrID=<%=ObjRS2("UsrID")%>">Galleri</a></td>
                              <td width="90" style="background-image: url('../_Grafik/Profil_Meny_Liten.gif');" height="23">
                </td>
                </tr>
                </table>
                
                                                      <table width="100%"  border="0" cellspacing="0" cellpadding="0" height="504">
                <tr>
                              <td width="506" height="504" valign="top">
<%
	If ObjRS.Eof Then 

					Response.Redirect "../UsrFriends/Friends.asp?UsrID="&SafeSQL(Session("UsrID"))&""
		End if
					Response.Write "Folk som du vill acceptera?<br><br>"
	Do Until ObjRS.EOF

%>
		
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="71">
                <tr>
					<td width="58" height="71">
                <img src="../_Grafik/Pix.gif" width="3" height="20">                 <td>
                
              <table width="100%"  border="0" cellspacing="0" cellpadding="0" height="58">
                <tr>
                  <td width="259" height="58" valign="top">
                	<form action="?Friend=Accept&FriendId=<%=Server.HtmlEncode(ObjRS("FriendId"))%>" method="post">

<a href="../UsrProfile/Profil.asp?UsrID=<%=Server.HtmlEncode(ObjRS("From_UsrID"))%>"><%=Server.HtmlEncode(ObjRS("From_TLAlias"))%></a><br>
Skapat för relation? <%=Server.HtmlEncode(ObjRS("FriendType"))%><br>
Träffats: <%=Server.HtmlEncode(ObjRS("FriendMeet"))%><br><br>
Vill du acceptera: <select name="FriendAccept"><option value="Yes" selected>Ja</option><option value="No">Nej</option></select><br><br>
<input type="submit" value="Acceptera"></form>

                	</td>
                </tr>
                </table>
                
              <table width="95%"  border="0" cellspacing="0" cellpadding="0" height="15">
                <tr>
                  <td width="425" height="15" valign="top">
</td>
                </tr>
                </table>
                
                </td></td>
                </tr>
                                             </table>
                                             <table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="Profil_Linje_Botten">
                <img src="../_Grafik/Pix.gif" width="3" height="3"></td>
</tr>
</table>
<%
	ObjRS.MoveNext
	Loop
%>
<td valign="top" width="2" class="Profil_Linje_Vanster">
&nbsp;
</td>
                </td>
<td valign="top">
<%

		
				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 &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& ObjRS("From_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
	ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& 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

%>
</td>
                </td>
                </tr>
                </table>

                
                </td>
<td width="15" style="background-image: url('../_Grafik/Profil_Hoger.gif');" height="197"></td>
</tr>

<tr>
<td height="5">
<img src="../_Grafik/Profil_Vanster_Nere.gif" alt="" width="9" height="6"></td>
<td height="5" style="background-image: url('../_Grafik/Profil_Nere.gif');"></td>
<td height="5">
<img src="../_Grafik/Profil_Hoger_Nere.gif" alt="" width="15" height="6"></td>
</tr>

<tr>
<td height="5">
<img src="../_Grafik/Profil2_Vanster_Nere.gif" alt="" width="9" height="16"></td>
<td height="5" style="background-image: url('../_Grafik/Profil2_Nere.gif');"></td>
<td height="5">
<img src="../_Grafik/Profil2_Hoger_Nere.gif" alt="" width="15" height="16"></td>
</tr>
</table>

</body>

</html>
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#2

byt ut ' mot # vid "FeedDate" ... då det är av typen Datum i din databas kanske?

SGuncelMedlem sedan jan. 2007217 inlägg
#3

Har testat det också samma fel.
Japp har DateTime i databasen ock använder mig av MySQL.

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#4

http://www.lattimore.id.au/2005/02/17/asp-error-80020009/

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.

SGuncelMedlem sedan jan. 2007217 inlägg
#5

Hur ska jag kolla om jag kvar mitt ObjRS data so jag vill?

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#6

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...

SGuncelMedlem sedan jan. 2007217 inlägg
#7
<%
	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.

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#8

du vill inte ha moveFirst i en loop där den försöker gå igenom alla dina record.

SGuncelMedlem sedan jan. 2007217 inlägg
#9

Hur ska jag fixa till det?

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#10

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.

SGuncelMedlem sedan jan. 2007217 inlägg
#11

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?<br><br>"
					
		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 &"#,'- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& ObjRS("To_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#12

Nu har jag tittat igenom dina koder..

					<%
						ObjRS.MoveNext
						Loop
					%>
					<td valign="top" width="2" class="Profil_Linje_Vanster">
						&nbsp;
					</td>
               	</td>
<td valign="top">
<%

		
				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 &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& ObjRS("From_UsrID") &", '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
	ObjConn.Execute("Insert into tblfeed (feedDate, feed, feeduserId, IP) values ('" & now &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& 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

%>
</td>

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...

SGuncelMedlem sedan jan. 2007217 inlägg
#13

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"))&"")
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#14

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 &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& 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 &"','- <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("To_UsrID") &""">"& ObjRS("To_UsrTLAlias")& "</a> <span class=""feedText"">och</span> <a class=""feedHeaderuserName"" href=""profile/profile.asp?usrId="& ObjRS("From_UsrID") &""">"& ObjRS("From_UsrTLAlias") &"</a> <span class=""feedText"">blev vänner. ("& ObjRS("FriendType") &")</span>',"& 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å.

SGuncelMedlem sedan jan. 2007217 inlägg
#15

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)

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#16

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.

SGuncelMedlem sedan jan. 2007217 inlägg
#17

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..

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#18

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.

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#19

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?

256 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)