<% 'Initierer variabler/ Database Dim strSQL Dim dcnDB Dim spraak Dim Post Dim Tema Set dcnDB = Server.CreateObject("ADODB.Connection") 'dcnDB.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" _ ' & "Data Source=\\RAMBO\D$\PROSJEKTER\IF283-10\PUBLIC_HTML\Mariustest\Sykkel\sykkelDB.mdb" 'dcnDB.Open dcnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/database/sykkelDB.mdb") spraak = "no" Dim intloop Dim valgte_kommuner Dim valgte_Lengde Dim valgte_Grad Dim valgte_Tema Dim Forste_valgt Dim Valgtfra_kat %> Sykkelrapportside
<% 'NBNBNBNBN - ALT FOR KOMPLISERT KODE NÅ, MÅ FORENKLES... ' oppretter grunn - sql- setning 'strSQL = "SELECT Distinct Rutenavn, Lengdekm, Navn FROM prove" 'må se om det er noe problem med strSQL = "SELECT ID, Rutenavn, Lengdegruppe, Lengdekm, Grad, Notat, Rute.Kommune, " _ & "URL, Lengde_ID, Lengde_Navn, " _ & "GradID, Navn, Komm_ID, Kommune.Kommune " _ & " FROM Rute,Lengde_gruppe, Grad, Kommune " _ & " WHERE (Rute.Kommune=Kommune.Komm_ID AND " _ & " Rute.Grad=Grad.GradID AND " _ & " Rute.Lengdegruppe=Lengde_gruppe.Lengde_ID) " Forste_valgt = False Valgtfra_kat = False ' sjekker kommunene - og bygger opp spørresetning valgte_kommuner = Split(Request.Form("valgboks1"), ", ") For intloop=0 To UBound(valgte_kommuner) If valgte_kommuner(intloop) <> "(Alle)" Then If Not Forste_valgt Then ' Hvis denne variabelen er false - er det ikke tidligere satt "where" strSQL = strSQL & " AND (Kommune.Kommune = " Forste_valgt = True Else strSQL = strSQL & " OR Kommune.Kommune = " End If strSQL = strSQL & "'" & valgte_kommuner(intloop) & "'" End If Next If Forste_valgt Then strSQL = strSQL & ")" End If 'Hvis kommuner er valgt - avslutt med parantes ' sjekker Lengde på samme måte valgte_Lengde = Split(Request.Form("D1"), ", ") For intloop=0 To UBound(valgte_lengde) If valgte_Lengde(intloop) <> "(Alle)" Then If Not Forste_valgt Then strSQL = strSQL & " AND (Lengde_Navn = " Forste_valgt = True Valgtfra_kat = True ' flagg satt for at sit. where virks = xx AND virks = xx ikke skal oppstå under.... . Ønsker OR Else If Not Valgtfra_kat Then strSQL = strSQL & " AND (Lengde_Navn = " Valgtfra_kat = True ' satt for å angi at det skal settes parantes til slutt.... Else strSQL = strSQL & " OR Lengde_Navn = " End If End If strSQL = strSQL & "'" & valgte_Lengde(intloop) & "' " End If Next ' Hvis det er foretatt valg i kategorien - avslutt med parantes If Valgtfra_kat Then strSQL = strSQL & ")" Valgtfra_kat = False End If ' Legger til grad i SQL setning valgte_Grad = Split(Request.Form("D2"), ", ") For intloop=0 To UBound(valgte_Grad) If valgte_Grad(intloop) <> "(Alle)" Then If Not Forste_valgt Then strSQL = strSQL & " AND (Navn = " Forste_valgt = True Valgtfra_kat = True ' flagg satt for at sit. where virks = xx AND virks = xx ikke skal oppstå under.... . Ønsker OR Else If Not Valgtfra_kat Then strSQL = strSQL & " AND (Navn = " Valgtfra_kat = True ' satt for å angi at det skal settes parantes til slutt.... Else strSQL = strSQL & " OR Navn = " End If End If strSQL = strSQL & "'" & valgte_Grad(intloop) & "'" End If Next ' Hvis det er foretatt valg i kategorien - avslutt med parantes If Valgtfra_kat Then strSQL = strSQL & ")" Valgtfra_kat = False End If 'Legger til valgte tema i SQL - setning valgte_Tema = Split(Request.Form("D3"), ", ") For intloop=0 To UBound(valgte_Tema) If valgte_Tema(intloop) <> "(Alle)" Then If Not Forste_valgt Then strSQL = strSQL & " AND (AttrNavn = " Forste_valgt = True Valgtfra_kat = True ' flagg satt for at sit. where virks = xx AND virks = xx ikke skal oppstå under.... . Ønsker OR Else If Not Valgtfra_kat Then strSQL = strSQL & "AND Rute.ID IN ( " _ & "SELECT Rute_ID " _ & "FROM Attributt_verdi, Attributt "_ & "WHERE (Attributt_verdi.Attr_ID = Attributt.AttrID) " strSQL = strSQL & " AND (AttrNavn = " Valgtfra_kat = True ' satt for å angi at det skal settes parantes til slutt.... Else strSQL = strSQL & " OR AttrNavn = " End If End If strSQL = strSQL & "'" & valgte_Tema(intloop) & "' " End If Next ' Hvis det er foretatt valg i kategorien - avslutt med parantes If Valgtfra_kat Then strSQL = strSQL & "))" Valgtfra_kat = False End If strSQL = strSQL & ";" 'Response.Write strSQL ' Kjører ut rapporten ' Hvis det er valgt bedrifter - må disse hentes ut ' select data fra bedriftstabell - om det finnes kobling i bedr_rute tab ' mellom bedrID og ruteID ' Kan gå mens %>

Søkeresultat

<% 'åpner database/ kjører SQL 'dcnDB.Open Set Post = dcnDB.Execute(strSQL) IF Post.EOF THEN%> <%Response.Write "Ingen Treff"%> <%ELSE %> <% 'Starter Loop DO WHILE NOT Post.EOF 'Må se nærmere på feilsøking %> <% Post.MoveNext Loop END IF Post.Close 'stenger database dcnDB.Close %>
<%Response.Write "Rutenavn"%> <%Response.Write "Lengde"%> <%Response.Write "Grad"%> Kommentarer Tema
<% If (Post("URL") <> "") Then %> " target=_blank><%=Post("Rutenavn")%> <%Else Response.Write Post("Rutenavn") End If %> <%=Post("Lengdekm")%> <%=Post("Navn")%> <%=Post("Notat")%> <% strSQL = "SELECT AttrNavn " _ & "FROM Attributt_verdi, Attributt "_ & "WHERE (Attributt_verdi.Attr_ID = Attributt.AttrID) " _ & "AND Rute_ID=" & Post("ID") Set Tema = dcnDB.Execute(strSQL) DO WHILE NOT Tema.EOF Response.Write Tema("AttrNavn") & "
" Tema.MoveNext Loop %>