IF problem

varför funkar inte detta:

<% IF rs("namn") = session("username") THEN %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=rs("namn2")%></a><br>

<% ELSEIF rs("namn2") = session("username") THEN %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=rs("namn2")%></a><br>

<% END IF %>

Kan det vara fel med sql grejen?

SQL = "SELECT * From friends WHERE namn = '" & namn & "' OR namn2 = '" & namn & "'"

Den visar ingenting.

[Redigerat av Cactuz den 01 jan 2002]

visa hela koden

------------------
FEL!!
FÖR MYCKET NAKENHET I SIGNATUREN

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb") 
namn = session("username")
SQL = "SELECT * From friends WHERE namn = '" & namn & "' OR namn2 = '" & namn & "'"
Set rs = db.Execute(SQL)
%>

<%
Do Until rs.EOF
%>

<% IF rs("namn") = session("username") THEN %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=rs("namn2")%></a><br>

<% ELSEIF rs("namn2") = session("username") THEN %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=rs("namn2")%></a><br>

<% END IF %>

varför har du med Do Until RS.EOF?? då kommer den ju göra massa if satser!

------------------
FEL!!
FÖR MYCKET NAKENHET I SIGNATUREN

vad får du när du kör denna koden:

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb") 
namn = session("username")
SQL = "SELECT * From friends WHERE namn = '" & namn & "' OR namn2 = '" & namn & "'"
Set rs = db.Execute(SQL)

response.write "<p>Namn1 : "& rs("namn")&" " & _

"<p>Namn2 : "& rs("namn2")&" " & _

"<p>session : "& session("username") &" " 
%>

mvh Jörgen :)

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

därför det är en lista o detta skulle ligga efter

<%
rs.MoveNext
Loop
%>

Men du bör bara få ut en post, eftersom det bara är en användare som kan ha samma användarnamn väl?

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

jörgen: det är tänkt att det ska vara en lista och om namn är samma som session username så ska den skriva ut namn2 o om namn2 är samma som session username ska den skriva ut namn

Kan flera användare ha samma användarnamn?

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

nej men det kvittar väll just nu?

Nej, för det är högst avgörande, varför loopa när du inte behöver?

Vad fick du för resultat på min kod?

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

lr ja... det är klart att det kan ha samma användarnamn om d loggar in med samma men då måste man ju ha rätt lösenord

[Redigerat av Cactuz den 01 jan 2002]

men de e en lista på andra användare men den ska bara visa dem som står bredvid sitt egna användarnamn i databasen

<%
dim namn
namn = session("username")

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb") 

SQL = "SELECT namn, namn2 From friends WHERE namn = '" & namn & "' OR namn2 = '" & namn & "'"
Set RS = db.Execute(SQL)

If RS.EOF Then

response.write "<p>Inget fanns</p>"

else

Do Until RS.EOF 

If cstr(RS("namn")) = cstr(namn) Then %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=RS("namn2")%></a><br>

<% ElseIf cstr(RS("namn2")) = cstr(namn) Then %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=RS("namn2")%></a><br>

<% 
End If

RS.Movenext
loop

End If
%>

Har ej testat som du förstår, men testa denna koden.

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

den visar inget... precis som innan

<%
dim namn
namn = session("username")
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb") 

SQL = "SELECT namn, namn2 From friends WHERE namn = '" & namn & "' OR namn2 = '" & namn & "'"
Set RS = db.Execute(SQL)

If RS.EOF Then

response.write "<p>Inget fanns</p>"

else

Do Until RS.EOF 

If cstr(RS("namn")) = cstr(namn) Then %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=RS("namn2")%></a><br>

<% ElseIf cstr(RS("namn2")) = cstr(namn) Then %>

<a href="medlemmar_info.asp?vem=<% =RS("namn2") %>"><%=RS("namn2")%></a><br>

<%
else

response.write "<p>Inget uppfyllde kraven i if-satsen</p>"
 
End If

RS.Movenext
loop

End If
%>

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

nu får jag upp:

Inget uppfyllde kraven i if-satsen

Inget uppfyllde kraven i if-satsen

Alltså uppfylls inte dina villkor:

att session("Username") = namn eller session("Username") = namn2

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

men det gör d :)