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

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Server & web

Internett & epost

Systemverktøy

Sikkerhet

Fildeling

Lyd & media

Diverse software

TJENESTER

Domenesalg

Metagenerator

Websikre farger

WebMail

ANNET

Bli medlem!

Siste innlegg

Gjestebok

Tips en venn

Kontakt oss

Forsiden

INTERNETT HASTIGHET

Bruker SubProsedyre for å hente ut info i database

av Øyvind A. Isaksen

Denne koden gjør 2 ting:
-Først hentes alle kategorier i en kategoritabell ut, og vises i en drop-down. (Sub VisKategorier)
-Når en kategori velges, skal alle varer i denne kategorien vises under i en tabell. (Sub HentVarer)

<%
varekatid = Request.QueryString("varekategoriid")
if varekatid <> "" then varekatid = int(varekatid)

Subprosedyre som henter ut alle kategorier i en dropdown-meny
Når en kategori velges, skal varene i den kategorien vises (sub HentVarer).

Sub viskategorier()
SQL="select varekategorinavn, varekategoriid from tblVarekategorier order by varekategorinavn"
set rsHent = server.CreateObject("adodb.recordset")
rsHent.Open sql,connstring

Do while not rsHent.EOF
optNavn = rsHent.Fields("varekategorinavn")
optVerdi = rsHent.Fields("varekategoriid")
temp = temp & "<option value="""&optVerdi&""">" & optNavn & "</option>"
rsHent.MoveNext
loop

rsHent.Close
set rsHent = nothing
Response.Write(temp)
end sub
%>

<%
Denne prosedyren henter ut alle varene fra valgt kategori.
Sub hentVarer()

kjør prosedyren hvis det finnes en varekategoriid (betyr: hvis kategori er valgt)
if varekatid <> "" then

SQL="select * from tblvarer where VareKategoriid=" &varekatid
set rsHentVare = server.CreateObject("adodb.recordset")
rsHentVare.Open sql,connstring

Lager overskrifter i en tabell
temp = "<tr>"
temp = temp & "<td>Varenavn</td>"
temp = temp & "<td>Pris</td>"
temp = temp & "<td>Beskrivelse</td>"
temp = temp & "<td>AntLager</td>"
temp = temp & "<td>Aktiv</td>"
temp = temp & "</tr>"

do while not rsHentVare.EOF

temp = temp & "<tr>"
temp = temp & "<td>" & rsHentVare.Fields("varenavn") & "</td>"
temp = temp & "<td>" & rsHentVare.Fields("pris") & "</td>"
temp = temp & "<td>" & rsHentVare.Fields("beskrivelse") & "</td>"
temp = temp & "<td>" & rsHentVare.Fields("antLager") & "</td>"
temp = temp & "<td>" & rsHentVare.Fields("aktiv") & "</td>"
temp = temp & "</tr>"

rsHentVare.MoveNext
loop

rsHentVare.Close
set rsHentVare=nothing

Response.Write("<table border = ""1"">"&temp&"</table>")

end if
end sub
%>



<h1>Vareliste</h1>

<form action="liste.asp" method ="get">
<select name="varekategoriid"><%call viskategorier%></select>
<input type="submit" value="Vis varer...">
</form>

<%call hentvarer%>

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14096874.
Copyright WebRessurs.no © 2003 - 2018