Om båda = "ja"

Hejsan! Hur gör jag en kod så den skriver ut bara om båda sessions = "ja"??
Med denna kod skriver den ut så fort någon av dem är "ja"...

if session("tom") = "ja" AND session("tom1") = "ja" then%>
Du har inga polare inne
<%end if%>

Båda måste vara "ja" för att de ska skrivas ut...

Prova:

if session("tom") = "ja" OR session("tom1") = "ja" then%>
Du har inga polare inne
<%end if%>

Har prövat det, vilket gav samma resultat... det skrev ut iaf..

Skriv ut värdet på sessionerna, vad får du?

Om du provar:

if lcase(session("tom")) = "ja" OR lcase(session("tom1")) = "ja" then%>
Du har inga polare inne
<%end if%>

Kan din session ha ett annat värde? Annars prova:

if session("tom") <> "" OR session("tom1") <> "" then%>
Du har inga polare inne
<%end if%>

magnusfernstrom skrev:

Skriv ut värdet på sessionerna, vad får du?

Dom är "ja", även när dom inte ska vara det, vilken jag tycker är lite konstigt... jag prövade logga in med en annan användare, då vart det rätt resultat, men inte med min... Så det är något mysko med de andra asp koderna...

Inferis skrev:

Om du provar:

if lcase(session("tom")) = "ja" OR lcase(session("tom1")) = "ja" then%>
Du har inga polare inne
<%end if%>

Prövade de, fick samma resultat som innan, antagligen har jag gjort någon miss i de andra koderna o_O

OffTopic, men använder du sessions till en adressbok/kompislista? Tar inte det mycket kraft av servern om det är många inloggade?

Inferis skrev:

OffTopic, men använder du sessions till en adressbok/kompislista? Tar inte det mycket kraft av servern om det är många inloggade?

Hmm... jo jag använder de till en kompislista... Jag tänkte använda rs.eof först, men de vart konstigt när den hoppade över den ena koden av dom två jag har...

Du kanske ska återgå till den koden? Du får säkert hjälp här! ;-)

jahap... men jag hajjar ändå inte vad som är fel... loggar jag in på någon annans användare går det... men inte på min! Då envisas den med att skriva ut att jag itne har någon online fast jag har de...

Du har inget som är speciellt anpassat för att du är en administratör eller liknande?
Prova lägg din kod här.

Jo... jag är satt som admin i databasen... men även dom andra som jag loggade in på...

Skickar väll in all kod... observera att den kan vara flummig... inte varit aktiv med asp på ett bra tag ;)

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

Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From kompis Where vems = '"&gnamn&"'"

rs1.Open SQL, Connect1, 3, 3

DO Until rs1.EOF OR X = 30
X=X+1
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gaster where gnamn = '"&rs1("vem")&"' and inne = true"
rs2.Open Addera, Connect, 3, 3
if not rs2.eof then
gammal = rs2("fodd")
%>
<font face="Verdana" style="font-size: 8pt">&nbsp;<%if rs2("admin") = True then%><img border="0" src="bilder/online_admin.jpg" width="8" height="8"><%elseif rs2("vip") = True then%><img border="0" src="bilder/online_vip.jpg" width="8" height="8"><%elseif rs2("vaktare") = True then%><img border="0" src="bilder/online_polis.jpg" width="8" height="8"><%else%><img border="0" src="bilder/online.jpg" width="8" height="8"><%end if%>&nbsp;</u><b><a target="_top" href="hem.asp?vem=<%=rs2("gnamn")%>" style="TEXT-DECORATION: none"><%=rs2("gnamn")%></a>  <%if rs2("sex") = "Kille" then%>  P<%else%> 
F<%end if%><%=calcMyAge(gammal)%></b><br>
</font>
<%
elseif rs2.eof then
session("tom") = "1"
end if
rs1.MoveNext
Loop

Set rs3 = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From kompis Where vem = '"&gnamn&"'"

rs3.Open SQL, Connect1, 3, 3

DO Until rs3.EOF OR X = 30
X=X+1
Set rs4 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gaster where gnamn = '"&rs3("vems")&"' and inne = true"
rs4.Open Addera, Connect, 3, 3
if not rs4.eof then
gammal = rs4("fodd")
%>
<font face="Verdana" style="font-size: 8pt">&nbsp;<%if rs4("admin") = True then%><img border="0" src="bilder/online_admin.jpg" width="8" height="8"><%elseif rs4("vip") = True then%><img border="0" src="bilder/online_vip.jpg" width="8" height="8"><%elseif rs4("vaktare") = True then%><img border="0" src="bilder/online_polis.jpg" width="8" height="8"><%else%><img border="0" src="bilder/online.jpg" width="8" height="8"><%end if%>&nbsp;</u><b><a target="_top" href="hem.asp?vem=<%=rs4("gnamn")%>" style="TEXT-DECORATION: none"><%=rs4("gnamn")%></a>  <%if rs4("sex") = "Kille" then%>  P<%else%> 
F<%end if%><%=calcMyAge(gammal)%></b><br>
</font>
<%
elseif rs4.eof then
session("tom1") = "1"
end if
rs3.MoveNext
Loop
if session("tom") = "1" and session("tom1") = "1" then%>
Ingen polare...
<%
end if
rs1.Close
Connect1.Close
Set rs1 = nothing
Set Connect1 = nothing
session("tom") = ""
session("tom1") = ""
%>

Det liggre dubbelt pga att man kan ligga som "vem" eller "vems" i databasen... och jag kom inte på ngt annat sätt att göra de på.. ändrade "ja" till "1" istället... har också ändrat lite med if-satserna... ifall den vart någon annat så gjorde jag elseif rs2.eof istället för bara else...

Humm... får fortsätta imorron... servern till min sida är konstig just nu... den kommer o går hela tiden >.<

Den där koden verkar lite konstig?

Jag hade skapat en tabell som heter Adressbok och sen kört nåt liknande:

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
strSQL = "SELECT * FROM Adressbok INNER JOIN Medlemmar ON Medlemmar.Nick = Adressbok.Kompis WHERE lcase(Adressbok.Adressboksagare)='" & lcase(session("Nick")) & "' AND Adressbok.godkand= 2"
Set objRS = Connection.Execute(strSQL)

If objRS.EOF Then
response.write "Din adressbok är tom!"
else

response.write "<table border=""0"" cellpadding=""2"" cellspacing=""2"">"
response.write "<tr><td>Nick</td><td>Stad</td><td>Ålder</td></tr>"

vColor = Array("#CCCCCC", "#FFFFFF")
i = 0

Do Until objRS.EOF
Dim Alder
Alder = Fix(DateDiff("d",""&objRS("Fodelsedag")&"", Date)/365.2375)

response.write "<tr bgcolor="""& vColor(i Mod 2) &""">"
response.write "<td><a href=""default.asp?medlem=" & objRS("Kompis") & """>" & objRS("Kompis") & " </a></td><td>"& objRS("Stad") &"</td><td>"& Alder &"</td>"
response.write "</tr>"

  objRS.MoveNext
i = i + 1
Loop

End if

Set objRS = Nothing
Connection.close : Set Connection = nothing

response.write "</table>"

Nu kommer säkert nån att säga till om relationer, men det är jag inte så duktig på.

Använd

Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")

istället för

Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("***")

Det ska vara bättre!

OKej, jag böt till din kod:

<%
gnamn = Request.Cookies("gnamn")

If Len(Request.Cookies("gnamn")) < 1 Then
Response.Redirect "utloggad_liten.asp"
End if

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("***")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gaster where gnamn = '"&gnamn&"' "
rs.Open Addera, Connect, 3, 3

if rs("inne") = False then
response.redirect "utloggad_liten.asp"
end if

Function calcMyAge(strBirthDate)

	strBirthDate = trim(strBirthDate)
	If Len(strBirthDate) > 0 Then
		calcMyAge = int(datediff("d",cDate(strBirthDate),date())/365.25)
	End If

End Function

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("***.mdb")
strSQL = "SELECT * FROM kompis INNER JOIN gaster ON gaster.gnamn = kompis.vem WHERE lcase(kompis.vems)='" & lcase(gnamn) & "' AND gaster.inne= true"
Set objRS = Connection.Execute(strSQL)

If not objRS.EOF Then

response.write "<table border=""0"" cellpadding=""2"" cellspacing=""2"">"
response.write "<tr><td>Nick</td><td>Ålder</td></tr>"

i = 0

Do Until objRS.EOF
Dim Alder
Alder = objRS("fodd")

response.write "<tr>"
response.write "<td><a href=""hem.asp?vem=" & objRS("vem") & """>" & objRS("vem") & " </a></td><td>"& calcMyAge(alder) &"</td>"
response.write "</tr>"

  objRS.MoveNext
i = i + 1
Loop

End if

response.write "</table>"

Set Connection1 = Server.CreateObject("ADODB.Connection")
Connection1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("***")
strSQL1 = "SELECT * FROM kompis INNER JOIN gaster ON gaster.gnamn = kompis.vems WHERE lcase(kompis.vem)='" & lcase(gnamn) & "' AND gaster.inne= true"
Set objRS1 = Connection1.Execute(strSQL1)

If not objRS1.EOF Then

response.write "<table border=""0"" cellpadding=""2"" cellspacing=""2"">"
response.write "<tr><td>Nick</td><td>Ålder</td></tr>"

i = 0

Do Until objRS1.EOF
Dim Alder1
Alder1 = objRS1("fodd")

response.write "<tr>"
response.write "<td><a href=""hem.asp?vem=" & objRS1("vems") & """>" & objRS1("vems") & " </a></td><td>"& calcMyAge(alder1) &"</td>"
response.write "</tr>"

  objRS1.MoveNext
i = i + 1
Loop

End if

if objRS.eof AND objRS1.eof then
response.write "Tomt!"
end if

Set objRS1 = Nothing
Connection1.close : Set Connection1 = nothing

Set objRS = Nothing
Connection.close : Set Connection = nothing

response.write "</table>"
%>

Men den skriver ut "Tomt!" iaf... den ska bara skriva ut de om ingen av koderna används... nu används den ena koden, o den skriver ut "tomt!" iaf..

La bara in koden en gång till... de är lite skillnad i SQL koden...

Vi får väl ta o lösa de om tre veckor.... åker bort imorron... har inte tillgång till en dator på tre veckor då!

Det är inte så att session varialn får värdet True eller False!

Om så är fallet

  If Session("aaa") And Session("bbb") Then
     ' Här händer det saker
  Else 
     ' Här händer det annat
  End If

Jag löste det genom att lägga if koderna högre upp på sidan...!
Tack för all hjälp!