---
title: "Om båda = \"ja\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107419-om-båda-ja"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2004-07-15T19:26:36.000Z"
updated: "2004-08-04T10:08:54.000Z"
replies: 18
views: 379
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/107419-om-båda-ja"
---

# Om båda = "ja"

## #1 — DiDjo, 2004-07-15T19:26Z

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...

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

## #2 — Inferis, 2004-07-15T19:30Z

Prova:

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

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

## #3 — DiDjo, 2004-07-15T19:32Z

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

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

## #4 — magnusfernstrom, 2004-07-15T19:33Z

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

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

## #5 — Inferis, 2004-07-15T19:36Z

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%>
```

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

## #6 — DiDjo, 2004-07-15T19:40Z

> **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

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

## #7 — Inferis, 2004-07-15T19:41Z

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

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

## #8 — DiDjo, 2004-07-15T19:43Z

> **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...

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

## #9 — Inferis, 2004-07-15T19:46Z

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

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

## #10 — DiDjo, 2004-07-15T19:56Z

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...

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

## #11 — Inferis, 2004-07-15T19:57Z

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

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

## #12 — DiDjo, 2004-07-15T20:06Z

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...

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

## #13 — DiDjo, 2004-07-15T20:13Z

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

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

## #14 — Inferis, 2004-07-15T20:20Z

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å.

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

## #15 — Inferis, 2004-07-15T20:26Z

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!

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

## #16 — DiDjo, 2004-07-16T12:28Z

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...

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

## #17 — DiDjo, 2004-07-16T16:23Z

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å!

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

## #18 — Fraggel, 2004-07-17T19:51Z

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
```

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

## #19 — DiDjo, 2004-08-04T10:08Z

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107419-om-båda-ja