Privat inlägg..

Någon? :)

Jag tror säkert att alla satt och bara väntade på att du skulle posta detta Jeppeweb, så jag är också mäkta förvånad över att ingen har svarat på ditt inlägg efter 40 minuter.

Ni hjälper så mycket..

Jajamen, det gör vi. Du får ha lite tålamod bara :)

if Rs2("privat") = 0 or cint(Session("cmid")) = cint(Rs2("fran")) OR cint(Session("cmid")) = cint(Rs2("till"))  then
  'Visa
else
  'privat
end if

Dessutom bör du hämta ut informationen, som du nu hämtar till rs3, direkt i första frågan, med en join.

Ursäkta språket, men är du idiot? Vänta mer än en halvtimme, alla sitter inte och dedikerar sina dagar åt att hjälpa otacksamma typer som du. :/

Ta det lugnt Mancina.

Det är inte jag som stressar fram ett inlägg efter 40 minuter för att ingen har svarat mig.

Nog med off-topic-tjatter, Mancina. Vill du inte svara direkt, så behöver du inte. Jag tror Jeppeweb har fattat vinken.

Jeppeweb; precis som emission sa;

emission skrev:

Du får ha lite tålamod bara

MVH
OveRRidE
moderator ASP

            <% 

	SQL = "Select * From gastbok WHERE till = "&userid&" ORDER BY datum DESC"
	
	Set Rs2 = Server.CreateObject("ADODB.RecordSet")
	Rs2.CursorLocation = 3

	'Antal inlägg som ska vissas vid katalog visning
	Rs2.PageSize = 10

	Rs2.Open SQL, Connect, 1,3

	if Rs2.eof then
		Response.Write "<br><i><center>Här var det öken..</center></i>"
	else
	
			If Rs2.PageCount > 1 Then
			For i = 1 to Rs2.PageCount
				If i = CLng(sida) Then
					Response.Write "[" & i & "]&nbsp;"
				Else
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & i & ">" & i & "</a>&nbsp;"
				End If
			Next
		End If

		Dim sida
		sida = Trim(Request.QueryString("sida"))
		If sida = "" Then
			sida = 1
		End If
		
		Rs2.AbsolutePage = sida		

		Dim rad
		rad = 0
		
		Response.write "<table width='99%'>"
		
		While Not Rs2.EOF and rad < Rs2.PageSize
			rad = rad + 1
							if Rs2("privat") = 0 or cint(Session("cmid")) = cint(Rs2("fran")) OR cint(Session("cmid")) = cint(Rs2("till"))  then
  'Visa
else
  'privat
end if

			if Rs2("privat") = 1 AND egen = 1 OR Rs2("privat") = 1 AND Session("cmid") = Rs2("fran") OR Rs2("privat") = 0 then
				if x = 0 then
					bgcolor = "#efeffe"
					x = 1
				else
					bgcolor = "#f0f0fd"
					x = 0
				end if
				

				SQL = "Select * from medlemmar where id = '"&Rs2("fran")&"'"
				Set Rs3 = Connect.execute(SQL)

				Response.Write "<tr><td bgcolor="&bgcolor&">"

			 	if Rs3("bild") = "" OR Rs3("bild") = "ingen" then
					Response.Write "<img src=bilder/userspics/ingenbild.gif width=50 height=70 border=1>"
				else
					if Rs3("bildaccept")="1" then
						Response.Write "<a href=?page=2&userID="&Rs3("ID")&" border=0><img src=bilder/userspics/"&Rs3("bild")&" width=50 height=70 border=1></a>"
					else
						Response.Write "<img src=bilder/userspics/ingenbild2.gif width=50 height=70>"
					end if
				end if

				Response.Write "<td bgcolor="&bgcolor&" width=600>Skrivet av <a href=?page=2&userID="&Rs3("ID")&">"&byt(Rs3("alias"))&"</a> "
				datum = rs2("datum") 
select case cdate(FormatDateTime(datum,vbShortDate))
 case date()
  response.write "Idag kl " & FormatDateTime(datum, vbShortTime)
 case dateadd("d",-1, date())
  response.write "Igår kl " & FormatDateTime(datum, vbShortTime)
 case else
response.write FormatDateTime(datum, vbLongDate) & " kl " & FormatDateTime(datum, vbShortTime)
end select
				
				
				if Rs2("privat") = 1 then
					Response.Write " [privat] "
				end if
				Response.Write "<br><br><b></b> "&Rs2("text")
				if egen = 1 then

					Response.Write "<br><br><br><br>"		
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & sida & "&delID="&CLng(Rs2("Id"))&"><img border='0' align='right' src='gb/radera.gif'></a>"	
					Response.Write "<a href=?page=61&userid="&CLng(Rs2("fran"))&"><img border='0' align='right' src='gb/svara.gif'></a>"
				end if
				Response.Write"</td></tr>"
				
Connect.Execute("update gastbok set last = '1' WHERE ID = " & Rs("id") & "")

				Rs3.close
				Set Rs3 = Nothing

			end if

		Rs2.MoveNext
		Wend
		
		Response.write "</table>"
		
		If Rs2.PageCount > 1 Then
			For i = 1 to Rs2.PageCount
				If i = CLng(sida) Then
					Response.Write "[" & i & "]&nbsp;"
				Else
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & i & ">" & i & "</a>&nbsp;"
				End If
			Next
		End If

	end if

	Rs2.CLOSE
	Set Rs2 = nothing

if Request.Querystring("action") = "spara" then
%>

händer ingenting.. jag vill alltså att det ska stå privat gästboksinlägg för de som spanar in en annans gästbok och inte är des om skrivit inlägget.. hoppas ni förstår.

tack på förhand

Du får väl se till att använda den kod jag skrev...:) Inte bara lägga in den på ett ströställe.

hur skulle det se ut då ? :)

emission skrev:

Ta det lugnt Mancina.

Jag måste faktiskt hålla med Mancina då jag förstår hans reaktion. Att Jeppeweb inte förtjänar hjälp har han redan bevisat i ett flertal tidigare trådar.

Compusa skrev:

Jag måste faktiskt hålla med Mancina då jag förstår hans reaktion. Att Jeppeweb inte förtjänar hjälp har han redan bevisat i ett flertal tidigare trådar.

Huruvida Jeppeweb förtjänar hjälp eller inte på webForum är inte upp till varken dig eller Mancina att bestämma, varför jag ber er att lämna detta off-topic-tjafs därhän, så tråden kan få en seriös lösning.

Har ni invändningar mot detta är ni välkomna att kontakta mig eller LarsG, som är moderatorer i ASP-forumet, eller i förlängningen forumledningen.

Jag vill helst inte redigera tråden. :)

OveRRidE skrev:

Huruvida Jeppeweb förtjänar hjälp eller inte på webForum är inte upp till varken dig eller Mancina att bestämma, varför jag ber er att lämna detta off-topic-tjafs därhän, så tråden kan få en seriös lösning.

Har ni invändningar mot detta är ni välkomna att kontakta mig eller LarsG, som är moderatorer i ASP-forumet, eller i förlängningen forumledningen.

Jag vill helst inte redigera tråden. :)

(y)

Ingen som kan hjälpa?

Får du något felmeddelande?

Nope, inget alls.

Har du försökt att använda emission's kod?

Jomenvisst, men jag förstod inte riktigt hur och var jag skulle slänga in den snutten i min befintliga kod...