Jag la alla olika vänner i en array.
Då lägger jag bára in nummer i databasen.,.
Sorterar det efter vänner och loopar ut.
Om det dyker upp ett nummer som det innan inte var så skriver den ut det relationsnamnet och loopar vidare.
Frågan#1
Hej
Som alla vet så har jag ju ett community... med så klart ett vänner-system..
nu undrar jag om nån kan fixa koden som kommer nedanför...
Jag ska typ sortera vänskaps typerna...
typ
VÄN:
Test
Olle
GIFTA:
Sofia
BEKANT:
OBA
Freddy
--------------------Dessa är dom olika vän typerna-----------------------
Bekant
Förlovade
Gifta
Gammalt Ex
Hatobjekt
Hemlighetsstämplat
Internetkumpan
Irritationsobjekt
Jobbarkompis
Jättenära vän
Kusiner
Kära
Nära Vän
Partners
Sambo
Själsfrände
Skolkamrat
Släkting
Syskon
Vän
-----------------------------------------------------------------------------------
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/friends.mdb")&";"
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From friends where toiD =" &session("id") &" AND Approved = Yes"
rs.Open Addera, Connect, 3, 3
if not rs.eof then
%>
<html>
<head>
<LINK REL=stylesheet HREF="SwedenWorld.css" TYPE="text/css">
<body class="bg">
<table width="442" class="ram" height="90" cellspacing="6" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr><td colspan="5" width="436" height="27"><font class="text"><%=rs("Toname")%> VÄNNER:<hr color="navy" size="1"></td></tr>
<% do until rs.eof%>
<tr><td width="39" height="12"><font class="text">
<% if rs("toid") = session("id") then %>
<%else%>
<%=rs("relation")%></td><td width="39" height="12">
<a href="whois.asp?checkid=<%=rs("toid")%>" target="inne">
<%=rs("Toname")%></a></td><td width="89" height="12">
<%=rs("age")%> från
<%=rs("stad")%></td><td align="right" width="257" height="12">
<a href="van_info.asp?id=<%=rs("id")%>" target="inne">Info</a>|<a href="do_delete_friend.asp?delid=<%=rs("id")%>" target="inne">Ta bort</a>
</td></tr>
<tr><td width="39" height="10">
<%end if%>
<% if rs("fromid") = session("id") then %>
<%else%>
<%=rs("relation")%></td><td width="39" height="10">
<a href="whois.asp?checkid=<%=rs("fromid")%>" target="inne">
<%=rs("namn")%></a></td><td width="89" height="10">
<%=rs("fromage")%> från
<%=rs("fromstad")%></td><td align="right" width="257" height="10">
<a href="van_info.asp?id=<%=rs("id")%>" target="inne">Info</a>|<a href="do_delete_friend.asp?delid=<%=rs("id")%>" target="inne">Ta bort</a>
</td></tr>
<%end if%>
<%
rs.movenext
loop
rs.close
connect.close
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/friends.mdb")&";"
Set recset = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select * From friends where fromiD =" &session("id") &" AND Approved = Yes"
recset.Open Addera2, Connect2
%>
<% do until recset.eof%>
<% if recset("toid") = session("id") then %>
<%else%><tr><td width="39" height="12">
<%=recset("relation")%></td><td width="39" height="12">
<a href="whois.asp?checkid=<%=recset("toid")%>" target="inne">
<%=recset("Toname")%></a></td><td width="89" height="12">
<%=recset("age")%> från
<%=recset("stad")%></td><td align="right" width="257" height="12">
<a href="van_info.asp?id=<%=recset("id")%>" target="inne">Info</a>|<a href="do_delete_friend.asp?delid=<%=recset("id")%>" target="inne">Ta bort</a>
</td></tr>
<tr><td width="39" height="9">
<%end if%>
<% if recset("fromid") = session("id") then %>
<%else%>
<%=recset("relation")%></td><td width="39" height="9">
<a href="whois.asp?checkid=<%=recset("fromid")%>" target="inne">
<%=recset("namn")%></a></td><td width="89" height="9">
<%=recset("fromage")%> från
<%=recset("fromstad")%></td><td align="right" width="257" height="9">
|<a href="do_delete_friend.asp?delid=<%=recset("id")%>" target="inne">Ta bort</a>
</td></tr>
<%end if%>
<%
recset.movenext
loop
recset.close
connect2.close%>
------------------------------------------------------------------------------------
Nån som kan hjälpa mig med de ? typ snabbare kod osv... och hur man sorterar den....
för jag har försökt med
if recset blabla
men det e ju för mycket, har hört att det tar för mycket tid
H/Rodan :e