Turvenn.no
Webutvikler kurs ASP.NET, C#, CSS mm.

WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash  mm.

Brukernavn: 
Passord:

Registrèr deg Glemt passord?
Logg deg inn




  ASP.net (199)
  ASP 3.0 (111)
  PHP (30)
  HTML (66)
  SQL (89)
  CSS (46)
  XML (7)
  JavaScript (78)
  Diverse kode (13)


  Programmering (22)
  System og drift (15)
  Trafikk og inntekt (11)
  Guider og tips (22)
  Nyttig lesestoff (23)
  Web forum (604)
  Link galleri (565)


  ASP.NET kurs(5)
  CSS kurs (2)
  JQuery kurs (2)


  Øk trafikken (8)
  Facebook App. (4)
  Microsoft CEO (6)


  Server & web
  Internett & epost
  Systemverktøy
  Sikkerhet
  Fildeling
  Lyd & media
  Diverse software


  Domenesalg
  Metagenerator
  Websikre farger
  WebMail


  Bli medlem!
  Siste innlegg
  Gjestebok
  Tips en venn
  Kontakt oss
  Forsiden




Kode Artikler
Linker


Mål internetthastigheten din.


Dynamisk meny i ASP

av Øyvind A. Isaksen
 
Her vises hvodan en meny kan bygges opp dynamisk fra en database. Både hovedmenyen og tilhørende submenyer hentes fra databasen og vises på websiden.

<!--#include file="functions.asp"-->

<%
sub Subkategorier(katID)
if KatID = "" then KatID = 0
Set rsSub = server.CreateObject("ADODB.recordset")
SQL = "Select SubKategori, SubKategoriID FROM tblSubKategorier WHERE KategoriID = " & KatID
rsSub.Open SQL, ConnString

Do while not rsSub.EOF

response.write("<a href=""default.asp?KategoriID=" & KatID & "&SubkategoriID=" & rsSub.Fields("SubKategoriID") & """>" & rsSub.Fields("SubKategori") & "</a><br>")

rsSub.MoveNext
Loop

rsSub.Close
set rsSub = nothing
end sub


SQL = "Select kategoriID, kategori FROM tblKategorier"
KategoriID = Request.QueryString("KategoriID")

set rs = server.CreateObject("ADODB.recordset")
rs.Open SQL,connString

do while not rs.EOF
Response.Write("<a href=""default.asp?kategoriID=" &rs.Fields("kategoriid") & """>" & rs.Fields("kategori") & "</a><br>")
if (isnumeric(KategoriID)) then

if int(KategoriID) = rs.Fields("KategoriID") then
Call SubKategorier(KategoriID)
end if
end if

rs.MoveNext
loop

rs.Close
set rs = nothing
%>

WebRessurs.no anbefaler:    StackOverflow.com | Experts-Exchange.com | W3schools | ASP.NET | Codeproject | 4Guys
WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14121270.
Copyright WebRessurs.no © 2003 - 2018
Jobbsøk.no - Jobbsøknad, CV, intervju, tips og lenker