<% Option Explicit %> Emerald ehf- Vefverslun međ mikiđ úrval af dekurvörum <% 'Deklarera variabler Dim conn, sql, objRS ' Öppna en förbindelse med databasen Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../db/emerald.mdb") ' Skapa en sql-sats för att hämta alla kategorier där webbkategorier är presentartiklar sql = "SELECT * FROM Kategorier INNER JOIN HuvudKat ON kategorier.HuvudKatnr=HuvudKat.HuvudKatNr WHERE Webkatnr=3 AND Publicera=True Order by HuvudKatNamn, Kategorinamn" ' Ställ frĺgan till databasen och fĺ ett svar Set objRS = conn.Execute(sql) %>
   



skođa
 
<% ' Gĺ igenom alla rader i svaret Dim HuvudKat, kat While Not objRS.EOF %> <% Wend objRS.Close conn.Close%>

Dekurvörur

Mikiđ úrval af dekurvörum fyrir ţig, heimiliđ eđa bílinn.

 

<%If not objRS.EOF Then%>

<%=objRS("HuvudKatNamn")%>

    <% HuvudKat=objRS("HuvudKatNamn") DO If HuvudKat=objRS("HuvudKatNamn") Then kat=objRS("Kategorinamn")%>
  • <%=kat%>
    • <%objRS.MoveNext Else Exit Do End if Loop While NOT objRS.EOF %>

  <%End If%>

<%If not objRS.EOF Then%>

<%=objRS("HuvudKatNamn")%>

    <% HuvudKat=objRS("HuvudKatNamn") DO If HuvudKat=objRS("HuvudKatNamn") Then kat=objRS("Kategorinamn")%>
  • <%=kat%>
    • <%objRS.MoveNext Else Exit Do End if Loop While NOT objRS.EOF %>

  <%End If%>

Emerald ehf | Sími: 698 0330 | emerald@hive.is

  Vefhönnun | Uppfćrt:    | Copyright © Emerald ehf 2004-2008 | Innskráđir núna: <% = Application("Besokare") %>   | Gestir alls: <% dim fp, fs, a, ct fp = Server.MapPath("../../db/raknare.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Response.Write ct %>