<% Dim Connection Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("artdb/elisas.mdb") KatNr = "91" SQLcall = "SELECT * FROM Art " SQLcall = SQLcall + "WHERE (KatNr < '"&KatNr&"') " SQLcall = SQLcall + "ORDER BY DatumUpd DESC, ID DESC " Set Artlist = Connection.Execute(SQLcall) finns = false Do While Not Artlist.EOF If finns = false Then If Artlist("KatNr") = "10" Then PKat = "Resor" ElseIf Artlist("KatNr") = "20" Then PKat = "Hus&Hem" ElseIf Artlist("KatNr") = "30" Then PKat = "Porträtt" ElseIf Artlist("KatNr") = "40" Then PKat = "Kultur" ElseIf Artlist("KatNr") = "60" Then PKat = "Samhäll" Else PKat = "Hund" End If PRef = Artlist("PublRef1") PDat = Artlist("DatumUpd") End If finns = true Artlist.MoveNext Loop Connection.Close %>
  Start   Om mig/Kontakt   WebJobb   Fotogalleri  
  <%= PKat %> från <%= PDat %> är senaste