Søg
Avatar billede js17dk Nybegynder
12. marts 2001 - 18:45 Der er 27 kommentarer og
1 løsning

Kan ikke få If sætning til at virke

Hvorfor virker dette ikke???

<%
    ID = CLng(Request.QueryString(\"ID\"))
    Session(\"LastCategory\") = ID
    Design = CLng(Request.QueryString(\"Design\"))

  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"test.mdb\")
    Set RS = Conn.Execute(\"SELECT ID, Titel, Beskrivelse, Billed FROM Tekst WHERE Parent = \" & ID)
    If RS.EOF Then
        Parent = -1
        Uds = \"Design\"
    Else
        Parent = RS(\"ID\")
        Uds = RS(\"Design\")
    End If
%>

<% If (Rs(\"Design\")) = 1 THEN %>
        <tr>
          <td width=\"5%\">&nbsp;</td>
          <td width=\"90%\" valign=\"top\">
            <p><font face=\"Tahoma\" size=\"2\"><br>


<%= RS(\"Titel\") %><br><br>
<%=fixBreaks(rs(\"Beskrivelse\")) %><br>
<img src=\"upload/<%= RS(\"Billed\") %>\">

          </td>
          <td width=\"5%\">&nbsp;</td>
        </tr>
        <tr>
          <td width=\"5%\">&nbsp;</td>
          <td width=\"90%\">&nbsp;</td>
          <td width=\"5%\">&nbsp;</td>
        </tr>
      </table>




<% Else %>
        <tr>
          <td width=\"5%\">&nbsp;</td>
          <td width=\"90%\" valign=\"top\">
            <p><font face=\"Tahoma\" size=\"2\"><br>


<%= RS(\"Titel\") %><br><br>
<%=fixBreaks(rs(\"Beskrivelse\")) %><br>
<img src=\"upload/<%= RS(\"Billed\") %>\">

          </td>
          <td width=\"5%\">&nbsp;</td>
        </tr>
        <tr>
          <td width=\"5%\">&nbsp;</td>
          <td width=\"90%\">&nbsp;</td>
          <td width=\"5%\">&nbsp;</td>
        </tr>
      </table>
     
<% End if %>

      </table>
Avatar billede bjarke-b Nybegynder
12. marts 2001 - 18:47 #1
fejl ?
Avatar billede tpiil Nybegynder
12. marts 2001 - 18:47 #2
<% If Rs(\"Design\") = 1 THEN %>
Avatar billede tpiil Nybegynder
12. marts 2001 - 18:48 #3
og hvis ikke feltet er et tal felt er det:
<% If Rs(\"Design\") = \"1\" THEN %>
Avatar billede 12tri Nybegynder
12. marts 2001 - 18:49 #4
>> bjarke-b, har du fået min mail ?
Avatar billede bjarke-b Nybegynder
12. marts 2001 - 18:50 #5
12tri -> har ikke fået noget
Avatar billede eagleeye Praktikant
12. marts 2001 - 18:53 #6
Hvis RS.EOF er sat til true, så fejler denne if sætninig:
<% If (Rs(\"Design\")) = 1 THEN %>

Jeg ville benytte
       
<% If Parent = -1 THEN %>
<!!- kode ved tom database>
<% else &>
<!!- kode når der er noget i databasen>
<% end if %>


Evt. skal der Cint omkring Parent of -1: Cint(Paren) og Cint(-1)
Avatar billede js17dk Nybegynder
12. marts 2001 - 18:53 #7
Får stadig denne fejl:
Error Type:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
default.asp, line 17
Avatar billede js17dk Nybegynder
12. marts 2001 - 18:57 #8
Det skal bruges så man kan vælge mellem flere forskellige designs
Avatar billede 12tri Nybegynder
12. marts 2001 - 18:57 #9
>> bjarke-b, er din mail ikke bjarke@bekhoj, jeg prøver lige at sende det igen.
Avatar billede tpiil Nybegynder
12. marts 2001 - 18:58 #10
Set RS = Conn.Execute(\"SELECT * FROM Tekst WHERE Parent = \" & ID)
Avatar billede tpiil Nybegynder
12. marts 2001 - 18:58 #11
12tri >> tror du mangler .dk :)
Avatar billede 12tri Nybegynder
12. marts 2001 - 18:59 #12
>> ja, ja, glemte det
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:01 #13
Det giver bare det resultat at den ignorer If sætningen
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:02 #14
ok, men du tager bare ikke design ud af db\'en med det andet :)
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:05 #15
Det skal heller ikke tages ud af databasen.

det skal være sådan at hvis jeg skriver:
default.asp?design=1 ser siden ud på en måde, hvis jeg så skriver
default.asp?design=2 ser siden ud på en anden måde
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:08 #16
<%
    ID = CLng(Request.QueryString(\"ID\"))
    Session(\"LastCategory\") = ID
    Design = CLng(Request.QueryString(\"Design\"))

  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"test.mdb\")
    Set RS = Conn.Execute(\"SELECT ID, Titel, Beskrivelse, Billed FROM Tekst WHERE Parent = \" & ID)
    If RS.EOF Then
        Parent = -1
        Uds = \"Design\"
    Else
        Parent = RS(\"ID\")
        Uds = Design
    End If
%>

<% If Rs(\"Design = 1 THEN %>
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:08 #17
<%
    ID = CLng(Request.QueryString(\"ID\"))
    Session(\"LastCategory\") = ID
    Design = CLng(Request.QueryString(\"Design\"))

  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"test.mdb\")
    Set RS = Conn.Execute(\"SELECT ID, Titel, Beskrivelse, Billed FROM Tekst WHERE Parent = \" & ID)
    If RS.EOF Then
        Parent = -1
        Uds = \"Design\"
    Else
        Parent = RS(\"ID\")
        Uds = Design
    End If
%>

<% If Design = 1 THEN %>
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:08 #18
jeg skal spise nu så jeg håber det virker nu :)
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:10 #19
Takker mange gange :-)
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:20 #20
Kan man ikke også have
<% If Design = 2 THEN %>
<% If Design = 3 THEN %>
Osv??
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:30 #21
ja da
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:36 #22
Det kan jeg bare ikke helt få til at virke, må kigge på det i morgen, ellers må jeg jo oprette et nyt spg
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:42 #23
Jeg ved hvad fejlen er nu det er når man starter en ny sætning med:
<% bla bla    og så skal have den sluttet <% end if %> tror det er der den fejler.

Ved du hvad man så kan gøre??
Avatar billede 12tri Nybegynder
12. marts 2001 - 19:43 #24
<then>
Avatar billede 12tri Nybegynder
12. marts 2001 - 19:44 #25
<if>
<then>
<end if>
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:45 #26
<%
if hejsa = \"hmm\" then
response.write \"HAHAHAHA\"
else
response.write \"ØVVVVVVV\"
end if
%>
Avatar billede js17dk Nybegynder
12. marts 2001 - 19:51 #27
Kan man ikke køre det på sådan en måde:

<% If Design = \"1\" THEN %>

<!-- #include file=\"start.asp\" -->

<% If Design = \"2\" THEN %>

<!-- #include file=\"ture.asp\" -->
   

<% If Design = 3 THEN %>

<!-- #include file=\"pris.asp\" -->

<% If Design = 4 THEN %>

<!-- #include file=\"bestil.asp\" -->


<% Else %>

<% End if %>

???

Noget i den stil??
Det virker bare ikke
Avatar billede tpiil Nybegynder
12. marts 2001 - 19:57 #28
<% If Design = \"1\" THEN %>

<!-- #include file=\"start.asp\" -->

<% elseIf Design = \"2\" THEN %>

<!-- #include file=\"ture.asp\" -->
   

<% elseIf Design = 3 THEN %>

<!-- #include file=\"pris.asp\" -->

<% elseIf Design = 4 THEN %>

<!-- #include file=\"bestil.asp\" -->


<% Else %>

<% End if %>
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
35 min siden Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »