Notifikationer

Markér alle som læst Log ud

annikadk Nybegynder

30. juni 2002 - 13:46 Der er 10 kommentarer og
2 løsninger

En If-else-then i en If-Else-Then

Koden:
---------------------------------------
<% If Rs("TMenu") = "4" Then %>
<%
SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='3' class='tmain'>"
Response.Write " <tr>"
Response.Write " <td width='33%' valign='middle' align='center'>"
If Rsgalleri("url1s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url1") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url1s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " <td width='33%' valign='middle' align='center'>"
If Rsgalleri("url2s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url2") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url2s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " <td width='34%' valign='middle' align='center'>"
If Rsgalleri("url3s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url3") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url3s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width='33%' valign='top' align='left'>" & Rsgalleri("url1t") & "</td>"
Response.Write " <td width='33%' valign='top' align='left'>" & Rsgalleri("url2t") & "</td>"
Response.Write " <td width='34%' valign='top' align='left'>" & Rsgalleri("url3t") & "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width='33%' valign='middle' align='center'>"
If Rsgalleri("url4s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url4") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url4s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " <td width='33%' valign='middle' align='center'>"
If Rsgalleri("url5s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url5") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url5s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " <td width='34%' valign='middle' align='center'>"
If Rsgalleri("url6s") = "x" Then
Response.Write " "
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url6") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url6s") & Chr(34) & " border='0'></a></td>"
End If
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width='33%' valign='top' align='left'>" & Rsgalleri("url4t") & "</td>"
Response.Write " <td width='33%' valign='top' align='left'>" & Rsgalleri("url5t") & "</td>"
Response.Write " <td width='34%' valign='top' align='left'>" & Rsgalleri("url6t") & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
%>
<% ElseIf Rs("TMenu") = "5" Then %>
KODE KODE KODE - til anden side
<% ElseIf Rs("TMenu") = "6" Then %>
KODE KODE KODE - til 3. side
<% Else %>
<%= Rs("Indhold") %><BR><BR>
<% End If %>
---------------------------------------

Kort sagt:
Hvordan får jeg forudsætningerne ala
If Rsgalleri("url1s") = "x" Then ....
til at blive udført i forudsætningen
<% If Rs("TMenu") = "4" Then %>

???

Synes godt om

medions Nybegynder

30. juni 2002 - 13:47 #1

Ved at bruge ElseIf

Fx.

If et_eller_andet = "hej" Then
et eller andet
ElseIf Et_Eller_ANdet = "heeeehj" Then
thhjjoooo
End If

//>Rune

Synes godt om

annikadk Nybegynder

30. juni 2002 - 13:53 #2

Hvordan vil du lave det i ovenstående eksempel??
Jeg sidder selv fast i en AND-sætning-ide

Det er jo 2 forudsætninger den skal leve op til i den første del (se de første 20 linier ca)
derefter er der ElseIf for hvis TMenu er andet end 4

Synes godt om

eagleeye Praktikant

30. juni 2002 - 13:55 #3

Det har du jo i koden...

If Rs("TMenu") = "4" Then
If Rsgalleri("url1s") = "x" Then
Response.Write " "
Else
Response.Write " <a href="........></td>"
End If
If Rsgalleri("url2s") = "x" Then
Response.Write " "
Else
Response.Write " <a href="........></td>"
End If
If Rsgalleri("url3s") = "x" Then
Response.Write " "
Else
Response.Write " <a href="........></td>"
End If
If Rsgalleri("url4s") = "x" Then
Response.Write " "
Else
Response.Write " <a href="........></td>"
End If
ElseIf Rs("TMenu") = "5" Then
....................
ElseIf Rs("TMenu") = "6" Then
....................
End If

Synes godt om

eagleeye Praktikant

30. juni 2002 - 13:58 #4

Hvis du vil havde tjekke på Rsgalleri på samme tidspunkt som Rs("TMenu") skal du flytte denne linie ud foran if Rs("TMenu"):
SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")

og så kan du lave en if med AND:

If Rs("TMenu") = "4" AND Rsgalleri("url4s") = "x" Then

end if

Synes godt om

annikadk Nybegynder

30. juni 2002 - 14:09 #5

Når nu TMenu hentes fra
Set Rs = Conn.Execute("SELECT * FROM Side WHERE SID=" & intSIDE & ";")

konflikter det så ikke?

----------------------------

If Rs("TMenu") = "4" AND Rsgalleri("url1s") = "x" Then
før en
SET Rsgalleri = Conn.Exe.....
vil da ikke hente Rsgalleri rigtigt?
og omvendt, så tror den vil at Rs er i tabellen galleri??

Humm....
kan jeg smække Set Rsgalleri op ved
Set Rs = Conn.Execute("SELECT * FROM Side WHERE SID=" & intSIDE & ";")
men hvor Set Rs =... stadig er den primære?? (Det er den vel sålænge jeg ikke skriver Rsgalleri)????

Synes godt om

eagleeye Praktikant

30. juni 2002 - 14:20 #6

Du kan vist godt sætte dem under hindanden:

Set Rs = Conn.Execute("SELECT * FROM Side WHERE SID=" & intSIDE & ";")
SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")

Synes godt om

annikadk Nybegynder

30. juni 2002 - 14:22 #7

vil jeg lige prøve, og vender frygteligt tilbage når det er :)

Synes godt om

annikadk Nybegynder

01. juli 2002 - 10:33 #8

Jeg kan simpelthen ikke se hvordan det skal skrives omkring den tabel :\

Synes godt om

annikadk Nybegynder

04. juli 2002 - 21:14 #9

eagleeye vil du lige smide et svar så du kan få lidt for din tid?
det er ikke lykkedes endnu :\ men tror det er en anden stil der skal til for at det vil :\

Synes godt om

eagleeye Praktikant

04. juli 2002 - 21:25 #10

Ok.. Det er jeg ked af at høre ..

Men jeg er ikke helt med på hvordan du vil skrive det ud:
Hvis du tjekker på:
If Rs("TMenu") = "4" AND Rsgalleri("url4s") = "x" Then

...og så vil du havde udskrevet en tabel??? her

end if

Er de den tabel som du har´? men den bliver opbygger af flere if sætniger
If Rsgalleri("url1s") = "x" Then

Og

If Rsgalleri("url2s") = "x" Then
osv..?

Synes godt om

annikadk Nybegynder

04. juli 2002 - 21:36 #11

Takker :)
venter lidt og prøver så med klare øjne og hjerne igen.

Synes godt om

medions Nybegynder

13. juli 2002 - 13:07 #12

Anytime...
Thx 4 Poinz

//>Rune

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS