|
|
Sidorna
är optimerade för Internet Explorer, 640x480 i upplösning
samt 256 färger.
Sidan gjord av Kent Vilhelmsson,
webmaster@safe.se
|
|
|
|
|
|
<%
Set Databas = Server.CreateObject("ADODB.Recordset")
Databas.Open "SELECT * FROM Artikel ORDER BY DatumTid DESC", "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\home\web.nassjostart.nu\databaser\artikel.mdb"
Set Vem = Databas ("Vem")
Set DatumTid = Databas("DatumTid")
Set Kortfattat = Databas("Kortfattat")
Set Rubrik = Databas("Rubrik")
Set ID = Databas("ID")
Set Text = Databas("ArtikelText")
Response.Write "" & Chr(13)
X=1
Do
Response.Write ""
Response.Write "| "
Response.Write ""
rem Response.Write X
rem Response.Write ". "
Response.Write ""
Response.Write Rubrik
Response.Write ""
Response.Write ""
Response.Write " | "
Response.Write " "
Response.Write Chr(13)
X=X+1
Databas.MoveNext
Loop Until Databas.EOF=True Or X=3
Response.Write " "
Response.Write Chr(13)
Set Databas = Nothing
%>
|
|
