och members tabellen !!! ????
------------------
Är man medlem på WF så behöver man inga vänner !
sortera kompisar
57 svar · 466 visningar · startad av urban · sida 2 av 3
online | offline
gör så här:
Addera = "Select * From kompis Where ID1 = "&Session("id")&" order by namn"
------------------
ASP är bäst fuck the rest!!!
testa vet ej om det funkar:
<%Addera2 = "Select id,username,status from members Where id = "&RecSet("ID2")&"group by status='online' order by username"
------------------
ASP är bäst fuck the rest!!!
nu sorteras namnen fast inte online och offline
Jag hoppas att ditt sista svar inte var en beskrivning på members tabellen för då är vi ute och cyklar lite !!!
Men posta gärna en beskrivnig på hur den ser ut !!!!
------------------
Är man medlem på WF så behöver man inga vänner !
members.mdb
id
username
losen
osv
status offline eller online
Tycker det ser lite lustigt ut,Men förmodligen är det för jag inte fattar hur du har tänkt !!!
I din SQL första fråga..
tar du ut ett Recordset där
ID1 = "&Session("id")
i din andra fråga använder du
Where id = "&RecSet("ID2")
För att du då ska kunna få ut mer än en post så måste du har mera en
member med id:t som finns på första posten i RecSet("ID2")....
Är du med mig !
Så jag får inte ihop det hur du ska kunna få ut en lista som du vill sortera !!!!
Men förmodligen är det jag som fattar fel !!!!
------------------
Är man medlem på WF så behöver man inga vänner !
så här ser hela skiten ut:
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY onKeyDown="onKeyDown()" onselectstart="return false" ondragstart="return false" oncontextmenu="return false" bgColor=#ffffff onload=;scrollInit(); topmargin="0" leftmargin="0" style="background-color: #C2C5C9">
<DIV id=divCont
style="Z-INDEX WIDTH: 1; CLIP: rect(0px 150px 179px 0px); POSITION: absolute; TOP: 0; HEIGHT: 183; left:-11; width:50">
<DIV id=divText style="Z-INDEX: 1; LEFT: 13px; POSITION: relative; TOP: 0px; width:98; height:7">
<table width="98" border="0" cellspacing="0" cellpadding="0" height="18" >
<tr>
<td valign="top" width="75"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kompis Where ID1 = "&Session("id")&" order by namn"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
</font><font size="1" face="Arial" color="#000000">
</font>
<% IF NOT (RecSet.EOF) THEN %><font face="Arial" size="1">
<%Do Until RecSet.EOF%>
<%Addera2 = "Select id,username,status from members Where id = "&RecSet("ID2")&" group by status='online' order by username"
RecSet2.Open Addera2, Connect2, adOpenStatic, adLockOptimistic
%> </font>
<tr>
<td><font face="Arial"><font size="1"><%If RecSet2("status") = "offline" Then%><img border="0" src="Bilder/relationoffline.gif" width="7" height="7">
<%Else%><font size="1" face="Arial"><img border="0" src="Bilder/relationonline.gif" width="7" height="7"></font> <%End If%></font><a href="krypin.asp?checkid=<%=RecSet("ID2")%>" target="main"><font size="1"><%=RecSet("namn")%></font></a><font size="1">
</font> </font>
<font face="Arial" size="1"></font></td>
<td width="23"><font face="Arial" size="1" color="#000000">
<a href="skriv_meddelande.asp?toID=<%=RecSet("ID2")%>&direct=yes&kompis=<%=RecSet("namn")%>" target="main">
<img src="Bilder/meddelanden_liten.gif" align="middle" alt="Skicka ett meddelande till <%=RecSet("namn")%>" border="0"></a>
<a href="delete_friend.asp?delID=<%=RecSet("id")%>" target="_self">
<img src="Bilder/sopkorg_liten.gif" alt="Ta bort <%=recset("namn")%> från listan" border="0" align="middle"></a></font></td>
</tr>
<%
RecSet2.Close
RecSet.MoveNext
Loop
Connect2.Close
Set RecSet2 = nothing
Set Connect2 = nothing
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%><font face="Arial" size="1"> </font>
</table>
</td>
</tr>
</table>
</DIV>
</div>
<% ELSE %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="97" height="47">
<tr>
<td height="24">
</td>
</tr>
<tr>
<td height="23" valign="bottom">
<p align="center"><font size="1" face="Arial">Du har inga kompisar i din kompislista! om du vill skaffa kompisar så sök
efter någon och lägg till han eller hon i din lista så får du en ny kompis<br>
i din kompislista.</font></td>
</tr>
</table>
</BODY><% END IF %></HTML>
hallllåååååååååååå
hallllåååååååååååå
hallllåååååååååååå
Prova att ändra din SQL fråga till det här
Addera2 = "Select id,username,status from members Where id in (Select id From kompis Where ID1 ="&Session("id")&")
group by status order by username"
Prova att köra den i queryanalyser så att du får fram det du vill ha !!!!
Sen får du flytta om i din kod lite !!!
Du ska självklart bytta ut ="&Session("id")& mot ett id som finns när du test kör Lycka till !!!!
------------------
Är man medlem på WF så behöver man inga vänner !
Prova att ändra din SQL fråga till det här
Addera2 = "Select id,username,status from members Where id in (Select id From kompis Where ID1 ="&Session("id")&")
group by status order by username"
Prova att köra den i queryanalyser så att du får fram det du vill ha !!!!
Sen får du flytta om i din kod lite !!!
Du ska självklart bytta ut ="&Session("id")& mot ett id som finns när du test kör Lycka till !!!!
------------------
Är man medlem på WF så behöver man inga vänner !
fattar inte ett dugggggggg
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/kompislistan.asp, line 151, column 64
Addera2 = "Select id,username,status from members Where id in ("Select id From kompis Where ID1 ="&Session("id")&") group by status order by username"
---------------------------------------------------------------^
nån som kan hjälpa innan jag spricker
Kör du SQL server så kör frågan som jag skrev i QueryAnalyzer !!!!
Du har dessutom laggt till en " som inte ska vara där det är därför du får fel !!!!
Så här ska den vara
Addera2 = "Select id,username,status from members Where id in (Select id From kompis Where ID1 ="&Session("id")&")
group by status order by username"
------------------
Är man medlem på WF så behöver man inga vänner !
har uppstått problem med sidan du försökte nå. Den kunde inte visas.
--------------------------------------------------------------------------------
Prova att:
Klicka på knappen Uppdatera, eller försök igen senare.
öppna hemsidan localhost och titta efter länkar till informationen du söker.
HTTP 500.100 - Internt serverfel - ASP-fel
Internet Information Services
--------------------------------------------------------------------------------
Teknisk information (för supportpersonal)
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0409)
Oavslutad strängkonstant
/kompislistan.asp, line 148, column 114
Addera2 = "Select id,username,status from members Where id in (Select id From kompis Where ID1 ="&Session("id")&")
-----------------------------------------------------------------------------------------------------------------^