12. marts 2001 - 22:27
Der er
17 kommentarer og 1 løsning
If sætning skal bruges til at vælge forskellige design
Jeg vil gerne have lavet en IF sætning som vælger hvorfor et design der skal vises, har fået lavet lidt kode: <% 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 %> <!-- #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 %> Vil gerne have lavet det om til at \"design\" også bliver hentet i databasen
Annonceindlæg fra Cognizant
Agentic AI kræver mere end teknologi
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
12. marts 2001 - 22:35
#1
<% ID = CLng(Request.QueryString(\"ID\")) Session(\"LastCategory\") = ID 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, Design 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 %> <!-- #include file=\"start.asp\" --> <% elseIf rs(\"Design\") = \"2\" THEN %> <!-- #include file=\"ture.asp\" --> <% elseIf rs(\"Design\") = \"3\" THEN %> <!-- #include file=\"pris.asp\" --> <% elseIf rs(\"Design\") = \"4\" THEN %> <!-- #include file=\"bestil.asp\" --> <% Else %> <% End if %>
12. marts 2001 - 22:46
#2
Det virker bare ikke. Får kun den samme side at se
12. marts 2001 - 22:48
#3
hvad sker der så hvis du bruger denne kode og hvad står der på siden?? <% ID = CLng(Request.QueryString(\"ID\")) Session(\"LastCategory\") = ID 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, Design 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 %> <!-- #include file=\"start.asp\" --> <% elseIf rs(\"Design\") = \"2\" THEN %> <!-- #include file=\"ture.asp\" --> <% elseIf rs(\"Design\") = \"3\" THEN %> <!-- #include file=\"pris.asp\" --> <% elseIf rs(\"Design\") = \"4\" THEN %> <!-- #include file=\"bestil.asp\" --> <% Else %> <%=rs(\"design\")%> <% End if %>
12. marts 2001 - 22:51
#4
der kommer kun det der skal komme hvis design er 1
12. marts 2001 - 22:52
#5
jamen virker det da så ikke??
12. marts 2001 - 22:54
#6
nej for hvis design = 2, skal der jo gerne komme noget andet end hvis design = 1
12. marts 2001 - 22:55
#7
så skriv 2 i db\'en
12. marts 2001 - 22:59
#8
Virker ikke
12. marts 2001 - 23:00
#9
Vil du prøve at have det i en mail?
12. marts 2001 - 23:01
#10
ja tak tpiil@netstuff.dk
12. marts 2001 - 23:06
#11
der ryger en mail afsted nu
13. marts 2001 - 14:39
#12
Hvornår tror du at du kan have det færdigt?
13. marts 2001 - 14:40
#13
jeg sakl lige kigge på det og det havde jeg glemt :)
13. marts 2001 - 14:42
#14
Har selv fået det til at virke
13. marts 2001 - 15:08
#15
flot du selv har lavet det, der var jo ingen fejl :)
13. marts 2001 - 22:27
#16
Jeg fik da en fejl da jeg prøvede at køre det du havde lavet
13. marts 2001 - 22:41
#17
så siger jeg bare selv tak for at jeg gad at hjælpe dig! jeg skal huske dig!
13. marts 2001 - 23:27
#18
Du fik nogle point i det andet spg, jeg oprettede men kom til at lukke for tidligt. Da jeg ikke kunne få det til at virke, oprettede jeg et nyt spg, og det var næsten det samme svar jeg fik fra dig. Da jeg selv fik det til at virke, mente jeg at jeg kunne beholde pointne
Kurser inden for grundlæggende programmering