---
title: "Fixa till koden ? , konstig tycker jag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76266-fixa-till-koden-konstig-tycker-jag"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2003-05-07T18:04:45.000Z"
updated: "2003-05-07T18:15:56.000Z"
replies: 1
views: 126
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/76266-fixa-till-koden-konstig-tycker-jag"
---

# Fixa till koden ? , konstig tycker jag

## #1 — Rodan, 2003-05-07T18:04Z

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

Permalänk: https://www.webforum.nu/p/76266

## #2 — Nickemannen, 2003-05-07T18:15Z

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.

Permalänk: https://www.webforum.nu/p/1040407

---

Tråden på webben: https://www.webforum.nu/amne/asp/76266-fixa-till-koden-konstig-tycker-jag